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Pcrcom Mini-Disk Drive Systems for TRS-80* Computers. . . 

Now! Add-On and Add-In Mini-Disk 

Storage for your Model III. 





New for the TRS-80* Model III 

Patterned after our fast-selling TFD Model I drives. And 
subjected to the same reliability controls. These new 
TFD mini-disk systems for the Model III provide more 
features than Tandy drives, yet cost far less. 

• Flippy Capability: Both internal (add-in) and 
external (add-on) drives permit recording on either 
side of a diskette. 

• Greater Storage Capacity: Available with either 40- 
or 80-track drive mechanisms. Percom TFD mini-disk 
systems store more. A 40-track drive stores up to 180 
Kbytes — formatted — on one side of a 5-inch 
diskette. An 80-track drive stores a whopping 364 
Kbytes. 

• 1.5 Mbyte On-line: The Percom drive controller 
(included with the initial drive) handles up to four 
drives. With four 80-track mini-disk drives you can 
access over 1.5 million bytes of on-line file data. 

Moreover, the initial drive may be either an 
internal add-in drive or an external add-on drive. And 
whichever configuration you get. the initial drive kit 
comes complete with our advanced 4-drive 
controller, interconnecting cables, power supplies, 
installation hardware, a DOS and of course the drive 
mechanism itself. 

• First Drive Includes DOS: OS-80' M . Percom' s fast 
extendable BASIC-language disk operating system, is 
included on diskette when you purchase an initial 
drive kit. Originally called MicroDOS, OS-80 was 
favorably reviewed in the June 1980 issue of Creative 
Computing magazine. 

• Works with Model III TRSDOS: Besides being fully 
hardware compatible. Percom's Model 111 40-track 
drive systems may be operated with Tandy's Model III 
TRSDOS — without any modifications whatsoever. 
And. TRSDOS may be easily upgraded with simple 
software patches for operating 80-track drives. 

Percom TFD add-on drives start at only $399. Model 
III Drive kits start at only $749.95. 

Quality Percom products are available at 
authorized dealers. Call toll free 1-800-527-1592 
for the address of your nearest dealer or to order 
direct from Percom. 



The industry leader in microcomputer peripherals, 
Percom not only gives you better design, better 
quality and first-rate service, but you pay less 
to boor. 

Still #1 for Model I 

As if greater storage capacities, exceptional quality 
control measures and lower prices aren't reasons 
enough to make Percom your first choice for Model 
add-on drives, all Percom Model I drives are also rated 
for double-density operation. 

Add our innovative DOUBLER™ adapter to your 
Model I Expansion Interface, and with Percom drive 
systems you can enjoy the same double-density storage 
capability as Model III owners. 

The DOUBLER includes a TRSDOS*-like 
double-density disk operating system called DBLDOS™ 

We also offer a double-density Model I version of 
OS-80 as well as DOUBLEZAP programs for modifying 
NEWDOS/80 and VTOS 4.0t for DOUBLER 
compatibility. 

Of course you don't have to upgrade your computer 
for double-density operation to use Percom mini-disk 
drive systems. In single-density operation, our TRS-80* 
Model I compatible 40-track drives store 102 Kbytes of 
formatted data on one side of a diskette, and our 
80-track drives store 205 Kbytes. By comparison. 
Tandy's standard drive for the Model I stores just 86 
Kbytes. 

And like our Model III drives. Model I add-on drives 
are optionally available with "'flippy" storage capability. 

System Requirements: 

Model III: 16-Kbyte system (min) and Model III BASIC. 
The second internal drive may be installed after the first 
internal drive kit is installed, and external drives #2, #3 
and #4 may be added if either an internal or external 
first-drive kit has been installed. External drives #3 and 
#4 require an optional interconnecting cable. 
Model I: 16-Kbyte system (min). Level II BASIC, 
Expansion Interface, disk operating system and an 
interconnecting cable. For double-density storage, a 
Percom DOUBLER must be installed in the Expansion 
Interface and DBLDOS (comes with the DOUBLER) or 
other double-density DOS must be used. For 
single -density operation, a Percom SEPARATOR™ 
adapter, installed in the Expansion Interface, will 
virtually eliminate "CRC ERROR — TRACK LOCKED 

OU 1 read errors. Prices and specifications subiect io change without notice 
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Percom's DOUBLER II tolerates wide variations in media, drives 



GARLAND, TEXAS — May 22, 1981 — 
Harold Mauch, president of Percom Data 
Company, announced here today that an im- 
proved version of the Company's innovative 
DOUBLER" adapter, a double-density plug-in 
module for TRS-80' Model 1 computers, is 
now available. 

Reflecting design refinements based on both 
theoretical analyses and field testing, the 
DOUBLER II", so named, permits even great- 
er tolerance in variations among media and 
drives than the previous design. 

Like the original DOUBLER, the DOU- 
BLER II plugs into the drive controller IC 
socket of a TRS-80 Model I Expansion Inter- 
face and permits a user to run either single- or 
double-density diskettes on a Model I. 

With a DOUBLER II installed, over four 
times more formatted data — as much as 364 
Kbytes — can be stored on one side of a five- 
inch diskette than can be stored using a stan- 
dard Tandy Model I drive system. 

Moreover, a DOUBLER II equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note: See "OS-80 1 * : Bridging the TRS- 
80* software compatibility gap" elsewhere on 

this page. ) 

The critical clock-data separation circuitry 
of the DOUBLER II is a proprietary design 
called a ROM-programmed digital phase-lock 
loop data separator. 

According to Mauch, this design is more 
tolerant of differences from diskette to diskette 
and drive to drive, and also provides immunity 
to performance degradation caused by circuit 
component aging. 

Circuit misapplication causes 

High resolution key to 

GARLAND, TEXAS — The Percom 
SEPARATOR" does very well for the Radio 
Shack TRS-80* Model 1 computer what the 
Tandy disk controller does poorly at best: reli- 
ably separates clock and data signals during 
disk-read operations. 

Unreliable data-clock separation causes for- 
mat verification failures and repeated read 
retries. 

CRC ERROR-TRACK LOCKED OUT 




Percom DOUBLER 



Mauch said "A DOUBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase-lock loop also eliminates 
the need for trimmer adjustments typical of 
analog phase-lock loop circuits. 

"You plug in a Percom DOUBLER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
effectively minimizes the phenomena of bit- 
and peak-shifting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER II, which is fully software 
compatible with the previous DOUBLER, is 
supplied with DBLDOS", a TRSDOS*- 
compatible disk operating system. 

The DOUBLER II sells for JZTO5. includ- 
ing the DBLDOS diskette..^*! Mj5$! 



j^-w+lH. 



Owners of original DOUBLERs may pur- 
chase a DOUBLER II upgrade kit, without the 
disk controller IC, for $30.00. Proof of pur- 
chase of an original DOUBLER is required, 
and each DOUBLER owner may purchase onh 
one DOUBLER II at the $30.00 price. 

The Percom DOUBLER II is available from 
authorized Percom retailers, or may be ordered 
direct from the factory. The factory toll-free 
order number is 1-800-527-1592. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 

warranty. _, , „„ 

Circle 258 on inquiry card. 

All that glitters is not gold 

OS-80 Bridging the TRS-80* 

software compatibility gap 

Compatibility between TRS-8C Model I diskettes and 
the new Model III is about .is genuine as a gold-plated lead 
Kmeerrand. 

True. Model 1 TRSDOS" diskettes can be recti on .1 Model 
III. But tir-.t they must be cum cried and re-recorded for 
Model III operation. 

And you cannot write i" a Model I TRSDOS'diskette. 
Not with a Model III. You cannot add a file. Delete a file. ' 
in any way modify a Model I TRSDOS diskette with a Mc 
HI computer. 

Furthermore, your converted TRSDOS diskettes car 
be converted back for Model I operation. 

TRSDOS is a one-way street. And there's no retreating. 
A point to consider before switching the company's payroll 
to your new Model III. 

Real software compatibility should allow the direct. tffl 
mediate intcrchangeability of Model I and Model III disket 
tes. No read-only limitations, no conversion/rc-rccording 
steps and no chance to be left high and dry with Model III 
diskettes that can't be run on a Model I. 
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The problem is most severe on high-number 
(high-density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separator of the 1 771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a high- 
resoluiion digital data separator circuit, one 
which operates at 16 menahert:, tor the low- 
resolution one-megahert: circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — for example, two- or t'our- 



diskette read, format problems. 

reliable data separation 

megahertz — were found by Percom to provide 
only marginally improved performance over 
the original Tandy circuit. 

The'Percom solution is a simple adapter that 
plugs into the drive controller of the Expansion 
Interface (EI). 

Not a kit — some vendors supply an un- 
tested separator kit of resistors, ICs and other 
paraphernalia that may be installed by mod- 
ifying the computer — the Percom 
SEPARATOR is a fully assembled, fully tested 
plug-in module. 

Installation involves merely plugging the 
SEPARATOR into the Model 1 EI disk con- 
troller chip socket, and plugging the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95, may be purchased from authorized Per- 
com retailers or ordered directly from the fac- 
tory. The factory toll-free order number is 
1-800-527-1592. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 

warranty. Qrcle 508 on inquiry card. 
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What's the answer.' The answer is Percom's OS-8' 
family of TRS-80 disk operating systems. 

OS-80 programs allow direct, immediate interchange-ability 
of Model I and Model 111 diskettes. 

You can run Model I single-density diskettes on a Model 
111; install Percom's plug-in DOUBLER 1 " adapter in your 
Model I, and you can run double-density .Model III diskettes 
on a Model I. 

There's no conversion, no re-recording. 

Slip an OS-80 diskette out of vour Model I and insert it 
directly in a Model III. 

And vice-versa. 

Just have the correct OS-80 disk operating system 
OS-80. OS-80D or OS-80/1I1 — in each computet. 

Moreover, with OS-80 systems, you can add, delete, and 
update files. You can read and u-nte diskettes regardless of the 
system of origin. 

OS-80 is the original Percom TRS-80 DOS tor BASI" 
programmers. 

Even OS-80 utilities are written in BASIC. 

OS-80 is the Percom system about which a user wrote. 
Creative Computing magazine, ". . . the best 530.00 
will ever spend."''' 

Requiring only seven Kbytes ol memory, OS-80 disk oper- 
ating svstems reside completely in RAM. There's no need 1 
dedicate a drive exclusively for a system diskette. 

And, unlike TRSDOS, you can work at the track sector 
level, defining and controlling data formats — in BASIC — 
to create simple or complex iJata structures that execute 
more quickly than TRSDOS files. 

The Percom OS-80 DOS supports single-density opera- 
tion of the Model I computer — price is $29.95; the OS-80D 
supports double-density operation oi Model I computers 
equipped with a DOUBLER ot DOUBLER II; and. OS-80/ 
III — for the Model 111 ol course — supports both single- and 
double-densitv operation. OS-80D and OS-8CTI1 each 
sell for $49.95. 



PRICES ANDSPECIFICATIONSSUBJECTTOCHANGEWITHOUTNOTICE. PRICES DO NOT INCLUDE HANDLING ANDSHIPPIN 

PERCOM DATA COMPANY, IMC. 211 1*1. Kirby Street Qarland, Texas 75042 (214) 272-3421 

"Trademark ol 'Percom Data Company. Inc. "TRS-80 and TRSDOS are trademarks ot Tandy Corp« nation which has no relationship to Percom Data Company *C reative Computing Magazine. June, 1980, page '. 
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...if you can 

This could be yours, but probably never 
$ 1 00 bill is the reward uje offer for the discovery 
of o legitimate bug in o DOSPUJS DISK Operating 
System. To qualify you must be: 

1 . A registered DOSPLUS owner ' 

2. Able to demonstrate and document a real 
bug. not simply a design shortcoming. 

We're convinced that DOSPIUS is the fastest, most 
powerful, anjJHMjest to operate system on the 
market. QOS£Ui »ksl And works right! For the 
businessman ar Bbyists. the speed and simplicity 
cannot $e beacj Be BASIC programmer, '" 
offer you /Horeffian/e do. And for softwan 
compatible gfeyQpb^ystems are available for < Crlbution. 

NO-ONC €LS€ con give you! J 

•Th« same high level of Model I/Model I 
diskette and program compatibility. 
•True, complete BASIC program ' 
uiith riles open and variables so 

UJe have it oil. features galore AND error-fr« 
and you can prove it, we've got a brand nei 







re wrong, 



We're not conceited, we're convinced! 
Order yours today, and soon you will be too!! 

MICRO SYSTEMS 
■' SOFTWARE 

/ -384 5846 Funj I, Florida 33023 

mc. Phone: (3C 
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CALL TOLL FREE FOR FAST SERVICE (800) 824-7888, 
OPERATOR 193FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 193. Alaska and Hawaii dial 

(800) 824-7919, Operator 193 

TOLL FREE UNES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information call (305) 983-3390 or 

drop us a card. 
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by Wayne Green 

"Even more exciting. . . is the new Casio VL-1. 

It also has two and one-half octaves, but 

is only about two-thirds the size of a regular 

piano keyboard, and will fit in your pocket or briefcase. " 



Music, Music, Music 

While only a small percentage of you 
combine music with your comput- 
ers, I'd like to encourage this application. 
This is a request for more articles on gen- 
erating music with your TRS-80 systems. 

Paia has a wide variety of great gadgets 
which can work with your computer to 
allow you to simply play music, or com- 
pose. You might want to check their latest 
catalog. 

The M-10, one of the inexpensive Casio 
keyboards, sells for around $150 and has 
two and one-half octaves. It is a full-sized 
keyboard, yet it is small enough to carry 
around. It can handle up to eight notes 
simultaneously. This unit has no memory, 
but looks as if it could be easily connected 
to a computer as a keyboard input for syn- 
thesized composing. I'd sure like to see 
some articles on this combination. 

Even more exciting, perhaps, is the new 
Casio VL-1. It also has two and one-half oc- 
taves, but is only about two-thirds the size 
of a regular piano keyboard, and will fit in 
your pocket or briefcase. It can handle on- 
ly one note at a time, but it has a memory 
for 100 notes and will play them back with 
the same rhythm with which you enter 
them. The unit also has ten different 
rhythms built in, which you can program 
and vary in tempo over a wide range. To 
cap it, there is a built-in song, complete 
with the rhythm accompaniment. 

The VL-1 also has three octaves which 



are switchable, a mix of rhythm and melo- 
dy which is variable, and six different in- 
strument generators. The number six gen- 
erator is programmable so you can create 
any type of synthesized tone you want. 
The tone has eight parameters which can 
be programmed. 

The batteries are built-in, as is a small 
speaker and an LCD readout of the notes 
you are playing. This shows the current 
note being played, plus the last two previ- 
ously played. For around $70, this has to 
be one of the best adult toys yet, and ideal 
for a musical computer system. ■ 

80 Subscriptions 

The subscription ad for 80 has raised 
some eyebrows at Radio Shack. For a 
big outfit as tough on suppliers as they 
are, they seem to have suprisingly thin 
skins. I put the Radio Shack catalog 
prices alongside those advertised in a typ- 
ical recent issue of 80, and noted that by 
patronizing 80 advertisers, you could save 
$986 on the purchase of a Model III sys- 
tem. That seemed to me like a very good 
reason to buy the magazine. 

Since writing that ad I've had some sec- 
ond thoughts; I wish now that I'd thrown in 
an offer of $14 worth of Instant Software 
free for anyone buying the package, mak- 
ing their total savings $1,000. That would 
pay for a lot of subscriptions. 

The typical issue of 80, in addition to be- 
ing able to save you a kilobuck on buying a 




Casio VL-1. 



system, includes several hundred dollars 
worth of software. Now. if we could just 
get you to mention this to your friends- 
even those who have not yet bought their 
TRS-80— heck, particularly those who 
have not yet bought. We can save them a 
bundle. You'll have to save yours on your 
second system, or your accessories. 

Load-80 

The idea of this project was to provide 
Load-80 subscribers with the programs in 
each issue of 80 on a cassette. Having 
typed my fingers to the bone entering 
some long programs, only to find that I'd 
made errors, I thought you might appreci- 
ate this service. The time and aggravation 
it takes to type one program will more 
than pay for a Load-80. 

Interest has been rising monthly so 
we'll be offering it as a yearly subscrip- 
tion. We didn't rush to make this offer 
because we weren't sure how well the 
project would take off. Well— let's say 
some people around here were worried; I 
felt it had to be a winner. We had a few 
problems getting all the programs on 
magnetic media, but it seems to be run- 
ning smoothly now. 

The '80 Encyclopedia 

First we planned to reprint some of the 
80 articles in book form for possible sale 
through Radio Shack. But as we looked at 
the situation, we realized we had enough 
important original material to put out a 
monthly book of around 300 pages. This 
material covers information that Radio 
Shack doesn't provide about the TRS-80, 
and programs for the system. Each issue 
includes hundreds of dollars worth of pro- 
grams. 

Trying to keep up with developments 
concerning the TRS-80 is initiating a grow- 
ing number of publications. Remember 
that the more information you have about 
a computer, the more you can get it to do. 

Just to give you an idea, in a recent call 
from an employee of a firm which writes 
software for the IBM 5120 system, I was 
told that his firm had recently adapted 
their bookkeeping software for use on the 

Continues to page W 
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"l/1/e have run numerous checks 
. waits of two to six minutes are 



much more common than 20 to 30 minute waits. 



This past week, I received a couple of 
phone calls from TRS-80 owners who 
have unsuccessfully tried calling our 800- 
number. As I said last month, we have ex- 
panded both our staff and the number of 
incoming WATS lines. 

In April, when the present phone sys- 
tem was being installed, there were some 
known glitches which allowed an occas- 
sional incoming call to circumvent the 
queue of waiting callers. As far as Ma Bell 
can determine, that is no longer possible. 

In May, our Computer Services group 
answered over 21,000 telephone calls. 
Even with such a large number of calls, if 
you use the numbers I gave you last 
month (which are published monthly in our 
newsletter), you could end up in a queue 
of as many as 11 callers at the worst. We 
have run numerous checks and find that 
waits of two to six minutes are much more 
common than 20 to 30 minute waits. 

So, to minimize delays in getting help or 
information, try your local store first. Step 
two is to call your nearest Radio Shack 
Computer Center or store with an expand- 
ed computer department and computer 
marketing representative. We've tried to 
staff these locations with knowledgeable 
people, who have received specialized 
training in the computer hardware and 
software lines. Whether or not you bought 
your equipment from them, they will help 
when you need it. 

A call to Fort Worth should be your last 
resort, when help in the field isn't close 
enough, or the answer simply isn't avail- 
able there. The phones are manned by a 
full staff from 8 a.m. until 5 p.m., and by a 
reduced staff until 7 p.m., all Texas times. 
The least busy time is early morning. The 
busiest is midday. The last few days of 
one month and the first few of the follow- 
ing month are the worst times, as busi- 
ness people doing month-end closeouts 
call then with questions. 

Radio Shack Newsletter Expands 

The TRS-80 Microcomputer News has 
grown by leaps and bounds. Throughout 
the second quarter of this year, it's been 
24 pages. The advertising insert is gone, 
and we've been getting lots of compli- 
ments on the content. Almost half of the 



May issue was devoted to an in-depth 
story of Radio Shack's printer codes, re- 
sponses, graphics modes, and even a de- 
scription of the printer drivers in Models I, 
II and III. Each issue also carries a fair 
number of user-submitted programs. If 
you do get the newsletter, and have any 
suggestions, by all means, let us hear 
them! 



XX A call to Fort 

Worth should be 
your last resort, 
when help In the field 
.just isn't available." 



Level II Basic Tutorial 

We have a new tutorial manual avail- 
able for Level II and Model III Basic own- 
ers called Getting Started with TRS-80 
Basic. It should be available in your local 
stores by the time you read this. It is in- 
cluded with new (non-Level I) Model Ills. 
Those of you who bought your Model III 
before it was available, and sent in your 
cards, will be sent a copy automatically. It 
is $6.95, and is available under Catalog 
No. 26-2107. The style is very much like the 
original Level I tutorial manual, and it 
assumes you are a beginner. 

Plug 'N Power Controller 

Some of you may be familiar with Radio 
Shack's Plug 'N Power light and appliance 
controller system. Modules connected be- 
tween lights or appliances and the ac line 
can be controlled remotely from a small 
controller box. The signals from the con- 
trol box to the modules are carried on the 
ac line itself. You can turn things on or off, 
and you can dim lights, all from the con- 
trol box which could be placed anywhere 
in your house. 



The system includes the controller, and 
software to control up to 256 possible 
modules. Connection is via the cassette 
port. Brightness of lights is adjustable to 
any of 10 levels under computer control. 
However, this is a one-way communica- 
tion system. An errant module cannot be 
detected, nor can a module communicate 
in any way with the computer. The soft- 
ware allows either direct command from 
the keyboard, or the execution of instruc- 
tions based on a specified schedule and 
the real-time clock. The software (minus 
RTC functions) can even be called as a 
subroutine by other Basic programs. 

Videotex Update 

A lot of folks got quite wound up when 
we announced Videotex a year or so ago. 
Others weren't overly enthusiastic. As you 
know, we announced both a Videotex ter- 
minal, and software to turn your personal 
computer into a terminal. Initially, we in- 
cluded a free hour on the CompuServe In- 
formation Service (the MicroNet folks). To- 
day, you still get that hour, plus an hour on 
the Dow Jones Information Service. But 
what do the services actually offer? 

CompuServe offers news from eight 
major newspapers (more coming) includ- 
ing the New York Times. Columbus Dis- 
patch, Virginian-Pilot and Ledger Star, 
Washington Post, San Francisco Chroni- 
cle, San Francisco Examiner, Los Angeles 
Times and Minneapolis Star & Tribune 
plus the complete AP newswire. You can 
get national, international, regional and 
local news, weather, sports and commen- 
tary. 

Then there's family information on sub- 
jects including food, nutrition, personal 
health, etc., and an encyclopedia-like 
bank of general reference material on his- 
tory, geography, world events and famous 
people. Of course there is also a wide 
selection of games. 

Several kinds of electronic communica- 
tion are available, including mail (send 
and receive messages), a bulletin board 
for posting general information, and a CB 
simulation which allows on-line chatting 
between subscribers on a number of 
available channels. 

CompuServe's MicroNet service lets 
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you program a mainframe computer in Ex- 
tended Basic, Fortran, APL, Pascal, BLIS 
10, Snobol and Assembly. There's a Micro- 
Net software exchange, and you order 
computer-generated art suitable for fram- 
ing or papering a small wall! (Programs 
can be downloaded only into computers, 
not into a Videotex terminal.) 

Dow Jones Information Service 

This database contains exclusive cur- 
rent and past news stories from the DJ 
News Service, the Wall Street Journal, 
and Barron's National Business and Fi- 
nancial Weekly. You'll have access to cur- 
rent price quotations (15-minute delayed) 
on more than 6,000 stocks and other 
securities listed on the New York, Ameri- 
can, Midwest and Pacific exchanges. Dow 
Jones also allows access to revenues, 
earnings, dividends, price/earnings ratios 
and stock price performance relative to 
market indicators, on 3,200 companies 
and 180 industries, through an agreement 
with Media General, Inc. You'll get the 
latest breaking business and financial 
news within 90 seconds, selecting only 
the exact information you want to know 
more about. News within the past 90 days 
is also available. 

There are enough new and exciting 
things happening with the TRS-80 Video- 
tex, that you'll surely want to try it out 
soon if you haven't yet. It's all happening 
so fast that I can almost guarantee you 
that this information will be outdated by 
the time it reaches you. And it won't be 
long before more local databases begin 
springing up for you to access with your 
Videotex software. We have installed sev- 
eral Videotex host computer systems- 
Model II systems with eight or 16-line Ra- 
dio Shack multiplexers. 

This month I had plans to do a special 
project for the column (I mentioned it in 
closing last month in fact.) Unfortunately, 
we've been in the process of putting the 
1982 Radio Shack catalog to bed, and pre- 
paring a bigger and better Computer Cata- 
log you'll see late in the fall. We have at 
least another month's intensive work on 
the computer book, so I may not even 
make it in September, but I'll try. Given a 
choice, though, you'll find the new catalog 
a lot more exciting than my ramblings.H 

Errata 

/ must apologize for two errors in last 
month's column, both prices. The new 
price on the Pocket Computer is $229.95, 
not $229.00, arid the price on the new 
printer/cassette interface is $149.95, not 
$149.00. 

While I'm at it, I'll tell you PC owners to 
be watchful when you run your Radio 



Shack programs with the new printer. PC 
Basic responds to Print commands by dis- 
playing the requested information, and 
waiting until you press Enter to continue. 
Well, when you've initialized the printer, 
Print commands do not pause, resulting in 
a continuous printout of the menu until 



you press Break. 

The reason is that when most of those 
programs were coded, the printer was still 
only a gleam in our eye. Many of the exist- 
ing programs are memory tight, and 
wouldn 't lend themselves to easy modifi- 
cation. 



5(9 REMARKS 



from page 7 



TRS-80 and found the system to be better 
and faster than on the IBM— and at a frac- 
tion of the hardware price. 

Desktop Computing 

In the past I have briefly mentioned a 
new publication we're getting ready for 
this fall. I wanted a magazine with articles 
written from the user's point of view, and 
written completely in plain English. That's 
right, no computerese or buzzwords. 

Enthusiasm is growing rapidly. It's a 
badly needed magazine, one which will 
tell the businessman about computer sys- 
tems which are actually doing jobs he 
wants done.H 

Tandy Growth Retarded 

A recent report by International Re- 
source Development, Inc. pointed out 
that Radio Shack growth is being held 
back by the long-term company policy of 
selling only Radio Shack products. With 
computers by far the most important 
aspect of Radio Shack sales these days, 
the report concluded that unless Radio 
Shack starts handling products of other 
firms in their stores and computer cen- 
ters, they are in a position to be hurt by the 
Japanese and larger U.S. firms entering 
the market. 

Indeed, it is possible that the Radio 
Shack management has developed an 
over-confident attitude as a result of their 
success— mostly over poorly financed 
and inadequately managed competitors. 
Now, with the big guns getting ready for 
the battle for the small computer market 
of the 1990's, the old Radio Shack tactics 
may not be the best to continue. 

In my discussions with Radio Shack 
personnel I've run up against a hardened 
attitude toward "the way we've always 
done it." Well, that may have worked in 
the low-priced electronics market, but 
Radio Shack is selling to a new group to- 
day: middle income people and business- 
men. 

For instance, there is little argument 
that this publication has helped the sale 
of TRS-80 systems. There is, however, a 



fear of selling it in Radio Shack stores be- 
cause there are non-Radio Shack prod- 
ucts advertised. They are continuing the 
rule of keeping out non-Radio Shack mer- 
chandise—and that includes 80. 

When Radio Shack talks software with 
us, they are only interested in a few of the 
"best sellers." This is one of the key prob- 
lems which could have long term reper- 
cussions and give IBM and some of the 
Japanese firms the edge they need to sink 
Tandy. In order to fit computers into busi- 
ness—and to people— it is necessary to 
carry a wide range of software, not just a 
few best sellers. 

Of course, it's possible that every major 
firm coming, into the small computer field 
is going to be as myopic and hidebound 
as Radio Shack, in which case your invest- 
ment in equipment and programs could be 
safe. Even an investment in Tandy stock 
might be safe. But the likelihood of all 
firms pulling the same self-destructive 
stunt is minimal, particularly when there 
are a growing number of software firms 
pressing for sanity in the.field. If any one 
firm wakes up, they could have an unbeat- 
able edge over the others— and that in- 
cludes the 6,000 Radio Shack store selling 
system. 

Back in the early days of the TRS-80 the 
chap who got Tandy involved with the 
TRS-80 also got them to try out a Tandy 
Computer Center. It was set up in the Tan- 
dy building Ft. Worth, in their enormous 
lobby/skating rink/mall. The store did well, 
but it quickly got away from selling Tandy 
equipment and started going strong for 
equipment from other manufacturers. The 
Tandy management blew the store right 
out of the water, including manager Don 
French. 

Tandy wanted to sell Tandy equipment, 
using the age old Radio Shack formula. I 
don't know who shot down the experi- 
ment, but I believe that if it had gone 
ahead, they might have a couple of thou- 
sand Tandy Computer Centers around the 
country, instead of the Byte Shops and 
Computerlands we now see. And Tandy 
would have had a lot more control over Ap- 
ple and other upstarts. 

The IRD report gives the warning. The 
story is not much different from what I 
have been trying to tell 'em in Ft. Worth. ■ 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 

CALL TOLL FREE 1-800-321 -3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 



PERSONAL COMPUTER 

BY MARK SAWUSCH 



$7.95 



333 pages, written in simple terms, of 
'what-to-do" and "how-to-do-it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estate Evaluation Test Your Typing Speed 



Astrology 
Income Tax 
Speed Reading 
Personality Test 
Statistical Analysis 
Logic Circuit Analysis 
Carpenter and Mechanic's Helper 
General Purpose Clock Timer 
■ 



Finances & Investments 

Biorythm 

Energy Efficiency 

Antenna Design 

Letter Writing 

Recipe Index/Calculator 



"OTHER MYSTERIES" 
VOLUME II! 

by Dennis Kitsz 

Call now and place your order for this new 
book, "THE CUSTOM TRS-80™ & OTHER 
MYSTERIES", from IJG. Inc. More than 
300 pages, with over 60 photographs, of 
projects for the hardware hobbyist. In- 
cludes schematics. PC layouts, software 
driver code, etc. for such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time clock/calender, 
music synthesis. ROM/RAM additions and 
more! 

THE CUSTOM TRS-80™ $29.00 

CALL FOR AVAILABILITY 



MICRO? A RA PHERNA LI A 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat $149.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS, with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 



TRS-80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation. DATALIFE is a 

trademark ol VERBATIM PLAIN 

JANE. AIDS I. AIDS III. CALCS III, 

CALCS IV. MERGE-IN are 
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1981 by Metatechnologies 
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Let your TRS-80 IV Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package, "INTRODUCTION 
TO TRS-80 1 ASSEMBLY PROGRAMMING" in- 
cludes ten 45-minute lessons on audio cassettes, a 
display program lor each lesson providing illustra- 
tion & reinforcement, and a text book on TRS-80' 
Assembly Language Programming. Includes use- 
ful routines to access keyboard, video, printer and 
ROM. Requires 16K - Level II. Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80'" Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK-1 is a concise, 
capsulated supplement to REMASSEM-1. Package 
consists of two 45-minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I/O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



Let Your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 



by THE MICRO CLINIC 

A complete checkup lor your Model I. THE 
FLOPPY DOCTOR completely checks every sec- 
tor of 35- or 40-track disk drives. Tests motor 
speed, head positioning, controller functions, 
status bits and provides complete error logging. 
THE MEMORY DIAGNOSTIC checks for proper 
write/read, refresh, executability and exclusivity 
of all address locations. Includes both 
diagnostics and complete instruction manual. 

SYSTEM DIAGNOSTICS $19.95 

An improved version of the SYSTEM 
DIAGNOSTICS above. Designed for single 
or double density. 35-. 40-. 77-, or 80- 
track disk drives. Includes new and 
modified tests. Features THE FLOPPY 
DOCTOR. Version 3.0. 

SYSTEM DIAGNOSTICS-V3. . $24.95 



Single Sided. Soft-Sectored 5'/4-inch. 
(for TRS-80™) Mini-floppy 

DISKETTES 



$21 



95 

box of 10 



PLAIN JANE ™ 

These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

PLAIN JANETM Diskettes $21.95 

lOboxesoflO (each box)S2 1.50 

PLAIN JANE™ ( f}<M 

Introducing MTC's premium generic 
diskette. Single-Sided. Soft-Sectored. 
DOUBLE-DENSITY. 5'/4-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PLAIN JANE™ 'fioM S25.95 

VERBATIMS PREMIUM DISKETTES 

DATALIFE 

Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM. Shugart. ANSI. ECMA 
and ISO standards. 
VERBATIM DATALIFETM DISKETTES 

5'/4-inch (box of 10) 

MD525-01 S26.95 

10 boxes of 10 (each box)S25.95 

8-inch FLOPPIES 

Double-Density. FD34-8000 . $43.95 



'RINGS' 


& 


THINGS | 


HUB RING KIT for 5'/4" disk 
HUB RING KIT for 8" disks. 
REFILLS (50 Hub Rings)... 


$10.95 

$12.95 

S 5.95 


CLEANING KIT for 5 V drives $24.95 | 




$3.50 




$3.95 


51/4-inch File Box for 


. . . $24.95 1 


8 inch File Box for 


. . $29.95 
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• Ohio residents add 6'/?% 
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SO INPUT 



A Novice Replies 



Mr. Pennington, you are absolutely cor- 
rect—I am a naive computer novice ("Bad- 
image and Discipline," March). Had I been 
a pseudo-expert, I too might be writing 
books, but as a novice who is anxious to 
learn, I just read them. 

You also may be correct about my lack 
of understanding of English because I ap- 
parently read meaning into the title of 
your book that you hadn't intended. And, 
as I reread the title "TRS-80 DISK & Other 
Mysteries," it still suggests you are going 
to tell us all about how the TRS-80 disk 
system works. One or your advertise- 
ments describes your book as "The Defini- 
tive Work on the TRS-80 Disk System" 
—wow— definitive. And, your table of con- 
tents lists "Operating Systems," so you 
too were fooled by your book's title. 

John Grass 
Portola Valley, CA 



Cabin Fever 



I am working at an isolated site at Yan- 
bu, Saudi Arabia where my company is 
managing a project to complete an entire 
industrial city in the next 25 years. Our 
present population includes over 20,000 
people of at least 35 nationalities, as well 
as 23 Apples and three TRS-80s, two of 
which I own. 

I brought an old Model I Level I 4K unit 
with me, then was lucky enough to find a 
good deal on a 32K two disk unit with the 
famous Quick Printer. I had no idea what it 
was all about, but I was sure I needed help 
in fighting cabin fever. I had only the 
March 1980 issue of 80 to give me a hint of 
the potential uses of the machine, and 
during the next month's vacation trip 
home to New Orleans, I grabbed all the 
back issues I could lay my hands on, in- 
cluding the splendid May issue with the 
handy word processor that I have modi- 
fied somewhat to fit into aluminum paper. 
Soon I ordered my subscription, even 
though I was intimidated by the $60 over- 
seas air mail price. 

I must say that, for all its flaws, your 
publication has been of incalculable use 



"Not all schools 

are armed camps 

with frustrated teachers 

and chaotic classrooms. " 



to me here. It is much better presented 
than anything my Applecomputing friends 
have shown me, both in format and in con- 
tent. Some readers have complained 
about the advertising; another explained 
that he would have to go 120 miles for 
computer items. Well, I can go 185 miles 
of desert away, if I can get transportation 
not normally available for unofficial use, 
only to find sales people who have trouble 
with Level I English. Your magazine is my 
Sears & Roebuck Catalog. I have ordered 
a popular dot matrix printer, and word pro- 
cessing and mailing list software through 
your advertisers. 

Shipping is horribly expensive, and 
there is no guarantee that customs will al- 
low anything in. Transmitting devices are 
not allowed, so electronics are suspect. 
My printer is coming in with a friend from 
the states on a business trip, if he can get 
one off the shelf in the Los Angeles area. 
At least he will be able to explain what it is 
if there are any questions. Also, the days 
of the retail computer shop with sales 
staff to hold your hand are numbered, and 
the mail order houses are holding the keys 
to the marketplace. I hope my software 
can get in by mail. 

Charles B. Dupre 

Saudi Arabian Parsons Ltd. 

Jeddah, Saudi Arabia 



SYZYGY 
Interface Module 

Congratulations to Dr. James Nestor 
for documenting his difficulty in interfac- 
ing a Xerox 1740 and Model II (June 1981). 
He provided a clear explanation of a com- 
mon problem that arises when a computer 
RS-232 serial port is connected directly to 
a peripheral device, and even greater frus- 
tration when that device is a letter quality 
printer. 

The problem is not with the Model II or 
with Xerox 1740, but occurs whenever a di- 
rect connection is used instead of a mo- 
dem. The solution consists of fooling the 
port and printer into thinking that intelli- 
gent handshaking is occurring by use of a 
device called a null modem. He correctly 



pointed out one configuration. A more 
useful configuration is one that also per- 
mits a four conductor cable to be used 
(pins 1, 2, 3, 7); all handshaking is absent. 
But shame on him for proposing that the 
changes be made on the Xerox cable con- 
nector. The Xerox as well as the other let- 
ter quality printers he mentioned are ex- 
pensive, complex devices. The cord is per- 
manently attached, and to cut and splice 
is butchery. If and when he sells it or uses 
it with a modem, it will not work. Without 
the manual, he or the next person will not 
be able to reconfigure it correctly. 

There is a family of interface modules 
manufactured by S Y Z Y G Y designed to 
overcome the obstacles faced by Dr. Nes- 
tor. They are less than two inches long 
and have a connector on each end and are 
simply plugged onto the end of the Xerox 
cord and then plugged into the RS232 
computer port. All the necessary connec- 
tions are done by the module. A similar 
unit is available to change the sex of the 
connector on the end of your RS-232 ca- 
ble. Additionally, SYZYGY makes an 
RS-232 Patch Set that would have reduced 
Dr. Nestor's time for diagnosis and treat- 
ment to a few minutes. 

Richard L. Rohde, president 
SYZYGY 
Covina, CA 

In Defense of Teachers 

I am a public school library media 
specialist in Jefferson County, Colorado, 
and president of Local 900 of the Ameri- 
can Federation of Teachers. As such I 
have strong objections to comments 
made in Mr. Green's 80 Remarks in the 
May 1981 issue. I agree there are lots of 
problems with public education today. 
However, public schools are not nearly as 
grim as he describes. Not all schools are 
armed camps with frustrated teachers 
and chaotic classrooms. Many teachers 
are doing an excellent job. These students 
are only a "captive audience" in that they 
are required by law to be there. Because 
education is compulsory the teacher 
needs to make it more interesting (than it 
Continued on page 16 
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MTCAIDS- 



MODEL I . . .$69.95 MODEL II . . .$99.95 

Introducing the latest addition to MTC's family of data management systems. AIDS-MI. NO 
PROGRAMMING, easy to use. COMPLETE PACKAGE including demonstration application, 
documentation and MAPS-HI (see below). 

• Up to 20 USER-DEFINED FIELDS of either numeric- or character-type. 

• CHARACTER-type fields may be any length (total: up to 254 characters). 

• NUMERIC type fields feature automatic formatting, rounding, decimal alignment and 
validation 

• Full feature EDITING when adding or changing records: 

ENTER FIELD (can't type-m more characters than specified). 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents 

DELETE FIELD contents. • SKIP FIELD (to next or previous field). 

RESTORE FIELD contents • SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted. 

• 200 RECORDS (40 characters) in about 5 SECONDS 
ANY COMBINATION of fields (including numerics) with each field in ascending or 
descending order. 

• SELECTION of records for Loading. Updating. Deleting. Printing and Saving is 
MACHINE CODE assisted. 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 
LOAD or SAVE selected records using MULTIPLE FILES. 

- Example: Select records representing those people who live in the state of Col- 

orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed S9000.00. 

- Example: Select records representing those sales made to XYZ COMPANY that 

exceed S25.00. between the dates 03/15 and 04/10. 

MAPS III (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features: 

• Full AIDS-MI SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE. 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation. 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

BELOW ARE TESTIMONIALS from owners of AIDS systems. These are absolutely authentic 
statements and are typical of the comments we receive. 

"This program will do more lor my business than all the other programs I 
have, combined." 

David Wareham, Vice President (EDP). National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-HI is easily 
the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." . , _,... . . _ . , __ ,. , „ 

Jack Bilinski. President. 80 Microcomputer Services 

'Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm, Director. Front Door Residential Treatment Program^ 



MTC AIDS CALCULATION SUBSYSTEM! 



MODEL I . . .$24.95 

MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User-specified page title 

• Columnar Headings 

• Optional Indentation 

• Use for accounting, inventory, financial 
and other numeric-based information 



MODEL II . . .$39.95 

Columnar subtotals generated when 
there is a change in a user-specified 
column. 

User-specified Columnar Totals 
Columnar values computed using con- 
stants and/or column values 
Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 



systems. 
Compare AIDS-lll' M /CALCS-lll'" with any other data management package under $100! 

CALCSIII" REQUIRES THE PURCHASE OF AIDS-liT" 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 

MTC CALCS-IV™, that is. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCS-IV™ $39.95 

For Model II $59.95 

CALL FOR CALCSIII 
UPG RADE PRICIN G 

MTC AIDS MERGE-IN™ 

This subsystem will combine up to 14 AIDS' 
created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for high-speed perfor- 
mance. MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE-IH™ $19.95 

For Model II S29.95 

MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5'/4 M PLAIN JANE™ $21.95 

SW PLAIN JANE™ <fuM $25.95 

5'/4" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-80O0 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat $149.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER .... $ 7.95 



MORE 

PRODUCTS 



TRS-80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation. DATALIFE is a 

trademark ol VERBATIM. PLAIN 

JANE. AIDS I AIDS III CALCSIII. 

CALCS-IV. MERGE III are 

trademarks ol MTC. 
1981 by Metatechnologies 
Corporation. Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 
August 1. 1981 THRU 

August 31. 1981. 

Prices, Specifications. 

and Offerings subject to 

change without notice. 

8108 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 



•Add S3.00 for shipping 

& handling 
•53.00 EXTRA for C.O.D. 
• Ohio residents add 6'/:% 

sales tax. 



SO INPUT 



SftAID 



Producing Musical Script 

Help! Having recently acquired an 
MX-80 type II printer for my 48K twin 
disk TRS-80, I am keen to use the ex- 
cellent dot-matrix ability to produce re- 
production quality musical script suit- 
able for school and/or church use, but 
the total scope of the project defeats 
me. 

Is there anyone out there with the 
same need who would be prepared to 
cooperate in a joint effort to do this? 
My Basic is a little above average (I am 
a full-time user in another field— yacht 
design) and my musical knowledge is 
the same as my machine language pro- 
gramming ability, just adequate to the 
task. 

If there are enough starters the ef- 
fort could be agreeably shared. So far I 
have never seen any published materi- 
al on this topic and any references 
known to a reader would be appreciat- 
ed. 

Mike Tattersall 

Box 14588 

Panmure 

Auckland, New Zealand 



Converting T-Bug 

Does anyone know how to change 
T-Bug's tape loading and writing pro- 
cedure so it works on a Model III? I 
have been trying to convert the tape I/O 
to ROM routines but have so far been 
unsuccessful. Any help would be 
greatly appreciated. 

Jonathon Yarden 
3408 Fliothaven Rd. 
Louisville, KY 40222 

Freeing Memory 

When I added the extended Basic 
ROM to my TRS-80 Color Computer I 
was very disappointed by the drastic 
reduction in free memory. Ed Rutledge, 
a colleague in another department 
who also owns a color computer, 
stopped by recently to see our new Ep- 



son MX-80. He mentioned in passing a 
way to free up most of the memory re- 
served for graphics by Extended Basic: 
PMODE 0,1 PCLEAR 1 

These commands may be entered in 
direct mode or included in a program. 
PRINT MEM now returns 13095, clear- 
ing 4500 of the 6000 bytes automatical- 
ly reserved. If anyone has figured out 
how to free up the final 1.5K, please 
pass the information along. 

David M. McCord 

Psychology Dept. 

University of Alabama 

University, AL 35486 



Printing 
Astrology Program 

Help! When Radio Shack had its last 
sale I bought the Astrology program 
for my TRS-80 Model 1. 1 have a GE Ter- 
minet serial printer connected to it and 
when I bought the program I knew I 
would have to make some changes for 
the printout. Unknown to me, this pro- 
gram bypasses the Level II ROM driver 
and it uses its own to print. This made 
things a lot harder. I found out where 
the Basic printing source code is, 
689AH to 68D4H. This will print 95 per- 
cent of the printout, but at the end it 
runs off the end of the paper and stops. 
If anyone has solved this problem, 
please contact me. 

Tarus Paul Balog 

1655 Plantation Circle 

Asheboro, NC 27203 



Parts List Wanted 

I enjoyed the article in your Septem- 
ber 1980 issue on Selectric Hard Copy 
by Mr. Michael W. Bickerton. To follow 
through with a similar project of my 
own, I wrote to Mr. Bickerton request- 
ing a parts listing; I have yet to receive 
a response. Since I am still interested 
in getting my Selectric to work with a 
Heath H-89 with serial, ASCII RS232 in- 
terface, I would appreciate a parts list, 
specifically the IC identification, plus 



any other hints or recommendations 
regarding construction and operation 
of this interesting project. 

W. C. Pfingstag 

939 Cedar Ave. 

Mare Island, CA 94590 

We also tried writing Mr. Bickerton 
with no luck. If you're out there, 
Michael, send us your new address. 
—Eds. 



Game Confusion 

I have appended seven games and 
made a menu to play whichever game I 
choose and that's where the trouble 
starts. I am getting data statements 
from other games that are creating 
havoc and discontent. How can I get 
the stack printer to read data from the 
game being played and not from the 
first data statement of the first game? 
In other words, I would like to have 
each game separate, even though the 
games are on one load with consecu- 
tive line numbers. 

These were appended using "Boss." 
but there is nothing mentioned about 
this data problem. 

Dennis Banik 

E. 29 Euclid 

Spokane, WA 99207 



Calling All Fortran Users 

The Radio Shack Fortran system for 
the Model I TRS-80 (item no. 26-2201) 
has been around for many months 
now. There must be many regular 
users among the readers of 80 Micro- 
computing. This reader would like to 
hear form those Fortran users for the 
purpose of comparing notes and com- 
ments. If enough response and inter- 
est appears, one or more articles will 
be prepared for possible publication 
summarizing the results. 

Gerald A. Sabin 

6022 Sage Drive 

Orlando, FL 32807 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



V20 



TAKE YOUR 

MODEL II TO 

NEW HEIGHTS 




SVffiN 



MTC is proud to announce MTC EXTENDED 
BASIC for the Model II, by R. Ryen. Features in- 
clude "fixes" to existing BASIC, multi-line func- 
tions, extending an existing sequential file, PEEK, 
POKE, greatly enhanced screen control and ex- 
panded editing capabilities. The contents of 
variables are NOT CHANGED when editing, delet- 
ing, inserting or merging lines, allowing continued 
program execution! All this and much more. 

MTC EXTENDED BASIC $ 99.95 



80-20=129^ 

THE ORIGINAL NEWDOS/80 

WITH MTC QUE CARD 

• SPECIAL PRICE • 
SAVE $20 $129.95 

Apparat's long-awaited successor to NEWDOS+ is here! This is not an enhanced ver- 
sion of NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN-ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3.0, etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex" (you'll have to 
judge for yourself!). Includes 180-page instruction manual and MTC QUE card. 

NEWDOS/80 # SPECIAL # $129.95 

MTC QUE Card only $ 7.50 

CALL REGARDING OUR NEWDOS + UPGRADE PRICING 

MODEL III VERSION 

Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 

NEWDOS/80 for Model III $149.95 

CALL FOR AVAILABILITY 



MICROPARAPHERNALIA 
DISKETTES (box of ten) 

5'/4" PLAIN JANE™ $21.95 

5'/4" PLAIN JANE™ 'fioM $25.95 

5*/4" DATALIFE™ MD 525-01 . . $26.95 
8" DATALIFE™ FD34-8000 .... $43.95 

NEWDOS by APPARAT 

NEWDOS/80 by Apparat $149.95 

NEWDOS + to 

NEWDOS/80 UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-track $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $29.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER.... $ 7.95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

for 
Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 



$69 



95 



by Apparat 






Includes REF, RENUM. SUPERZAP, 
EDITOR/ASSEM.. DISASSEM., DIRCHECK. and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 

40-Track Version $79.95 

MTC QUE Card only $ 1.50 



MORE 

PRODUCTS 



TRS-80 is a trademark ol the 

Radio Shack Division ol Tandy 

Corporation. DATALIFE is a 

trademark ol VERBATIM. PLAIN 

JANE. AIDS I. AIDS III. CALCS ■III. 

CALCS-IV. MERGE-IN are 

trademarks ol MTC. 
1981 by Metatechnologies 
Corporation. Inc. 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 
August 1. 1981 THRU 

August 31, 1981, 

Prices, Specifications. 

and Offerings subject to 

change without notice. 

. 8108 ^ 


WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD. 


•Add $3.00 for shipping 

& handling 
• $3.00 EXTRA for C.O.D. 
•Ohio residents add 6'/*% 

sales tax. 



SO INPUT 




The Cathode Connection 

In the October 1980 issue I found an 
article that was just what I needed. 
What I didn't need was the trouble I 
had putting it to use. 

James D. Kunzman described how 
to interface an NEC Spinwriter (serial) 
to the TRS-80. 1 have been using a Spin- 
writer for over a year but with the same 
problems he described when trying to 
run at 1200 baud. 

His cure was very simple except for 
one thing. In column 3 on page 146 he 
said to connect the anode of the 1 N914 
diode to U3 pin 11. He meant to say 
cathode. Naturally I checked every- 
thing in the system before I thought to 
check that. It works fine now. 

Since his address is just down the 
road from me I tried to call him. I guess 
Uncle Sam's Air Force has forced him 
to move on. He is unknown at his listed 
number. 

Russell L. Pyke 

9770 S. W. 159th St. 

Miami, FL 33157 

Confused 
Variable Names 

Several of your readers have asked 
me about my Car Mentor program in 
the May 1981 80 Microcomputing. 

After close study and with consider- 
able help from your readers, I found the 
following errors in the program: 

Line 1210 should read DR = X(20yi2/100 

Line 1220 should read X1 = DR-{X(2iyi2/100) 

Line 1230 should read X2 = DR-<X(22)/12n00) 

Line 1300 should read L = X(19yi2/100 

Line 1730 should read TH(J) = IP(J) + XH(J) + IH(J) 

+ RH(J) - TD + DP(J) 

The problem came about because I 
used the array X(J) to handle data in- 
put. Somewhere along the line I lost 
track of what value was where (even 
though I had a list in the remarks). The 
moral of the story is: Use unique vari- 
able names for each of the input vari- 
ables. Using unique variable names 
will make the program somewhat long- 
er, but you won't forget (or are less like- 
ly to forget) where you put what. I 



wouldn't have made the above errors 
had I used unique variable names in- 
stead of the array. 

Note that these changes will change 
the answers. I suggest that anyone us- 
ing the program type it in as is. Get the 
results shown in the example; then 
make the change. 

Leslie E. Sparks 

1014 Evergreen Drive 

Durham, NC 27712 

Apology to RS Dealers 

This concerns the article in the 
March 1981 issue titled "Opinion = 
Peek (Mail)," or "Dear Radio Shack." 

I fully expect that in 1981 we will see 
a full network-type database manage- 
ment system released for (not by) the 
Shack to revolutionize information 
management. 

My apologies to any Shack dealers 
who might have been bugged by inquir- 
ies about the database manager. And 
a special apology to Micro Data Base 
Systems, Inc., of Lafayette, IN that did 
release this remarkable piece of pro- 
gramming. 

Jim Glosser 

Harley-Davidson Co. 

1925 Eden Rd. 

York, PA 17402 

Missing Listing 

As nice as it is to see one's own 
name in print in your magazine, I must 
tell you that in your May issue, it was 
only half nice. 

My article, "Talk to your TRS-80" 
which appears on page 296, makes ref- 
erence to the accompanying program 
listing, that is nowhere to be seen. 

Since it has been some time since 
you originally had this article, I guess 
the listing has been lost, strayed or 
erased, therefore I am enclosing an- 
other for those who might be inter- 
ested. 

I have also adapted the original 

TRS-80 program of "Blackjack" to op- 

Continued on page 19 



used to be) to: 1) encourage student learn- 
ing (remember the adage "you can lead a 
horse to the water, but you can't make him 
drink"?); and 2) compete with TV. 

Most students are there to learn and are 
learning far more now than they were in 
the past, mostly because today's educa- 
tor realizes not all students learn at the 
same pace nor from the same methods 
and materials. Public education is better 
today at meeting the learner's special 
needs. Most problems in today's schools 
are from a lack of adequate funding and 
public support. Today's public seems to 
think that today's educators are sup- 
posed to teach students the values and 
self-discipline that should be learned at 
home. It is so easy to blame the schools 
for all that's wrong. 

As a union teacher I especially resent 
your last paragraph, which insinuates 
that unions are the reason for a lack of 
extra-curricular activities for students. 
Teachers are perhaps the lowest-paid pro- 
fessionals in existence. Why is it that peo- 
ple like Mr. Green still view teachers as 
public slaves who should devote all of 
their time and expertise to students for 
nothing? Many teachers, both female and 
male, have to hold second jobs to support 
their families. Many are taking post-grad- 
uate classes— at their own expense, un- 
like their counterparts in the business 
world— to either maintain teaching certifi- 
cates or to advance on the salary sche- 
dule to keep up with inflation (there's no 
such thing as merit pay for teachers). 
Teachers also have families with whom 
they want and need to spend time. I hate 
to think what my job and salary would be 
like today if it hadn't been for the 
teacher's union! 

Marty Krenek 
Lakewood, CO 



Instant Block Cursor 

I enjoyed Ron Balewski's article, "Block 
that Cursor," which appeared in April's 80 
Microcomputing. I did, however, find two 
problems. First of all, I run a 48K system 
with two disk drives. Ron's program does 
not work with TRSDOS at all (TRSDOS 
crashes). It does, however, work well with 
Disk Basic. Converting the program for a 
48K system takes more effort than it 
would seem. I added a top-of-memory indi- 
cator so that you do not have to answer 
the Memory Size question. The program is 
first saved as a disk file (via Debug). It is 
then loaded but not executed. Enter Basic 
and POKE 16414,04 and 16415,254 and 
voila, instant block cursor! Warning— do 
not issue any CMD commands after using 
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The Newest NEWDOS/80 Version 2.0 
For Model I And Model III 

THE HOTTEST DISK OPERATING SYSTEM FOR THE 
TRS-80® COMPUTER IS NOW READY FOR THE MODEL 
III AND VERSION 2.0 IS READY FOR THE MODEL I. 
MANY ENHANCEMENTS AND ADDED FEATURES 
SUCH AS NEWCOMMANDS MAKE YOUR COMPUTER 
MORE POWERFUL! 



• DOUBLE DENSITY ON MODEL I 

Use of the LNW DOUBLER or the PERCOM 
DOUBLER to expand storage 80% under 
NEWDOS/80 Version 2.0, mixing single 
and double density specifications without 
any patches. 

• SINGLE DENSITY ON MODEL III 

Will allow the MODEL III to read disks from 
MODEL I and to write disks the MODEL I 
can read, making it easy to move programs 
between the two machines. 

• EXPANDED DIRECTORIES 

Directories can be expanded three times 
the normal number of available entries, 
even on DOS disks. This is extremely useful 
when using double density. 

• DYNAMICALLY MERGE IN BASIC 

To allow sections of BASIC programs to be 
deleted and replaced with lines from a disk 
file during program execution. Also allows 
merging of non-ASC II format files. 

• SELECTIVE VARIABLE CLEARING 

Allows the programmer to keep some vari- 
ables and release the space used by the 
rest; also, specific variables may be erased 
releasing the space they use. 

(CALL OR WRITE FOR MORE INFORMATION ON OUR 
COMPLETE LINE OF PRODUCTS AND HARDWARE 
REPAIR SERVICES FOR YOUR TRS-80® COMPUTER) 



• PAGE SCROLLING IN BASIC 

Scrolling has been modified to allow the 
user to display programs page by page, in 
addition to the regular line scrolling. 

• REPEAT FUNCTIONS 

Keys in MODEL I repeat when held down. 
Entering "R" as a DOS command causes 
the previous DOS command to be repeated. 

• ROUTING FOR DEVICE HANDLING 

To send input and output from one device 
(display, printer, keyboard, etc.) to others or 
to a routine in main memory. 

• DISASSEMBLER OUTPUT TO DISK 

The Disassembler will now write a source 
code file to disk, which the editor assembler 
can read and edit. 

• CHAINING ENHANCEMENTS 

Features to allow chain files to be written 
from SCRIPSIT; also, chaining may be 
switched on and off without changing 
chain file positioning, and may be executed 
via CMD "xxx" and DOS-CALL 

• SUPERZAP 

has the ability to scan diskettes or disk files 
to find the occurences of specific values. 
Also will generate disk file passwords and 
hashcode. 




MASTER CHARGE 
AND VISA 

WELCOME 



$149.00 



_ Data Resources Corp. 

Business & Professional Center 

8000 East Quincy Ave. 

Denver, Colorado 80237 (303) 773-6665 



Send your card number and 
expiration dale with your order 

1-800-525-7958 



^540 



TRS-80' is a Registered Trademark of Tandy Corp 
1981 Data Resources Corporation 



^See List ol Advertisers on page 322 
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this. Also, you may have to turn off the ex- 
pansion interface to get it out of memory. 

Andrew Shecktor 
Centre Square, PA 



Not a Tinkerer 

I found your review of the TC-8 very 
disappointing (May 1981). I think your re- 
view and their advertising should make 
clear that, to be usable, the CTR-41 must 
be modified. As one who does not know 
how to solder nor cares to know anything 
about hardware, I think that others should 
be so informed. It is not safe to assume 
that all your readers are tinkerers. 

Phil Humbaugh 
Hartsdale, NY 



Notes on Games 

Below is a simple listing which I used to 
use in order to defeat Radio Shack's Mi- 
crochess. I now have an excellent chess 
game from Hayden Software in Sargon II. 

I would also like to comment on Big 
Five software. It is the best in the market 
for arcade-type games. I highly recom- 
mend these games. 

David Yuen 
Farmingdale, NY 11735 



Player (W) 


Computer (B) 


1 E2E4 


E7-E5 


2 D1-F3 


F8-B4 


3 F1-C4 


D7-D5 


4 C4-D5 


C7-C6 


5 F3-F7 


mate 



The Bus Contention 

I would like to offer a caution to readers 
who may build Frank DiNunzio's joystick 
interface unit (June 1981, page 157) for the 
TRS-80 Model I. There is a theoretical bus 
contention problem that could eventually 
cause damage to the computer if the joy- 
sticks are turned on when a CLOAD is 
done or any other INP-based device is 
used. 

Bus contention results when two de- 
vices place information into the computer 
simultaneously. All computers are de- 
signed in such a way that only one device 
is permitted to respond to a request by the 
Central Processing Unit (CPU). That is the 
reason for numbered memory addresses 
and input/output ports. When the com- 
puter executes an INP(225), an assembly 
command IN(FF) or a machine code D3 



FF, Internal circuits are decoded that 
allow the cassette input to talk to the CPU. 

Mr. DiNunzio specifies that an INP(1) 
statement will activate the joysticks. In 
fact, any INP statement will cause his joy- 
stick interface to respond. Due to a cer- 
tain measure of luck, some timing overlap 
present in the cassette circuit and the 
tough integrated circuits in Mr. Di- 
Nunzio's computer, the cassette input is 
overriding the joystick input and he re- 
ceives correct data to the computer. How 
long the ICs directing the cassette opera- 
tion (or those in his joysticks) will last is a 
matter of question, especially if any of the 
joysticks are moved all the way to the zero 
position on the same line as the cassette 
input. 

Furthermore, Mr. DiNunzio uses four 
AA cells to power the interface. Again, 
luck has been with him. LS TTL integrated 
circuits (the kind used in the joysticks) are 
rated to run properly from 4.75 to 5.25 
volts. Four AA cells normally produce be- 
tween 5.9 and 6.1 volts. Any failure in the 
joystick integrated circuits may cause 6 
volts to reach the computer bus— a virtual 
prescription for damage. 

It isn't my intention to be hard on Mr. 



DiNunzio. He found a design that worked 
for him, and he used it. It's that kind of 
thinking that has led to advances in the 
electronics field. But I feel it is my respon- 
sibility to 80 readers to present both these 
dilemmas and simple solutions to them. 
First, the addition of a low-power 5-volt 
regulator, type 78L05, in series with the 
AA cells will provide safe, correct power 
(see Fig. 1). Second, the addition of a sim- 
ple address decoder consisting of two ICs 
will completely decode INP(1) to provide a 
longer-lasting TRS-80 (see Fig. 2). 

Dennis Bathory Kitsz 
Technical Contributing Editor 



Incompatibility 

After deciding to develop a word pro- 
cessing ability for my TRS-80, 1 decided to 
look around at my options. Being a "play it 
safe with hardware" type I decided to go 
with the Radio Shack lowercase modifica- 
tion. I figured that it would be compatible 
with everything I wanted to use and there- 
fore would give me no problems with Ra- 
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erate via VoxBox. Anyone who would 
like a listing may have one if they will 
send me a self-addressed stamped en- 
velope. 

Art Welch er 

360 S. Wetherly Drive 

Beverly Hills, CA 90211 



dio Shack's software, hardware, and prob- 
ably most everybody else's software and 
hardware. 

Eighty dollars later (is there signifi- 
cance to this number 80?) I find that I have 
to load a software driver from cassette (I 
have no disk ability yet) every time I want 
to use the lowercase mod in Basic. Well, 
things could be worse, I thought, I could 
have lost compatibility. Hah hah. The joke 
is on me. I did. With Radio Shack Level II 
Basic. Every time I try to use the Strings 
command the computer will lock up. The 
break key will do nothing. The reset key is 
my only hope. It proceeds to erase not on- 
ly my entire Basic program but also to dis- 
able the lowercase driver that was so 
grudgingly put in. 



80 DIM WS(32) 

90 INPUT" 1. TRAIN 2. LISTEN 3. ENTER VOCAB 4. SAVE VOCAB.";Q 

100 ON 0. GOTO 20000,990,19000,19100 

990 GOSUB1600 

1000 REM GET VOICE INPUT 

1010 DEFUSR2(0)b&HP003 

1020 PRINT850, "SPEAK" 

1030 X=USR2(0) 

1040 W=PEEK(-3078) 

1050 IFW>31 THEN1500 

1060 PRINTTAB(15)"Y0U SAID "|W$(W) 

1070 FOR I=1TO300:NEXT I 

1080 GOTO1000 

1500 PRINT"PLEASE REPEAT THAT" :GOTO1070 

1600 CLS 

1610 PRINT"WORKING VOCABULARY" : PRINT 

1620 0=256 :FPR V=11T021 

1630 READ W$(V) :PRINTeo,V;". ";W$(V) ; :0=0+64 

1640 NEXT 

1650 0=275:F0R V=11T021 

1660 READW$(V) :PRINTe0,V;". ";W$(V) ; :0=0+64 

1670 NEXT 

1680 0=296 :F0R V=22TO30 

1690 READWS(V) :PRINT@0,V; ". ";WS(V) ; :0=0+64 

1700 NEXT 

1710 RETURN 

19000 REM CALL UP VOCAB 

19010 CMD"L0AD V0CAB1/CMD" 

19020 CLOSE :PRINT"V0CABULARY STORED" :GOTO20 

19030 REM SAVE VOCAB 

19040 CMD"DUMP V0CAB1/CMD (START=X'F000 ' ,END=X'FFFF' ,TRA=X' 402D' 

)" 

19050 CLOSE :PRINT"VOCABULARY STORED" :GOTO20 

20000 REM TRAINING INPUT 

20010 A=PEEK(-4095) :IF A<>12 THEN CMD'LOAD VDR" 

20020 REM TR INDEX 

20030 REM TRAIN DIGIT ZERO 

20040 FOR TR-0TO31 

20050 READ W$(TR) 

20060 PRINT"SAY ";W$(TR) 

20070 GOSUB21000 

20080 NEXT TR:PRINT"32 WORD VOCABULARY ENTERED" 

20090 GOTO20 

20100 DATA"0","1","2","3","4","5","6","7","8","9" 

20110 DATA"POINT" , "COMMA" , "ZIP" , "CHECK" , "AMOUNT" 

20120 DATA'ENTER" , "OK" , "START" , "SAVE" , "DOLLARS" 

20130 DATA'CENTS" , "ZERO" , "BACKUP" , "CANCEL" , "STOP" 

20140 DATA"SCRATCH", "SCRUB IT", "HOLD IT", "GO BACK" , "OVER" ," BUDGE 

T" 

20150 GOTO30 

21000 REM CALL TRAINING 

21010 TA-1258 

21020 IF TR>32767 THEN TA«=TA-65536 

21030 DEFUSR1-&HF000 

21040 POKE-3078,TR 

21050 X-USR1(0) 

21060 IF PEEK(-3078)<>0 THEN GOTO21090 

21070 RETURN 

21090 PRINT'ERROR - PLEASE REPEAT" 

21100 GOTO21030 

Program Listing 



A call to my friendly Radio Shack dealer 
who sold me the mod brought the "I 
haven't heard about that one yet, why 
don't you call the 800 number hotline in 
Fort Worth" response. So I tried. And I 
tried. And I tried. One would think that the 
phone company would try to sell them ad- 
ditional lines so that 99 percent of their 
customers wouldn't get busy signals. 

As of this writing I have still not been 
able to reach Fort Worth on the hotline. If 
someone out there knows of a solution to 
this problem, I would really appreciate 
learning of it. By the time this letter is 
published, I still my not have been able to 
get through to the hotline. 

At least the lowercase mod will work 
with Scripsit so that I can write this letter. 

William R. Patterson 
Somerdale, NJ 



Modifying DOS 



I just recently got around to reading my 
December issue when I was stopped by 
Ed Juge's column. 

He makes brief mention that the newer 
drives for the Model I are 40-track, double 
density capable. But he fails to tell us if 
the DOS will be modified to take advan- 
tage of the extra tracks. I am sure many of 
us who stuck by the Shack would appreci- 
ate being able to use them. 

Mr. Juge also states that the TRS-80 will 
not work correctly in double density. Why 
not? There must be some way to make the 
computer handle double density. 

Gerald DeConto 

Williams Lake, British Columbia 

Canada 

EDTASM Keybounce 

My problem is keybounce while using 
EDTASM (26-2002). I have bene discour- 
aged from learning assembly language 
because of this. My questions are: 

• Can EDTASM be modified to correct 
keybounce? 

• Is Radio Shack working on this prob- 
lem? 

• When will a solution be provided? 

I have a 16K, Level II and I do not accept 
key removal, etc. as a solution. 

B.H. Cat hey 
Jamestown, NC 

Radio Shack Answers 

We don't anticipate making a new 
release of TRSDOS for the TRS-80 Model I 
at this time. Even if we did, I doubt that it 

Continued on page 20 
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would be practical for us to provide 
40-track operation. There are just too 
many 35-track disk drives on Model I sys- 
tems. Plus, Model I owners then lose the 
ability to easily transport disks between 
35- and 40-track systems. 

Mr. DeConto is correct about double 
density for the Model I— there is a way to 
do it. It requires a new disk controller chip 
capable of double density such as the WD 
1793 used in the Model III and a new 
TRSDOS. However, the WD 1771 single 
density disk controller chip is not plug-in 
compatible with any double density con- 
troller chip. It's not a matter of ". . .pull 
one chip out and replace it with another. " 

I'm sorry that Mr. Patterson wasn't able 
to get through to our Customer Services 
department. We've expanded the number 
of people and WA TS lines again but I sus- 
pect that we'll continue to have some prob- 
lems during peak calling hours. The prob- 
lem with Basic "freezing" occurred with 
early tapes of ULCBAS. There are two 
remedies. After loading ULCBAS and re- 
turning to Basic, make two POKEs prior to 
any other commands— POKE 28829,242 
and POKE 28830.X. The value of X de- 
pends on the amount of memory avail- 
able. For 16K X=125, 32K X=189, and 
48K X = 253. The second is to return the 
ULCBAS tape to a local Radio Shack store 
and ask that it be sent in for exchange. 
The current version of ULCBAS already in- 
corporates the changes so that the two 
POKEs aren't necessary. 

Mr. Cathey doesn't give many specifics 
about his particular problem. From what 
he does say, I assume he is using a very 
early Model I keyboard with the KBFIX util- 
ity (EDTASM 26-2002 requires all avail- 
able memory and overwrites KBFIX). It's 
an unfortunate fact of life that most elec- 
tro-mechanical devices require some de- 
gree of maintenance and cleaning. 

We changed to a capacitance-type key- 
board when our original vendor couldn't 
deliver, and ended up with a bonus. It elim- 
inated the need for contact cleaning, pro- 
vided better feel and a by-product was a 
reduction in key bounce. If Mr. Cathey was 
using a typewriter he would experience 
the need for some routine cleaning. We do 
have two new packages, Series I Editor 
Assembler for cassette, and for disk 
systems. They will be available very soon, 
and they use their own keyboard driver 
routines to reduce keybounce. This 
should take care of the problem Mr. 
Cathey is experiencing. 

Ed Juge, director 

Computer Merchandising 

Radio Shack/Tandy 

Fort Worth, TX 



Garbage Sorts 



I have a program that requires my Mod- 
el II to sort a list of 30-character strings. 
During the sort the computer hangs up 
several times (sometimes for 20-30 sec- 
onds) and then continues sorting. 

The Radio Shack representative in the 
Language Support Group tells me that at 
those times the computer is doing a Gar- 
bage Sort in which it reorganizes the 
string variable table to reclaim lost space. 
If one clears more string space, then the 
Garbage Sorts occur less frequently but 
take longer. 

If would be useful for you to run an arti- 
cle on Garbage Sorts, exactly what is hap- 
pening, and how to program around them 
to minimize impact on run time. 

William E. Jones, M.D. 
Austin, TX 



Model I or III? 



When I recieved your June issue, I was 
disappointed to see that you are still not 
indicating in your (otherwise valuable) ar- 
ticles whether the information is pertinent 
to the Model I or Model III or both. Shape 
up. 

Daniel M. Long 
Englewood, OH 



Cleaning Cable Connectors 

I was plagued with spontaneous resets, 
erratic printing mistakes, loss of keyboard 
control, loss of Basic program in memory 
and Scripsit text turning to garbage with 
my TRS-80 Model I 32K one disk system. 
Some friends assured me my problem 
most likely was dirt in the ribbon cable 
connectors and/or a loose chip or chips. 

Following directions, I removed all 
cable connectors from the El, printer and 
keyboard and cleaned the female connec- 
tors with a squirt of color TV tuner cleaner. 
I rubbed all male card edge connectors 
with a clean pencil eraser and wiped them 
off with cleaner on a cotton-tip applicator. 
I removed the six screws on the bottom of 
the keyboard, flipped it and removed the 
cover. Supporting the circuit board I 
pressed each of the chips into place com- 
pletely. The El was similarly treated (leave 
it upside down to reach the chips, and be 
particularly careful to completely seat the 
big chip on the side). Following reassem- 
bly of my hardware I found to my delight 



that those hardware problems seem to be 
solved. 

I wanted to share my problem and solu- 
tion with any readers experiencing similar 
frustrations. My friends also said that 
power spikes and drops (not a sag) could 
cause my hardware problems. If cleaning 
doesn't solve the problems, a possible 
power spike/drop fix could be suggested. 
Spencer Weersing 
Montague, Ml 



File Folder Labels 

While working on my system I wrote a 
very short program that should help 
around the office or even with the home 
filing system. 

It is based on the Line-printer II, but can 
be used on any printer that allows expand- 
ed letters. The file folder labels that are 
typed are usually hard to read in the nor- 
mal type size. Using this utility will allow 
for two lines to be entered and printed, 
followed by three line feeds to advance 
the standard Avery 200 self-adhesive file 
folder labels. 

Because these labels are only printed 
once, there is no storage and the program 
recycles after each label. If the label only 
requires one line input then a simple 
<enter> will omit the second line but still 
allow for label advancement. 

The program is simple; lines 10 and 20 
clear the screen and prompt the inputs. 
Lines 30 and 40 set the printer for expand- 
ed format, and give leading blanks and 
output to the printer. Line 50 gives the line 
feeds to advance the next label and line 60 
returns for the next input. 

10 CLS : LINEINPUT " ENTER FIRST LINE: ";A$ 

20 LINEINPUT "ENTER SECOND LINE: ";B$ 

30LPRINTCHR$<27);CHR$(14);" ";A$ 

40 LPRINT CHR$<27);CHR$(14);" "iBS 

50 FOR X = 1 TO 2: LPRINTCHR$(138) : NEXT 

60 GOTO 10 

Bill Bowman 

Selkirk, Manitoba 

Canada 



Debugging T-Bug 

I have a Model I, Level II, 16K, and the 
new ROM. This I understand will not 
cause any problem with the article "Get 
T-Bug High" in the January 1980 80 Micro- 
computing. 

After successfully moving T-Bug to 
7380H the PEEK, POKE program was run. 
The text states 213 locations should have 
changed; I had only 198 locations 
changed. 
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Thats right. If you can find a lower 
price in this magazine WE WILL BEAT IT! Period. 



SPECIALS 



SPECIAL #1 



844.50 



TRS-80 Disk and Other Mysteries Book. Box 
of Verbatim Diskettes, and a Plastic Library 
Case. 

SPECIAL #3 S149 

Apparat NEWDOS/80. Box of Verbatim 
Diskettes, and a Plastic Library Case. 

SPECIAL #4 8190 

Microsoft Basic Compiler. Box of Verbatim 
Diskettes, and a Plastic Library Case. 

SPECIAL #5 849.95 

Microsoft Basic Decoded and Other 
Mysteries. Box of Verbatim Diskettes, and a 
Plastic Library Case. 



PRINTERS 

EPSON MX-80 CALL 

MX-80 Graphics ROM .CALL 
NEW EPSON MX-80 TFCALL 
Okidata Microline 80 ..$415 
Okidata Microline 82 . . $625 
Okidata Microline 83 . . $899 
IDS Paper Tiger 460G$1 050 
Anadex DP-9000.1 . . $1 1 95 
AnadexDP-9500,1 . .$1295 

Centronics 737 $689 

NEC Spinwriter $CALL 

NEC w/ Sellum Option . $CALL 
Starwriter 25 cps . . . $1 440 
Starwriter 45 cps . . .$1770 

Malibu165 $1995 

MPI88G $495 



TRS-80 HARDWARE 

TRS-80's $CALL 

Micropolis 77 track . . . $399 
Percom Doubler $193 


Percom Separator . 

Orchestra 80 

Shugart 40 tr 

Pertec 40 tr 

MPI 40 tr 

1 6K Memory Kit . . 
Cat Modem 


$27 

$79 

$299 

$299 

$299 

.$19.95 

. . .$145 


D-Cat Modem .... 


. . .$155 




. . .$125 


Verbatim 525-01 . 
Verbatim 8" DD . . . 
Isolator ISO-2 


.$26.50 

.$44.00 

$49.95 




NEW! Double Density Special 



A Percom Doubler, Apparatus NEWDOS/80, Double Zap II [to 
convert the NEWDOS/80 to single and double density], a box 
of Verbatim Datalife diskettes, and a Plastic Library Case. A 
$436 Value... for 



'Include 12.00 shipping and handling on all ordars. Viaa and Master Card aocaptad. Navar under- 
•old offer appliaa only to ttama currently deliverable from other retail vendors at advartlaed prlca. 
All never undersold offera good ee supply lasts. Pleeee add 98.00 for all COD orders. Pleaee call for 
items not Hated. We gladly answer any quastlona on all of our hardware, software, and auppty 
neada. Ouenitlty dlaoounta available. School purchase orders scceptod. Please remember to figure 
competitors ahlpping and handling charges when arriving at never undersold pries. 



Send For 

Our New 

Free Catalog! 



POWERFUL SOFTWARE 

Racet's New DI8CAT 845 

This New machine language disk catalog program will help you keep track of 
your programs in a neat, orderly library. It can catalog up to 1 900 programs 
m each ol 9 categories for a total of 1 7000 program location records. 

Snapp Spooler 890 

Fully automatic print spooler for the model I. Increases your computers effi- 
ciency by freeing the computer wMe printing. 

TR ACKSESS 824 

This is the complete disk zap utility, capable of copying standard and non 
standard formatting. The dynamic editing allows you to change any byte in 
any sector with amazing ease 

SCRINPUT 829 

Format your screen displays and input routines with this machine language 
subroutine. Gives your program a more professional look. 




WORD PROCESSING 
SPECIAL DELIVERY 



S118 



The best in mailing list programs for the TRS-80 Models I & 
III Special Delivery is easy to use & is written m fast 
machine language. Special Delivery allows you to merge your 
mailing list file with text files written with the Electric 
Pencil or Scnpsit' to create personalized form letters. 

XTR A SPECIAL DELIVERY S188 

Does everything special delivery does and more. Extra allows 
you to include special keyed messages in your text file, and 
includes Martsort which allows sorting on multiple fields. 

PROSOFT §79.85 

"PROSOFT' Word processing software is written for the TRS-80 
and the Centronics 737. Takes fuH advantage of all the capa- 
bilities available on the 737 including true proportional 
spacing. Comes complete with a 1 10 page users manual. 






213-883-8594 

RLPiin 

BYTE 
STORE/ 



5115 Douglas Fir Road 

Suite B 

Calabasas, California 

91302 
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Going to the 22 manual changes, loca- 
tion's 758CH and 7676H had stayed 47H in- 
stead of going to 77H; I left these at 47H. 

After punching the new T-Bug on tape, 
power down, power up, and loading the 
new T-Bug, everthing was fine until an L, 
P, J or R command was tried. I can look at 
all the memory I want, but anything else 
gets a memory size question staring at 
me. 

The original T-Bug had to be upgraded 
for the new ROM. 

At last count, 12 times following letter 
by letter to the text. Can anybody straight- 
en me out? 

Gary Bennett 
Norcross, GA 

The Author Responds 

Your letter indicates that you end up 
with 15 fewer changes than the article 
says you should have. Taking a clue from 
the two locations (758C and 7676 hex) that 
you said were not changed by your Basic 
routine, I have found that each one of 
these locations has successive bytes in 
the range of 43 to 49 hex (67 to 73 decimal). 
On the assumption that your PEEKing and 
POKEing is somehow incrementing the 
address location twice after each change, 
I checked to see just how many locations 
there are where two successive bytes fall 
into the range we are looking for. There 
are 15 such places! With the exception of 
758C and 7676, all of these places need 
the second byte changed to the high value 
and the first byte changed back to its orig- 
inal value. My guess is that, for some rea- 
son, your Basic program is skipping over 
an address each time it does a POKE. 

The 15 successive byte locations, ad- 
dressed in terms of T-BUG High, are: 

74E9/A 74EFI74F0 74FBJ9 74FE/F 750A/B 7S8B/C 
7675/6 76A6/7 76B4I5 76DBIC 76E1/2 771MB 772CID 
7734/5 773MB 

Notice that, with the exceptions of 758C 
and 7676, all first locations appear in the 
change back table of the article. Each of 
the second locations should have been 
changed, correctly so, by the POKEing, 
but my guess is that they were not. 

Other than 758B/C and 7675/6, assure 
that the second byte of each of the places 
shown has the high value, while the first 
byte retains the low value. That should 
make T-BUG High operational for you, I'll 
bet! 

The program in the article, after correct- 
ing line 30 to read "... THEN 70," will do 
all PEEK/POKEing properly. If the sugges- 
tions above prove to be the correct solu- 
tion, check the program you used to see if 
it indeed was doing a double incrementing 



of the address (P) when making a POKE 
change. 

During the past year and a half or so, I 
have had a great many inquiries from 
readers of 80 looking for help with T-BUG 
High. Virtually each inquiry presented a 
different problem, and I hope that I have 
helped all those who have written and 
phoned from all over the United States. 
The big help, however, should really come 
from Radio Shack. . . by now they ought to 
have realized that most of us have gone 
well beyond Level I, 4K. . . and when they 
issue a new T-BUG for Model III, I trust 
they will note that we want our utility pro- 
grams up and out of the way! 

Irwin Rappaport 
Upper Saddle River, NJ 



Dumpload for Backup 

As a response to my article (80 
Microcomputing, March 1981, p. 250) Mr. 
William C. Perry sent me a copy of his pro- 
gram Dumpload to try out. 

Dumpload is an assembly language 
program designed to write a disk's con- 
tents to cassette, read it back and create a 
disk. It contains two sets of tape routines, 
one at the normal 500 baud and one at 
around 1800 baud. The 1800-baud routines 
will allow you to record three disks per 
side on a C-60 cassette. I found the pro- 
gram to be extremely easy to use and 
quite complete. I highly recommend the 
program for backing up disk libraries. 

Dumpload is available from Complete 
Computer Services, Newburgh, IN. It will 
run on a 16K Model I. 

Robert J. Hocking 

Harris Corp. 

Palm Bay, FL 

The Reviewer Replies 

This is a reply to Programma Interna- 
tional's letter regarding my review of their 
80-Graphix board (February and April 80 
Microcomputing, 1981). 

Rereading my review, I did become 
aware of a possible misinterpretation 
about the use of the cassette port as Jeff 
Lasman says. All the wiring is done inter- 
nally and use of the cassette for I/O is 
completely unhindered. 

However, I stand by the rest of my re- 
view. My major objections are still quite 
valid. The point is that the 80-graphix 
board is a character generator, and as 
such does not give one better graphics 
than the Apple. To say that you have 384 
by 192 resolution because you can pro- 



gram 64 characters of up to 72 pixels each 
is, to be blunt, as ridiculous as saying that 
you have the same resolution with normal 
TRS-80 graphics since CHR$ (191) will turn 
on all of the Programma's 72 pixels/byte. 
The Apple has far superior graphics to the 
TRS-80 with or without the 80 Graphix 
board. For some uses, such as creating 
character sets, the 80 Graphix board is ex- 
cellent, but for high res graphics, such as 
in high density graphics, it is not at all 
useful. I dearly love my TRS-80, but it is not 
a good graphics computer. 

I fail to see Mr. Lasman's point about 
the use of Set and Reset. I said that they 
are effectively disabled, since the graph- 
ics characters are created and ordered in 
such a way that if you OR the contents of 
the byte with 80H and OR it with a pixel 
position, you set a new point. If you 
create a different order, you effectively 
destroy the utility of Set/Reset/Point. Mr. 
Lasman says, "sure you can use Set and 
Reset. Just design a character set iden- 
tical to the one you already have" (freely 
paraphrased by myself). For this, I get to 
pay $150? I can do the same thing by re- 
maining in normal TRS-80 graphics mode 
(and do it more cheaply!). 

I take exception to Mr. Lasman's com 
ment that I "berated" the demo programs 
I did not. They are decent demo programs 

And I still say that the character genera 
tor is not well thought out in terms of user 
interface. Why not use arrow keys and 
turn on and off the blocks in a simulated 
"full screen" editor? Entry would be much 
quicker and easier. Then save the data 
statements as a "merge"-able file (that 
really isn't all that hard to do). 

Bruce Douglass 
Vermillion, SD 



Users Groups 



80 Microcomputing is gathering in- 
formation on TRS-80 users groups for 
publication sometime this fall. If your 
group has not sent us any material, or 
has updated information, we would 
like to hear from you soon. 

Send your address, phone number, 
person to contact, dues and other per- 
tinent data to: 

Michael E. Nadeau 
80 Microcomputing 
Pine St. 
Peterborough, NH 03458. 
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nters on line at all times 
and select printer 1 or 2 by software or 
built-in push-button. End the hassle of 
plugging and unplugging printer cables 
with our new PRINSELECT 80. $95.00 




So* 

TWICE THEFUNtrs-80 

STICK-80 MAKES KEYBOARD OBSOLETE. 
Features the lamous ATARI Joystick 8 directions + lire 
control Simple instructions to make |0ysiick versions ot 
most action games. Plugs into keyboard or expansion lot.., 
Price includes ATARI joystick with ALPHA interlace and 
instructions FREE "MAGIC ARTIST" program. . . . ($39.95 
Super Real lime Aclion Graphic Sound games lor Stick -80 
Oy Software innovations ALIEN INVASION 
COSMIC INTRUDERS BREAKOUT Eacn $9 y'j 

STELLAR ADVENTURE super action with sound SU 95 
Software authors and dislnDulors contact us lor |0ystick 
conversion package lor your existing games 




MUSIC-80 MUSIC-BO MUSIC-80 MUSIC-80 MUSIC-80 

Use existing soltware 
or write your own With this low cost 8 bit digital to 
analog converter you can synthesize up to 5 music voices 
Built-in volume control handy when stereo nol near TRS-80 
Simply plug the "MUSIC-80' ' into the keyboard or the E/l 
screen printer port and connect the output (RCA jack) to any 
amplifier The Radio-Shack $12 speaker/amplifier works 
line. 
Fully assembled and tested, 90 day warranty $39 95 



YOU ASKED FOR IT: "EXPANDABUS" XIX? X3 AND X4 
CONNECT ALL YOUR TRS-80 DEVICES SIMULTANEOUSLY 
on the 40 pin TRS-80 bus Any device thai normally plugs 
into the keyboard edge connector will also plug into the 
"EXPANDABUS" The "X4" is shown with protective 
covers (included) The TRS-80 keyboard contains the bus 
drivers (74LS367) lor up to 20 devices, more than you will 
ever need. Using the E/l. it plugs either between KB and E/l 
or in the Screen Printer port Prolessionai quality gold 
plated contacts Computer grade 40 conductor ribbon cable 
X2...S29. X3. $44 X4 $59 X5 $74 

Custom configurations are also available, call us 




ANALOG-80 A WORLD OF NEW APPLICATIONS POSSIBLE. 
8 DIGITAL MULTIMETERS PLUGGED INTO YOUR TRS-80 1 " 
Measure Temperature. Voltage. Current Light Pressure, etc 
Very easy to use tor example, let s read input channel #4 to 
OUT 4 Selects input #4 and also starts the conversion 20 
A = INP(O) 'Puts the result in variable A Voila 1 
Specifications Input range 0-5V to 500V Each channel 
can be set to a ditlerent scale 

Resolution 20mV(on5V rangel Accuracy 8 bits I 5%) Port 
Address lumper selectable Plugs into keyboard bus or E/l 
(screen printer port) Assembled and tested 90 day warranty 
Complete with power supply connector manual 



only 
13'* 



LET THE "CHAIN BREAKER" FREE YOUR MINI-DRIVES. 

End 'he daisy-chain mess once and tor all Fits all mini- 

dnves: Percom. Aerocomp. Shugart. Micropoiis. MTI. Vista, 

Pertec Siemens. BASF Easy to install: just remove the 

drive cover, plug in the "CHAIN BREAKER" and replace the 

cover Voila'" 

Now you can change and move your drives around without 

disassembly Keep the cover on and keep the dust out High 

reliability gold plated contacts, computer grade 34 

conductor cable Tested and guaranteed 

Get one for each drive . only St 3 95 



INTERFACER 2: LOW COST INPUT/OUTPUT MODULE . 

Still the best value in sense/control devices Use it lor 

energy control, burglar alarm, darkroom, selectric drive. 

model trains, robots. Skinner box. 

—8 latched TTL outputs 2 relays SPOT 2A 125V contacts 

—8 TTL/CMOS inputs. Input and I are optically isolated 

— Neat and compact design , very easy to use 

10 A = INP(O) 'Reads the 8 inputs (if A = all inputs are 

low) 20 OUT O.X Controls the outputs and the relays 

Assembled & tested, 90 day warranty Price includes power 

supply, cable lo KB or E/l, superb user's manual, free 

phone dialer program: $95 Manual only: $5. 
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INTERFACER-80: the most powerful Sense/Control module 
• 8 industrial grade relays, single pole double throw isolated 
contacts: 2 Amp @ 1 25 Volts. TTL latched outputs are also 
accessible to drive external solid state relays 
•8 convenient LEDs constantly display the relay states 
Simple " OUT ' commands (in basic) control the 8 relays 
.8 optically-isolated inputs lor easy direct interlacing to 
external switches photocells, keypads sensors, etc 
Simple "INP" commands read the status ol the 8 inputs 
Selectable port address Clean, compact enclosed design 
Assembled, tested. 90 days warranty Price includes power 
supply, cable, connector, superb user's manual $159 



GREEN SCREEN 

WARNING 

IBM and all the "biggies are using green screen monitors 

its advantages are now widely advertised We leel that every 

TRS-80 user should en|oy the benefits it provides But 

WARNING: all Green Screens are not created equal Here is 

what we found 

•Several are just a flat piece of standard colored Lucite The 

green tint was not made for this purpose and is |udged by 

many to be too dark Increasing the brightness control will 

result in a fuzzy display 

•Some are simply a piece of thin plastic film taped onto a 

cardboard frame The color is satisfactory but the wobbly film 

gives it a poor appearance 

•One ' optical filter" is in fact plain acrylic sheeting 

•False claim: A few pretend to "reduce glare" In fact, their 

flat and shiny surfaces (both film and Lucite type) ADD their 

own reflections to the screen 

•A few laughs One ad claims to "reduce screen contrast 

Sorry gentleman but it's |ust the opposite One ol the Green 

Screen's major benefits is to increase the contrast between 

the text and the background. 

•Drawbacks: Most are using adhesive strips to lasten their 

screen to the monitor This method makes it awkward to 

remove for necessary periodical cleaning All (except ours) 

are flat Light pens will not work reliably because of the big 

gap between the screen and the tube 

Many companies have been manufacturing video tillers for 

years. We are not the first (some think they are), but we have 

done our homework and we think we manufacture the best 

Green Screen Here is why 

•It tits right onto the picture tube like a skin because it is the 

only CURVED screen MOLDED exactly to the picture tube 

curvature It is Cut precisely to cover the exposed area of the 

picture tube The tit is such that the static electricity is 

sufficient to keep it in place 1 We also include some invisible 

reusable tape for a more secure fastening 

•The filter material that we use is |ust right, not too dark nor 

too light The result is a really eye pleasing display 

We are so sure that you will never take your Green screen oil 

that we olfer an unconditional money-back guaranty try our 

Green Screen lor 14 days II for any reason you are not 

delighted with it, return it lor a prompt refund 

A last word We think that companies, like ours, who are 

selling mainly by mail should »list their street address»have a 

phone number (for questions and orders Wccepl CODs. not 

every one likes to send checks to a PO boxwtfer the 

convenience of charging their purchase to maior credit cards 

How come we are the only green screen people doing it' 

Order your ALPHA GREEN SCREEN today $12.50 
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EDUCATION gO 

by Earl R. Savage %r\r 



"The original cassette 

mass storage system 

is unsatisfactory." 



I apparently hold some heretical views on 
mass storage. For now, I'll limit the dis- 
cussion to the Model I because of the 
overwhelming number in the schools. 

There is one point on which all of us can 
agree. The original cassette mass storage 
system is unsatisfactory. It works quite 
well (after the very early production runs) 
and it is inexpensive, but slow. 

Every load and save takes minutes. 
Searching for a program seems to take 
hours! And that's with program material. 
The situation with data is even worse. The 
result is a lot of wasted time waiting for 
the tape to run. In school, that is lost in- 
structional time. 

Of course there is a better way— in fact, 
there are several. You must choose the 
method most suitable for your require- 
ments. Let's take a look at them and I'll 
give you my impression of each one. 

Disk 

Probably the first thing you think about 
when you hear the words "fast mass 
storage" is disk operation. Well, in my 
opinion you are both right and wrong. Cer- 
tainly disk is fast, and for some types of 
operation there seems to be nothing bet- 
ter. However, it is the most expensive 
method available. 

Not only is there the cost of the drive(s), 
but you must have a disk controller (in an 
expansion interface of some type). In ad- 
dition, you must purchase a disk operat- 
ing system (DOS). The DOS, in turn, re- 
quires that you have more memory to 
make up for that which it occupies. 

I believe the cost/benefit ratio is unjust- 
ifiable in most TRS-80 school applica- 
tions. This is true especially in today's ex- 
tremely tight financial circumstance of al- 
most every school in the country. 

Another great concern is the suitability 
of disk for school use. Both disks and disk 
drives require careful handling and, for 
that reason, do not hold up well in general 
use by relatively untutored students (and 
teachers). Elementary school students 
can wreak havoc on disks. At best, they 
may be suitable in secondary school com- 
puter labs. There, too, special efforts 
should be taken to reduce the quantity of 
dust that is prevalent in heavily-traffic 



classrooms. 

I place fairly restrictive limits on disks 
in schools. For most such applications, I 
prefer some of the more rugged, less ex- 
pensive and quite efficient means of mass 
storage. 

Speed-up Modification 

First, of course, there is the speed-up 
modification to the computer circuit itself. 
The most reliable one for general use pro- 
vides a 50 percent increase in speed. I 
have had this option on my Model I for 
almost two years and it has functioned 
with absolutely no problems. 

Do not scoff at a mere 50 percent in- 
crease since it applies to program execu- 
tion as well as to Saves and Loads. At 750 
baud, using the regular cassette opera- 
tion, you will cut the time of mass storage 
and retrieval by one-third. 

Stringy-Floppy 

The closest thing to disk operation is 
the Exatron Stringy Floppy (ES/F). It is 
much better from the standpoint of being 
significantly less expensive and more 
physically rugged. The ES/F closely ap- 
proaches disk in speed and in file man- 
agement. It consists of an operating sys- 
tem and a digital recorder-player. 

The ES/F does not require additional 
memory because the operating system is 
in a built-in EPROM. A special miniature 
cassette (wafer) contains tape in a contin- 
uous loop and this greatly reduces pro- 
gram/data search time. 

The operating speed of the ES/F is 
about 14 times that of the regular cas- 
sette. That figure is somewhat misleading 
because of even greater efficiencies in all 
types of file management. Further, I have 
experienced absolutely dependable oper- 
ation with the speed-up option which 
makes it 21 times faster than cassette. 

The Poor Man's Floppy 

Another alternative means of mass 
storage is the IC-8 by JPC Products. 
Called the poor man's floppy, it is avail- 
able in kit or assembled form and includes 
a short relocatable utility in addition to 
the device and cables. 



The TC-8 is five times faster than cas- 
sette, using a regular cassette machine by 
transforming the signal stream. It, too, 
handles data with increased efficiency 
and is faster than the speed would indi- 
cate. The TC-8 functions well with the 
computer speed-up option (7.5 times fast- 
er than cassette) if your cassette machine 
is in good condition and you use good 
tape. 

HISPED 

The final improved mass storage 
method is a software approach. HISPED 
by Palomar Software is one such utility 
program. It offers a choice of eight Save 
and Load speeds up to about five times 
the speed of cassette. 

To achieve the highest speeds available 
with HISPED, requires a minor circuit 
changes in your computer and the use of a 
quality cassette machine. Like the others, 
it provides greatly improved efficiency in 
data handling. 

As you have seen, you do not have to 
choose between cassette and disk only. 
Careful consideration of your school 
users, applications and finances should 
produce the method best for you. 

Lemon Extract 

When you furnish to your students a 
listing to study, do you give them a list of 
the variables in that program? When you 
or they want to modify a program, can you 
produce a list of the variables (other than 
manually)? If you answered no to either of 
these questions, you are missing a valu- 
able utility. 

Lemon Extract (from Hanson House, 55 
Hanson Place, Stratford, CT 06497) will ex- 
tract the variables in a program in alpha 
order and by the first occurrence. It prints 
out the program name, its length in bytes, 
the total number of variables, and the as- 
of date. Then, the variables are printed in 
alpha order in five vertical columns with 
the first occurrence of a line number. 

You should have Lemon Extract or 
some utility which will print the variables 
in a program. You will find that it is a real 
time saver and very useful to both you and 
your students.B 
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THE ALPHA I/O SYSTEM 

A COMPLETE FAILURE? 



II happened 3 years ago. when our Presldenl made a decision. At the lime we specialized 
In custom analog and digilal circull design. The decision was to attempt to develop a line ol 
standard Interlace hardware lor the emerging microcomputers. At the time (1977) we had to 
decide which ot the new machines could become the ' "industry standard" ol the low cost 
micros. 

Despite a lew aggravating but minor deliciencies, the TRS-80 seemed tohave the most 
chance ot success and it had the best price/pertormance ratio. Also, with some imagination, 
their large sales organization could become the largest service network in the world, a reassur- 
ing through! tor the many novices In this new Held. 

It became clear that the TRS-80 could be used (with our then hypothetical system) to solve 
problems In many fields where computers were not yet used, mostly because ol their high cost, 

The IDEA was simple! ALPHA PRODUCT would supply the missing link between the TRS- 
80 and the "outside world", (more about this "outside world" later). 
DANGER! II Radio-Shack entered the same market, we probably would not have survived, but 
the expectation was that they would be too busy developing their basic line (drives, printers, 
modem etc.). Thanks to our more specialized products, we would not be competing with them. 
BAD STARTI We began with a (allure. Our first product was supposed to be a simple, low cost, 
general purpose device. It would allow the TRS-80 to accept Inputs other than the keyboard. 
Many kinds ol external devices (the "outside world" mentioned belore) like photocells, 
sensors, thermostats, switches, contacts, etc., could be connected easily. In addition, there 
were two relays to control (on or oil) external loads such as motors, lamps, appliances, 
heaters, etc.. etc.. In other words, It would allow the computer to interact or interlace with 
external devices. We called it the INTERFACER 2. What a mistake! It sounded too much like 
"expansion interlace". Many enthusiastic TRS-80 users called thinking that our "INTER- 
FACER 2" was a low cost Expansion Interface (al S85 lhat would have been a real bargain!). 
We wanted to change the conluslng name. That meant reprinting the manual, changing the ad. 
scrapping the dyers, discarding the silk screened cases. Well, "INTERFACER 2" it would 
stay. 

TROUBLE! We also found that the majority of TRS-80 users were AFRAID of the hardware. They 
could be very comlortable with (ancy programming but thought you had to be a computer 
specialist or technically inclined to put the INTERFACER 2 to work. In Irulh. some IMAGINA- 
TION and a SCREWDRIVER is all you really need. Anyone able to wire a switch could use this 
device. 

WORSE! There was also the lear ot plugging a "lorelgn device" into the precious computer. 
This notion has all but disappeared as there are now so many quality products designed lor the 
TRS-80 that plugging in a non Radio-Shack device has become common. 

Our ad In Creative Computing (80-Microcomputing did not yel exist) hardly paid for ilsell. 



We had a decision to make. Were we wrong or just too early' Our lirst INTERFACER 2 was sold 
to someone who wanted lo. and succeeded in, controlling his lancy model railroad with his 
TRS-80. interesting, but what made us stick with the concept was that some ol our INTER- 
FACERS began finding use in applications wilh lascinating possibilities. Space is lacking to 
describe them, but the most exciting was the successful use of Ihe system in assisting a handi- 
capped young boy. We were pleased lo hear ol such a meaninglul application. 

Three years later, as you can see in our ads, The INTERFACER 2 is alive and well. The 
price went up a bit, and despite the introduction ol Ihe more powerful INTERFACER 80. Ihe 
sales have been steady. 

Then came the least understood product! Ihe ANALOG 80. This $139. nicely designed 
module Is an Analog to Digital converter with 8 input channels. Used with your TRS-80, it 
provides a powerful "data acquisition system". This jargon simply means that you can 
monitor, measure and record 8 independant varying voltages. Very tew people realized ils real 
power. Such a system would have cost over ten thousand dollars just a lew years ago. 

The possibilities In scientific and engineering environments are endless. This system 
could replace chart recorders, digital data recorders, programmable calculators, data analyzers 
and many other specialized and expensive pieces ol equipment. Furthermore, up to 8 ANALOG 
80's could be used simultaneously lor a total ol 64 channels ol analog input! They simply plug 
into the TRS-80 using our "X" series ol bus extenders (EXPANDABUS). 

Our next product was lo be a second generation, Input/Output interface, with more 
flexibility lhan Ihe INTERFACER 2. Careful design and relinement yielded Ihe INTERFACER 80. 
the most powerful real world Interface on the market today. II has 8 inputs, each optically- 
isolated and 8 outputs, each with a relay contact. The INTERFACER 80 is fully compatible with 
our ANALOG 80, allowing these to be used together In order lo create systems lhat control 
external devices based on "sensed" input under control ol the TRS-80. 
A FAILURE! in spite ol our extensive advertising, very lew are aware ol Ihe existence ol the 
powerful ALPHA I/O SYSTEM. 

THE FACTS ARE: 

•The ALPHA SYSTEM/TRS-80 combination lorms an incredibly versatile and powerlul lool lor 

acquisition /processing /control 

•In spile ol ils moderate cost . the system is sophisticated and reliable. 

•The entire system can be easily programmed in BASIC using INP(X) and OUT X.Y commands. 

•The modular approach and our EXPANDABUS allow lor instant expansion as requirements 

demand. 

The following pages contain more Inlormalion about Ihe devices mentioned here. We invite 
you to call or write lo discuss your particular application. 



TIMFHATF Rft why lose precious time ? 

1 M. A* M. Mm^ m-J L Bl JL ■ rf W restored, only TIMEDATE 80 will update the system with current TIME and DATE inlormalion. 




Neat. Compact Design 
3 Years Battery Life 



Slips Inside E/l 
(Y Option Shown) 



Real Time Without 
Expansion Interface 



•Complete, sell contained "true" real time clock/calendar. TIMEOATE 80 continues to keep 

accurate time and date when the computer is turned oil or experiences a power failure. 

•TIMEOATE 80 only needs to be set once, and it's two replaceable "AAA" batteries (not 

Included) keep TIMEDATE 80 running in excess of 3 years. Cosily Ni-Cad batteries and 

charging circuits are eliminated. 

•The instant power is applied to the TRS-80. TIMEDATE 80 provides MO/DATE/YR. DAY 

ol WEEK. HR:MIN:SEC and AM/PM inlormalion wilh quartz accuracy. 

•TIMEDATE 80 replaces ihe computer's internal clock. Extremely uselul lor automatic 

operation ot remote systems with no operator in attendance. It the power tails and then is 




PRINTER 
STAND 

$49.95 



restored, only TIMEDATE 80 will update the system with current TIME and DATE inlormalion. 

an impossibility with the computer's inlernal clock. 

•TIMEOATE 80 is quartz crystal based with INTELLIGENT CALENDAR, including provisions 

lor leap year! TIME display may be by 12 hour AM/PM or by 24 hour mililary and Eruopean 

format. 

•TIMEDATE 80 plugs directly Into the rear ol the TRS-80 keyboard and gives (he "TIMES" 

(unction even without an Expansion Interlace. For Ihose wilh a disk system, it plugs into the 

lett side panel ol the Expansion Interlace. An optional "Y" connector can provide tor further 

expansion. 

•TIMEDATE 80's small size keeps the computer table uncluttered. II you have an Expansion 

Interlace. TIMEDATE 80 literally "DISAPPEARS" by slipping into Ihe empty space in Ihe 

bottom ol Ihe Interlace. 

•Two sets ol soltware. on cassette, come with TIMEDATE 80— "TIMESET" and "TIMES". 

"TIMESET" Is a slep by step set ol simple instructions lor selling TIMEDATE 80. "TIMES" 

is a set ol poke routines which patch DOS and Level II TIMES lo read TIMEDATE 80 and is 

easily incorporated inlo any user soltware. "TIMES" will always print the time and date 

when LISTING a program— great lor keeping (rack ol revisions! 

•Other valuable uses lor TIMEDATE 80 are: accurate date and lime inlormalion lor business 

reports like payroll records, linancial reports, etc.. or to various I/O devices requiring 24 

hour clock input, such as laboratory instrumentation, and to communication systems 

needing "Log In/Log Out" data (bulletin boards). 

•TIMEDATE 80, fully assembled and tested. 90 day warranty, complete wilh instructions 

and soltware on cassette. $95.00. "Y" option, add $12.00 



PRINTER CABLE 
EXTENDER 

Adds 4 ft« to your existing cable, printer 
extension connects between Exp* Int. and 
your present printer cable.. ♦♦♦♦♦♦$27*50 
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SO REVIEWS 



Edited by Pamela Petrakos 



and Michael Nadeau 



". . . after walking the hallways 

for hours, you rather expect to 

turn a corner and come face to face 

with yourself (playing Deathmaze)." 




Labyrinth 

Med Systems Software 

Chapel Hill, NC 

$12.95 cassette 

$16.95 disk 

16K, Level II or Model III 

by Debra Marshall 
80 staff 

Well, here 'tis, Deathmaze fans- 
Frank Corr's (and friends') second 
excursion into the dark, dim corridors of 
three-dimensional graphics— kind of. 

Once more you'll find yourself looking 
down a long hallway with doors opening 
on either side. You know that whichever 
way you go, it's going to mean trouble- 
usually, big trouble. Take your courage in 
hand, and do It anyway. Believe me, you 
may never get out. 

There are more hallways, more boxes 
full of junk, more empty rooms, and a 
good selection of pits, as well. Labyrinth 
looks like Deathmaze, graphically, and the 
information sheet that comes with it is 
equally brief and bare of help or hints. But 
that's okay— finding commands that 
work is part of the mystery of this adven- 
ture. If you get stuck— really, truly en- 
gulfed—the Med System's people are very 
nice about giving hints. I assume that's 
because they don't want the responsibili- 
ty of thousands of raving, game-playing 
maniacs on their souls. 

Past the Minotaur 

But let's face it— in a game like this, 
you should take weeks or longer to admit 
you're stuck. First you've got to get 
through the fog, and past the minotaur 
that I keep bumping into as soon as I step 
through the door. Then, there are several 
spots (or is it just one?) that you simply 



can't get out of. I've walked for hours in 
circles before realizing what I was doing. 
Like Deathmaze, this game has to be 
mapped. 

Mapped, that is, if you can do it. The fog 
makes it difficult to see in, or get through, 
certain parts of the maze. And this is the 
only place I've ever visited where you can 
jump into a pit and come up somewhere 
on the very same level you jumped from. 
Mapping this maze is like putting together 
parts of a jigsaw puzzle. Expect to spend 
many, many hours doing it. 

The mapping has to be done in sec- 
tions, and very carefully. At the same time, 
prepare to suspend your normal percep- 
tions. Up isn't necessarily up, it may be 
over, and down is usually a quick route to 
somewhere you'll wish you weren't. The 



labyrinth seems to overlap itself in at least 
one spot. 

Bring Along a Picnic Basket 

Be sure to bring along some extra 
torches and a picnic basket or two. If you 
don't, you're going to have to search for 
them, and they're well hidden, as are sev- 
eral nasty surprises that you'll just hap- 
pen across on your way. You'll have your 
pockets full of junk by then; maybe some 
of it will come in handy. 

If you ever get out, please let me know— 
I haven't. As another editor here fanta- 
sized, after walking the hallways for 
hours, you rather expect to turn a corner 
and come face to face with yourself (play- 
ing Deathmaze). This game just may send 
me to the Asylum. ■ 



T80-FS1 Flight Simulator 
Sublogic Company 
Champaign, IL 
$25 

by Jon Lindsay 

Not being used to real-time simula- 
tions, the T80-FS1 Flight Simulator 
Dy Sublogic Company was something of 
an enigma. The ads promised me the 
chance to simulate an airplane flight. My 
equipment, however, did not support the 
program. That is, not until I acquired a 
TRS-80. 

According to the accompanying manu- 
al, the T80-FS1 package is a reworked ver- 
sion of a program originally designed for 
the Apple II, improving the characteristics 
of the game/simulation. The manual, which 
also serves as "ground school" for the op- 
eration and conduct of the aircraft, 
stresses the performance characteristics 
of the program, pointing out the similari- 
ties between the program and an actual 
aircraft. The aircraft's characteristics are 
similar to the World War I Sopwith Camel 
as well as a Piper Super Cub. That is, the 
weight, length, service ceiling, horsepow- 
er and top speed of these aircraft are sim- 
ulated. This brings to mind the question of 



whether this program is in fact a simula- 
tion or just a game. The answer should 
probably be left to the user to decide. 

Program Operation 

Using a cassette, the operator must first 
type SYSTEM in order to load the assem- 
bly language preloader. Then type FS1. 
This is the preloader. When the computer 
responds again with a *?, type /. This will 
load the actual program after several min- 
utes. The program automatically exe- 
cutes and you are ready to fly. 

Before you can think about playing the 
included war game (British Ace), first you 
must learn how to fly the aircraft. Despite 
having flown planes for several decades, 
flying this simulator was not as easy as it 
sounded. 

From the Cockpit 

The pilot finds the plane sitting on the 
approach end of runway 27 (that is, facing 
due west or 270 degrees), awaiting depar- 
ture. The pilot has a view looking out 
through the forward cockpit. There are 
two views possible: One is out the front of 
the cockpit, and the other is from on top of 
the aircraft looking down. 

The latter is the radar view which allows 
for much greater perception of the loca- 
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GAME BREAKTHROUGH: 



THE STICK 80 




£ 
TO 

TRS-BQ 



g FEATURES THE FAMOUS ATARI JOYSTICK. 
gf WORKS WITH ANY LEVEL 2 AND DISK SYSTEMS. 
(^ PLUGS DIRECTLY INTO KB. OR E/l ( EXPANSION PORT). 
)gf INCLUDES SIMPLE, DETAILED INSTRUCTIONS TO MAKE 

JOYSTICK VERSIONS OF MOST ACTION GAMES. 
gf COMPATIBLE WITH ANY OTHER TRS-80 ACCESSORIES. 
0f FULLY ASSEMBLED AND TESTED. READY TO PLUG IN AND 

ENJOY. 
Sf FUN TO EXPERIMENT WITH IN BASIC: SIMPLY USE INP(0). 
@f 90 DAY PART AND LABOR WARRANTY. 



UNCONDITIONAL MONEY BACK GUARANTEETry your STICK-80 for 14 days. If for any reason you are 
not delighted with it, return it for a prompt and courteous refund (including shipping and handling). 
PRICE INCLUDES ATARI JOYSTICK + ALPHA INTERFACE + DETAILED INSTRUCTIONS + DEMO 
PROGRAM. ONLY $39.95 

JIG FIVE SOrTOARESUPEnT).^ 
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If you and your TRS-80 hivt longed for i fast-paced arcade-type game that is 
truty i challenge. I hen SUPER IBM B what you vi been wartmg for. In this 
two player machine-lenguage gams, large asteroids float ominously around the 
screen. Suddenly your ship appears and you must destroy the asteroids before 
they destroy you! (But watch out because big asteroids break apart into little 
ones.) The controls that your ship will respond to are thrust, rotate, hyperspace, 
and fire. All right! You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quick 1 You must destroy him fast because that 
guys accurate!... SUPER NOVA* 




The sound of the klaxon is calling you! Cruel and crafty invaders have been 
I spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders. Quickly and skillfully 
you shift right and left es you carefully fire your lasers at them. But watch out! A 
I few are breaking out of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing al too well 
that this shot must connect — or your mission will be permanently over! With _ 
sound effects! 



GALAXY INVASION 
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Your TRS-80 screen has been transformed into a maze-like playfieW for this 
game. As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them end fire missiles to destroy them. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazafield: the menacing "Flagship". 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! ♦♦♦♦♦♦ ATTACK FORCf 



With thousands of stars whizzing by you, your SPACE DESTROYER ship 
comes out of hyperspace directly under a convoy of aliens. Almost effortlessly, 
you skillfully destroy every last one. But before you can congratulate yourself, 
another set appears. These seem to be slightly more intelligent than the first sat. 
Quickly you eliminate ell of them. too. But your fuel supply is rapidly diminishing. 
You must still destroy two mors sets before you can dock with your space station. 
All right! The space station is now on your scanners! Oh no! Intruders have 
overtaken the station 1 You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines run out of fuel and explode! With 

— -♦ ♦ COSMIC FIGHTER 9 
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The second Bl| Bll| has occurred and the galaxy js full of stray asteroids 
and meteors. As you look through your specs part yoJ see e belt of asteroids 
drifting across the screen NodunojMwi^plluo fMutaty of the space station 
above. But be careful becaasemtjiv showW exploding suns and invading 
aliens may strike yflo^^QeJid seVJ it hustling back to ground level. How many 
times can you and yow oppwBnt maneuver through those obstacles before time 
runs out? With soundWts!*«~~~. METEOR MISSION II" 




SPECIAL 

INTRODUCTORY OFFER: 
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tion of the plane. The problem with this 
latter view is that it is not very good for ac- 
tually flying the plane. And the problem (at 
least initially) with the front view is that 
the limited graphics capability of the 
TRS-80 fails to give a realistic view of the 
attitude of the plane. 



G key). The plane's roll rate, however, is all 
that is neutralized. The plane itself is still 
in a turn until you apply opposite aileron/ 
rudder to roll out of the turn. Leaving the 
aileron/rudder applied is likely to produce 
a barrel roll. 

Instrumentation consists of the follow- 



" Despite having flown planes for several 

decades, flying this simulator was not as 

easy as it sounded." 



This is not to suggest that I thought the 
program failed in its objective to simulate 
flight. On the contrary, I was very im- 
pressed with the effort. It must be remem- 
bered that this aircraft is not meant to be a 
F-15 Eagle. Rather, it is a Sopwith Camel 
which did not have some of the more so- 
phisticated equipment of the present day. 
But the fact is that the simulator does 
have more equipment than did the Camel. 
In the words of the manual, "If you can ra- 
tionalize a tricycle-geared, good handling 
Sopwith Camel with a radar screen, you 
are ready to fly the FS1." 

The flight controls consist of a number 
of keys on the TRS-80. The views are con- 
trolled by the up-arrow (front view) and the 
down-arrow (looking down on the plane). 
These are also controls for the throttle 
(left and right arrows), elevators (T and B 
or V keys), aileron/rudder (F, G and H keys) 
and landing gear (U and D keys). Brakes 
can be applied while on the ground 
through the period key. While the keys are 
scanned rapidly for commands, the re- 
sponse is not instant. You must hold a key 
down longer than an instant in order to 
make sure that the computer has read 
your request. Failing to do so can result in 
turn rates, for example, that can lead to a 
dead man's spiral. 

Control of the moving aircraft on the 
ground is different from that in the air. On 
the ground, you steer the plane like a car. 
A left turn starts the plane (actually the en- 
vironment) turning in that direction. But 
hitting the aileron/rudder G key (neutral) 
control will cause the plane to immediate- 
ly proceed in a straight line. This does not 
apply when the plane is in flight. 

In the air the kinematic effects of lift, 
gravity, drag and momentum are brought 
into play. The flat two-dimensional atti- 
tude of taxiing becomes three dimension- 
al once in flight. As in actual flight, you 
start a turn and then neutralize it (with the 



ing gauges: airspeed indicator, altimeter, 
micro-altimeter (for precise altitude dur- 
ing landing), oil pressure, oil temperature, 
fuel, tachometer, compass, turn-rate indi- 
cator, vertical velocity, roll-rate indicator, 
elevator indicator, throttle, as well as 
three indicators for the game— score, 
bombs and ammo. The bombs are re- 
leased by the X key and the machine gun 
ammo by the space bar. What is missing 
from the gauges that would be much ap- 
preciated is an artificial horizon. But then, 
one cannot have everything. 

Taking the First Flight 

We are sitting on the end of the runway, 
engine running and brakes set. Now is the 
time to fly! In seat-of-the-pants style, ap- 
ply the throttle to about two-thirds open. 
As the prop overcomes the inertia of the 
plane, the plane slowly starts to acceler- 
ate down the runway. A flick of the B key 
will give one notch of up elevator. The air- 
speed climbs to 65 mph and at about half 
way down the strip, the plane slowly 
rotates. 

The airport's altitude is 410 feet above 
sea level. As the plane lifts into the air, the 



ing the rate of climb, depending on power 
and elevator setting. Looking forward you 
can see the end of the runway beginning 
to appear through the windshield. As it 
slides beneath the plane, hitting the 
down-arrow will give a radar view that will 
show the plane passing over the end of 
the runway at the same time. 

The compass still shows 270 degrees. 
Since this is a Sopwith Camel, this 
heading indicator can be called a com- 
pass. It appears to perform more like a 
directional gyro, however. The latter is in- 
nately more stable during turns. Time to 
start a left turn. The F key applies left 
aileron/rudder. A glance at the turn-rate in- 
dicator shows an enlarging number with a 
minus sign in front of it. This indicates 
that a left turn is in progress. If turning to 
the right, the number is positive. Of 
course, just looking out the cockpit will 
show that you are in a left turn. 

A standard rate turn is one that is exe- 
cuted at a rate such that a 360-degree turn 
will take two minutes to complete. This 
guage, the roll-rate indicator, measures 
the number of degrees per minute. A stan- 
dard rate turn, therefore, is 180 degrees 
per minute. Since this is a very control- 
lable rate, it is a preferred rate of turn. 
Less than that is somewhat shallow and 
will take a long time to complete. More 
than that increases the likelihood of a turn 
that quickly gets out of control. (Note that 
even though the aileron/rudder is in 
neutral, the turn is still being executed.) 
To return to straight and level flight, one 
must roll out of the turn by applying op- 
posite aileron/rudder. . .just like a real 
plane. 

With the turn properly established, the 
plane is allowed to continue until it ap- 
proaches 90 degrees, or the opposite di- 
rection of the take-off. The plan is to make 
a landing back at the airport. As the plane 
turns, looking forward will show a series 



'We are sitting on the end of the runway, 

engine running and brakes set. 

Now is the time to fly!" 



micro-altimeter reflects the gaining alti- 
tude. The vertical speed (velocity) indica- 
tor (VSI) also reflects the climb by show- 



of moving lines which represent the one 
mile wide sectional lines as they appear 
before the windshield. These lines are part 
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of a large grid that makes up the world of 
your aviation adventure. Going beyond 
the grid is to venture into the vaporous 
ether of the unknown. Nothing is out there! 
That is not to say that you cannot go there. 
You just won't find anything. 

Flying over the outer boundary of the 
grid on a heading of 90 degrees, for a min- 
ute or so, will give us a reasonable amount 
of time and distance to prepare for the ap- 
proach to the airfield. Though we cannot 
always see it, we know where it is. The vi- 
sion from the cockpit is changed by rais- 
ing and lowering the landing gear. With 
the gear up, the grid is more readily seen 
but the runway detail is absent. Lowering 
the gear will allow enough detail to recog- 
nize the centerline of the runway during 
the approach. It is very important to a 
good landing that we can see the full run- 
way in its greatest detail. 

Again, executing a left turn at standard 
rate, the plane is allowed to come around 
to a heading of 270 degrees. This is where 
the runway lays. There is no guarantee at 
this point, however, that you are actually 
lined up with the runway. If you did not 
standardize your turns during take-off and 
approach, you will have to make adjust- 
ments during the final approach in order 
to correctly align the plane with the run- 
way. 

With the landing gear in down position, 
the view out the front, at this point, is re- 
markable. The paralax of the runway is 
readily apparent (but only if you are lined 
up). If your approach to the runway was 
perfect, it appears to be growing in size 
and perspective. With the power throttled 
back and slight aileron/rudder adjust- 
ments to finish aligning the plane with the 
runway, the elevator is gradually raised to 
allow for flaring of the plane as it touches 
down. Some braking will probably be nec- 
essary to bring the aircraft to a halt. Ideal- 
ly, the plane should be sitting on the 
centerline of runway 27. To check that, 
look at the radar view. That gives you the 
final perspective on the landing. 

This landing is more easily described 
than performed. And perhaps that is the 
challenge of this program. Repeated at- 
tempts netted only fair results at landing. 
And having made a good landing one time 
was no guarantee that it could or would be 
repeated another time. Because of the 
variation in approach technique, every 
landing is unique! 

Looking at the World 

Once you feel that you have mastered 
the flying aspect of the program suffi- 
ciently, you may want to explore the rest 
of the available world. The world, clearly 



described and mapped in the manual, 
consists of a grid of section lines. The ac- 
tual world is comprised of 36 square miles 
of terrain, or six miles per side. Within this 
area is the British airbase (from which you 
depart), a civilian airport and an enemy air- 
base (with which you may conduct a war 
—hence the score indicator, ammo and 
bombs). Since this airplane is slow, it 
takes a bit of time to get anywhere. At the 
same time, fuel is being used. 

Should you need to refuel, you must re- 
turn to the British airbase from which you 
came, land and taxi to the hanger on the 
ramp and stop. Magically your Sopwith 
will be refueled with 38 gallons of petrol 
and you can continue warring or making 
touch-and-goes or lazy eights in the sky. If 
you are really anxious to get back into the 
sky, you may simply press the zero key. 
This relocates the plane back on the end 



suit in transference of learned flight tech- 
nique from simulator to actual aircraft is 
debatable. Certainly Sublogic makes no 
such claim. They are, however, eager to 
point out how similar the flight character- 
istics between program and plane are. I 
would certainly have to agree. Because of 
the low resolution of the graphics, per- 
forming a maneuver like landing probably 
wouldn't aid you in landing a Cessna 150. 

Flying is as much an art as a science. 
The keyboard of the simulator would prob- 
ably not suffice for a control yoke in that it 
offers very little feel. On the other hand, 
during the time of the simulation when 
you must rely on instruments for aircraft 
attitude, altitude and direction, I feel that 
the same mental acuity is necessary to 
accomplish the task here as under actual 
flying conditions. 

Flying on instruments means that you 



"Because of the low resolution of the graphics, 

performing a maneuver like landing 

probably wouldn't aid you 

in landing a Cessna 150." 



of the runway, with the engines revving, 
ready for take-off. Reset relocates the 
plane and replenishes ammo and fuel. At 
the same time it turns off the war mode. It 
does not, however, reset the flight con- 
trols or the throttle. This can make for 
some interesting, unexpected take-offs 
from time to time. 



Game or Simulation 

The program, to its credit, is both a 
game and a simulation. But the game is a 
real-time game. By hitting the W key, the 
war is on. There is no turning back. This 
can be a fun source of diversion for those 
interested in this kind of activity. And 
there is quite a challenge to it, hence the 
score, ammo and bomb indicators. I, how- 
ever, enjoyed the challenge of routine 
flight maneuvering and the simple plea- 
sure of cruising around the available 
world and exploring it as it presented it- 
self. Landings and take-offs do require 
considerable amounts of skill in order to 
perfect them. There is a remarkable simi- 
larity of the subtleties of flight between 
the actual plane and the program. 

Whether this simulator can actually re- 



must apply a rigid scanning procedure in 
order to avoid losing control. Fixating on 
an instrument for a moment may cause 
unsuspected surprises. Next thing you 
know the plane is in some very unusual at- 
titude. . .in other words, out of control. 
Flight is not in one or two dimensions. It is 
a three-dimensional, real-time process. 
And it is this aspect that gives spice to the 
whole event. So the key to flying under 
Instrument Flight Rules (IFR) is to antici- 
pate problems and correct them before 
they become large and uncontrollable. 
The T80-FS1 Flight Simulator allows you 
this capability. 

Is It Any Good? 

Because it is possible to place the air- 
craft in different spatial positions, each 
flight is both a new learning experience 
and challenge. The environment on the 
CRT appears to change with the aircraft's 
different attitudes, giving you a reason- 
able perspective of this orientation. The 
more you experiment with the program, 
the more skilled you become in flying the 
simulation. All in all, T80-FS1 is quite a de- 
light to experience and one heck of a way 
to take a trip. Happy landings! ■ 
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Everest Explorer 

by William Godman and Don Knowlton 

Acorn Software Products, Inc. 

Washington, D.C. 

$14.95 cassette 

$20.95 disk 

by Bert Latamore 

80 Microcomputing staff 



Have you ever wondered what it would 
be like to climb the world's tallest 
mountain? Can you imagine yourself 
climbing an iceflow, clinging to a near 
vertical ledge or working cautiously up a 
precipice while the thin wind whistles by? 
What is it like to stand on a piece of the 
earth that is higher into the stratosphere 
than most commercial airlines fly? 

If you would like to answer these ques- 
tions, don't bother with Everest Explorer, 
the new strategy game for the TRS-80 Lev- 
el II. All this game is going to teach you is 
how to handle the problems of shifting 
supplies from one camp to another to in- 
sure everyone has enough food, water and 
a comfortable bed. 

Expectations 

Basically, I expected to have to make 
critical climbing decisions— how to get 
around or over a chasm, how to get up a 
rock face, that sort of thing. I did not ex- 
pect graphics, which was just as well be- 
cause there are none. I did expect an ad- 
venture where you make your move and 
the computer tells you the result of it and 
describes any new challenges you may 
face. 

However, what I found was that I was 
completely drowned in the minutia of sup- 
plying the expedition while the computer 
had all the fun of deciding on actual climb- 
ing strategies. 

Everest Explorer starts you in Katman- 
du, the traditional kicking-off point for Ev- 
erst expeditions, with an operating bud- 
get randomly selected from a low of 
$80,000 to a high of $275,000. You spend 
this money on climbers, Sherpa guides (Ti- 
betan people who are skilled climbers), 
tents, oxygen, food and fuel. The program 
has considerable flexibility, allowing you 
to go back and change selections until 




you are completely satisfied. It also will 
not allow you to overspend your budget. 

Once you have organized your expedi- 
tion the computer asks your last name 
and enters you as one of the climbers. It 
then totals things up, gives you a list of 
climbers and Sherpas and moves you to 
the base camp, a permanent installation 
at the base of the mountain. 

Up until this point I enjoyed the pro- 
gram. The careful choices of climbers and 
supplies to face the challenge of the 
mountain was a good intellectual exer- 
cise, especially as I am not a mountain 
climber and have no real experience in or- 
ganizing expeditions of this kind. 

At the base camp, however, things be- 
gan to go wrong. 

The first challenge of the expedition, 
according to the instructions, is to find a 
route through the Khumbu Glacier to the 
site of camp two. To do this, you want to 
send out all available climbers and Sher- 
pas. First, check the weather forecast, 
which is divided into three sections: 
weather conditions on the lower moun- 
tain, conditions on the upper mountain 
and the day's weather prediction. The in- 
structions warn that the predictions are 
not 100 percent accurate. 

The way you send climbers out is to se- 
lect the fourth item on the menu— climber 
assignments— and call up each climber 
individually by a letter or (for the Sherpas) 
number. 

Calling a climber up gives you a name, 
location and present condition. Pushing 
two letter keys assigns the person to work 
on the route to camp two. Enter returns 
you to the point where you can call anoth- 
er climber. I had 45 climbers and Sherpas. 
The process lost some of its excitement 
by the time I was finished. 

No Climbing? 

I thought that when this chore was com- 
pleted the fun would begin. I pushed the 
key to indicate all cl imbers were assigned. 
The screen went blank for a minute, then it 
displayed "evening reports" and told me 
the path through the glacier was 25 per- 
cent complete. 

"Wait a minute," I thought. "Don't I get 
to do any climbing?" 

Five turns later I had established my 
route to camp two. I had gone just about 
crazy pushing command buttons by then. 
I had also discovered a data problem. 

The program's menu gives four 
choices: Weather, camp status, climber 
status, climber assignment. I quickly 
learned that when doing the repetitive 
climber assignments I was wise to double 
check them by going through the climber 
status list afterwards. This gives a list of 
climbers by name showing only their con- 



"At the base camp, 
things began 
to go wrong." 



dition (from excellent to critical) and 
climbing assignment. I had decided that I 
would not use climbers with only a good 
health status, the minimum acceptable 
status for exploration. 

However, the problem was that when I 
found one or two climbers who were in 
very good condition on their assignment 
sheets they were only in good condition 
on the status list. 

This was minor compared to the main 
problem, however. Once I established 
camp two, I began to move all my supplies 
up to it (no climbing supplies are needed 
at the base camp according to the instruc- 
tions). At the same time I sent a small 
group of climbers up to camp three to es- 
tablish it. Very soon I found myself moving 
supplies and climbers among three 
camps. 

The climbing instructions became 
much more cumbersome. I had to assign 
each climber a destination, and decide 
what he should carry to that destination. I 
also had to make sure each camp had a 
sufficient number of tents, food and fuel 
to supply the expected climbers. This was 
complicated by the lack of a unified listing 
which would show how many climbers 
would be in camp the next night, what 
supplies would be waiting for them and 
what they would bring with them. In order 
to make up such a list so I could be sure of 
what I was doing, I would have had to go 
through three of the four data banks listed 
in menu and take written notes. 

At this point I had already spent more 
than two hours playing this particular 
game. The instructions stated that if you 
want to save a game you can put it on a 
formatted disk. Unfortunately, something 
went wrong and the data was lost. It was 
just as well— I was getting a headache 
anyway. 

That was the third and last attempt I 
made on Everest and the furthest I got. On 
the basis of my experience I would esti- 
mate it would take six or more hours to 
play a complete game. 

If you enjoy dealing with the intricacies 
of logistics you will love Everest Explorer. 

For those who have adventure in your 
heart— spend your money on a trip to a lo- 
cal hill and climb it. You'll be much closer 
to the Everest experience than with this 
program.H 
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Put Your Fingers On 
The Pulse Of Wall Street 

With Your 
Radio /hack Computer 



If you invest in the market, operate your own busi- 
ness or require updated information quickly to 
manage your affairs, Dow Jones Information Services 
provides the authoritative business and financial in- 
formation you need. . .from Wall Street, Washington 
and around the world. Now Radio Shack owners 
can receive this valuable service through TRS-80® 
Videotex® software. 

Get Information For Business And 
Investment Control. . .On Command 

Discover how quickly and easily your personal 
computer rums into a specialized, sophisticated 
library of information with access to the Dow 
Jones database. If s considered the world's most 
reliable and comprehensive source of business 
and financial data providing you with news 
up-to-the-minute as well as from the pre- 
vious 90 days. 

Now you can review thousands of items 
from The Wall Street J ournal , Barron's and 
the worldwide Dow Jones News Service 
without having to maintain piles of news- 
paper clippings. Information about com- 
panies, stocks, labor, government, interna- 
tional market and monetary developments, 
and so much more, is yours on command. 

Quotes From Four Exchanges 

Now, in just seconds, you can obtain cur- 
rent prices and the volume traded for 
stock quotes (15 minutes delayed) on over 
6,000 companies. . .plus 50 key financial in- 
dicators on 3,200 selected firms and 180 in 
dustries. You'll also have access to trading 
information on mutual funds, treasury 
notes and bonds. 



Imagine being able to spot trends, research a com- 
pany, obtain data that could affect your business, 
your investments, your investment decision-making. 
But you don't have to imagine anything. . .Dow 
Jones Information Services provides it all right now. 

Low Start-Up Cost. . .Free Password. 

Stop by your nearest Radio Shack store and 
find out how easy and inexpensive it is to get 
Dow Jones investment data through TRS-80 
Videotex. Videotex software for Radio Shack 
computers is only $29.95. Whaf s more, you 
get a Dow Jones password absolutely 
free. . .along with one hour of free in- 
troductory time. And there are no 
start-up or minimum usage charges. 
In addition, software and usage costs 
will be tax deductible in many cases 
(consult your tax advisor for further 
information). 

Customer Support. . . 
Just A Phone Call Away. 

Dow Jones' professional customer 
service staff is ready to provide com- 
plete information about this impor- 
tant home information service now. . . 
and full customer support after 
you've made your purchase. 
Just call toll free. . . 

800-257-5114 

In New Jersey call: 
(609) 452-1511. 

TRS-80, Radio Shack, and Videotex are registered trademarks of Tandy Corp. 




DOW JONG INFORMATION SERVICES 

Providing Information Through Innovation 

Dow Jones & Company, Inc. ^^ 
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Zoric 

Personal Software, Inc. 

Sunnyvale, CA 

$39.95 disk 

32K Model I, Level II 



by Debra Marshall 

80 Microcomputing staff 



We play adventure games and be- 
come willingly enthralled by the ex- 
citement, mystery and magic of their sto- 
ry. We become the hero and slay represen- 
tatives of evil. We collect our just rewards: 
treasure and gold, perhaps a pretty prin- 
cess. But most of all, we gain the lore of 
the land, and the knowledge that we have 
conquered it and can walk its paths with- 
out fear. We have won and now we look for 
new, unexplored adventures. 

Zork is complicated and sophisticated. 
It is an underground kingdom, but its trea- 
sures lie above and below ground. One of 
its greatest treasures is its ability to react 
to fairly complex commands. You can do 
very specific things in Zork; you are not 
limited to a vague, general activity be- 
cause the program recognizes only two- 
word commands. When you decide to at- 
tack a nastie, or dig a hole, you should 
have a definite plan of attack and weapon 
(which should be part of your com- 
mand)— or you may find yourself fighting 
the forces of evil with your bare hands, or 
worse. 

Zork is a joy to play. There are no graph- 
ics; the screen carries a description of 
your surroundings and the directions of 
travel that are available to you. Your num- 
ber of turns, and points acquired, are also 
on the screen at all times. It is up to you to 
decide what to do, and how to do it. Climb 
trees and look around; check under rocks 
and piles of leaves; read walls and books. 
Explore, but keep in mind that directions 
change; just because you went north to 
get to the chasm doesn't mean you can re- 
turn simply by going south. And, please, 
watch out for the pickpocket. 

Reincarnation 

Zork contains many areas, and conse- 
quently should be mapped. Because of its 
complexity, mapping will take a lot of 
time, and thoroughly exploring each room 
and site will take longer. A save procedure 
bookmarks your place in a game so you 
may avoid starting from the beginning 
each time. This can also be used by timid 
game players (or reviewers on deadline) 
before attempting a potentially danger- 



ous move (you cavalier and stout-hearted 
daredevil) and manage to get yourself 
killed. You have the option of being rein- 
carnated by various games-masters. You 
do lose points, however, for having proven 
yourself not very discriminating in your 
character's choice of activities. 

A 15-page instruction book accom- 
panies the disk. The book gives back- 
ground, directions and explanations of 
the game, and also describes in great 
detail how to load and save the game on 
one and two-disk systems. The instruc- 
tions are incredibly complete, they even 
include directions for initializing the 
TRSDOS disk you will need. Take it from a 
rank amateur; these instructions are clear 
and easy to follow. 

Staggering Possibilities 

Mysteries abound in Zork. I'm not sure it 
can be solved— there is so much in it and 
the possibilities seem staggering. Since 
the program lets you do pretty much what 
you want to, even if the consequences are 
much less than desirable, it leaves open 



marvelous opportunities for those of us 
who love to break into things to see how, 
and if, they work. I've spent many hours 
pondering why the earth shakes when you 
smash the mirror. I also have one very 
smashed jeweled mechanical bird for sale 
to the highest bidder. 

Walk carefully along the paths, and 
enter no dark places without a light; there 
is always a Grue present in dingy spots 
which would love to eat you. The stars are 
high and the canyon is deep. Somewhere 
is a key to unlock the grate under the pile 
of leaves. Do not lose your mind in the 
loud room— the answer is there if you can 
only hear it. 

Above all, be ready to ask questions 
and to giggle. The program has answers, 
and also a sense of humor. 

Perhaps you can play against someone 
across the country on one of the modem 
systems— it is being done. 

There is much to explore in Zork, and a 
lot to play with once you're there. The 
booklet describes Zork as Part 1; I truly 
hope that means we can expect a second 
part sometime soon.B 



Super Nova 

Big Five Software Co. 

Van Nuys, CA 

$15 

by Carl A. Kollar 



Super Nova is a machine language pro- 
gram with some of the fastest graph- 
ics I've seen so far. Asteroids glide across 
the screen in all directions, and aliens 
shoot at your spaceship as they go by. 
When you hit a meteor it splits into frag- 
ments, and you've got to watch out for 
those too. When you get hit by a meteor or 
alien fire, the screen flashes, and all that's 
left of your ship is debris. 

The game can be played with one or two 
players. If you're playing by yourself, 
you're given three ships; when they are 
destroyed, the game ends. If you're play- 
ing with two players, each is given a turn 
until his ship is destroyed. The play alter- 
nates between the two players until each 
has had three ships destroyed. The winner 
is then declared and his score is posted if 
it is among the top 10 scores thus far. 

Meteor Field 

An interesting feature of Super Nova is 
that when it starts, your screen simulates 



movement through a star field and then 
the title pages appears. While introducing 
the program, it asks whether you want in- 
structions or would like to start the game. 
If you don't respond within about 45 sec- 
onds, it assumes you can't make up your 
mind and gives you the instructions any- 
way. At the end of the instructions it asks 
you to press a key to start the game. If you 
don't do this within about 45 seconds, it 
starts without you and plays by itself 
destroying asteroids and moving about as 
if someone was controlling it. Sometimes 
the score is pretty good too! 

The game is thoroughly enjoyable and 
worth every dollar. Action is fast and the 
game is challenging. Especially when you 
get past a score of 10,000 and that nasty 
flagship appears and blows you to smith- 
ereens unless you're careful. 

My only criticism has to do with the 
graphics for your ship. It is hard to tell 
which direction your ship is facing. The 
only way I've been able to tell which was 
the front was to fire a missile and see 
which end it comes from. 

It seems to me that with all the work 
that went into this program, a little more 
effort could have been made to make the 
direction of the ship more recognizable. 
After playing this fascinating game and 
becoming familiar with it, I'd still spend 
the money if I had it to do over again. ■ 
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ALPHA BYTE DOES IT AGAIN... 




Call us for our never undersold price. 

ALPHA 
BYTE ... 
STORE/ 




(213) 883-8594 

5115 Douglas Fir Road • Suite B • Calabasas, CA 91302 



60 MICROCOMPUTING 
ANNOUNCES... 



z 




. . . and saves you hours of typing and aggravation. 

LOAD-80 is a monthly dump of the major program listings in 80 Microcomputing on cassette. 
Publisher Wayne Green tells you more . . . 



"Frankly, after hundreds of hours of 
frustration, I seldom even try to keyboard a 
published program. Even if the magazine 
manages to get the program typeset correctly 
(which seems rare), I inevitably screw it up 
when I keyboard it. Who needs the aggrava- 
tion? 

"This is why I've started a new series of 
cassettes called Load 80. Each cassette will 
have program dumps of the listings in an 
issue of 80 Microcomputing. These listings 
are direct from the authors and tested by the 
80 staff. All but the very short program 
listings will be on these Load 80 cassettes. 
Thus you will be able to save hours of input- 
ting programs and even more of debugging 
your keyboarding errors. 



"Though the authors of these programs 
will share the royalties from the sale of the 
cassettes, this will not preclude the better 
programs from being issued separately by In- 
stant Software (with royalties) with full 
documentation and associated hoopla. The 
documentation for the Load 80 programs 
will be entirely in 80 Microcomputing. 

"I originally was holding out for "Trash 
Dump" as a name for the cassettes, but cooler 
heads prevailed. If there turns out to be 
enough interest in Load 80, we'll set up a 
monthly subscription arrangement." 

Wayne Green, Publisher 



The Load-80 cassette is simply the program listings that appear in the articles in 80 Microcomputing. It was created to save 
you the time involved in typing in the listings yourself. Successful loading of the programs depends on reading the documen- 
tation in the articles. If you have your current magazine at hand when you load the cassette, you should have no difficulty. If 
you still have problems, please return the tape for a replacement. 



Send in the attached card and you 

will receive the cassette for the major 

programs in this issue. 

If the card is gone, photocopy the 

coupon. 



Plcmtt nolt I here ll no wurinly nprcucd or implied (hn ihii prof rim 
it going lo do anything oihcr ihin uvc you lyping. 



□ Yes. . .send my LOAD 80 Cassette for only $9.95 
| □ Check Enclosed Bill my DAE DMC D VISA 
NAME. 



ADDRESS 
CITY 



STATE. 



ZIP. 



CARD# 



^EXPIRE DATE. 



SIGNATURE. 



INTERBANK ft. 



^ 



Please allow 44 weeks for delivery 

80 Microcomputing Pine Street Peterborough Nil 03458 

Attn: Debra L Boudrieou 



~l 



8008 
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Invaders + 
Larry Ashmun 
Level IV Products 
Livonia, Ml 
$19.95 cassette 
$24.95 disk 

Invasion From Outer Space 

Chris Freund 

The Software Exchange 

Milford, NH 

$14.95 cassette 

Galaxy Invasion 

Bill Hogue 

Jeff Konyu 

Big Five Software Co. 

Van Nuys, CA 

$14.95 cassette 

$17.95 disk 

by John T. Phillipp 

Only someone who has been living on 
the dark side of the moon for the past 
two years could be unaware of the In- 
vaders video arcade game. This mind- 
numbing experience consists of rows of 
aliens marching back and forth across the 
screen hurling missiles down at a defend- 
ing base which is protected only by a few 
gas clouds and the fast reflexes of the 
player. The goal is to destroy all the aliens 
by shooting missiles from the base, as 
they come closer and closer and move 
faster and faster, accompanied by an in- 
creasing tempo of the sound effects. 

There has been a proliferation of 
Invader-type games for the 80. This is a 
review of three of them. 

Invaders + is a 2.9K machine language 
program which presents the player with 49 
aliens of two types, arranged in seven 
rows of seven aliens each. An additional 
alien zips continuously across the top of 
the screen. 

The animation of the aliens is good, as 
they seem to take little steps in their 
march across the screen, dropping 
missiles on the defending base. Five gas 
clouds protect the bases, at least until 
they are eroded away by the alien attack, 
or from below by the missiles fired the 
base. The base can be moved from side to 
side very quickly. Missiles are fired 




at the aliens by pressing the space bar, 
but cannot be fired while the base is mov- 
ing. (Holding down the space bar causes 
repeated firing.) 

Missiles from the base can destroy the 
aliens or the descending alien missiles. 
Sound effects are very good, quite similar 
to the arcade game. The score is incre- 
mented for each alien destroyed, each 
type has a different value. The number of 
shots taken, number of misses (there is a 
penalty for missed shots), and the previ- 
ous high score are displayed after each 
game. The game continues until four 
bases have been destroyed but each time 
all the aliens are eliminated, the player 
starts with four new bases. 

I have a few minor complaints. The base 
moves right and left so quickly that it is 
hard to control. It is not possible to fire at 
the aliens while the base is moving. There 
Is no ongoing display of how many bases 
remain. And at the end of each game, the 
player has to sit through a rendition of the 
Star Wars theme before he can play again. 

Invasion From Outer Space 

Invasion From Outer Space is a 6K 
machine language program which pre- 
sents the player with 105 aliens of only 
one type, arranged in seven rows of 15 
aliens each. There is no animation of the 
individual aliens, they just move back and 
forth across the screen, dropping 
CHR$(191)s on the defending base, which 
is protected by three gas clouds. 

The alien missiles have no effect on the 
gas; clouds, but they can be eroded by 
missiles from the base. The base can be 
moved rapidly from side to side under 
good control, firing CHR$(191) at the 
aliens by pressing the space bar while it 
moves. There is no auto-repeat firing; the 
space bar must be pressed for each shot. 

Defending missiles cannot destroy de- 
scending alien missiles. Sound effects 
are appropriate to the action. The score is 
incremented for each alien destroyed, and 
there is no penalty for missed shots. The 
game continues until five bases have 
been destroyed. When a new screen of 
aliens appears, it is without new bases. 
An added addition is a mystery saucer 
which flies across the top of the screen. 
Hitting that the mystery saucer results in 
an extra base. 

My complaints are minor ones. The pre- 
vious high score is not displayed. The 
CHR$(191) used for missiles by both the 
aliens and the bases seem too big. And 
sometimes, when you press the space bar 
it doesn't fire a missile; presumably the 
CPU is updating the display, and not mon- 
itoring the keyboard. 



Galaxy Invasion 

Galaxy Invasion is an 9.2K machine 
language program which presents the 
player with 40 aliens of four different 
types, arranged in four rows of 10 aliens 
each. An additional six aliens in two 
groups of three provide an upper fifth row. 
The animation of the aliens is superb. Not 
only do they flap their wings as they 
march across the screen, but they attack 
the base by swooping down in singles and 
groups. They also drop missiles, repre- 
sented by single graphics points, but their 
aim is poor. 

There are no gas clouds for protection 
of the base. The base can be moved from 
side to side by pressing the space bar. 
Holding down the space bar causes re- 
peated firing. 

Aliens can be destroyed while on the 
march, or while flying. The sound effects 
are not like the arcade game at all. The 
score is incremented for each alien 
destroyed, each type has a different value 
which doubles if they are attacking! 

The ten previous high scores with the 
scorer's initials are displayed. The game 
continues until three bases have been 
destroyed, and an additional base is 
awarded for each 10,000 points scored. 
There is provision for two players to com- 
pete alternately. For the single player, the 
game goes into a demonstration mode 
with the computer controlling the aliens 
and the base. 

There are several complaints. The CPU 
is so busy with the display that there is 
often a delay between the space bar and 
the firing of missiles, which adds the frus- 
trating element of luck to what should be 
a game of skill. The sound effects are the 
poorest of the three. The game is silent 
unless a missile is fired or an alien is hit. 
And before each game, the title is dis- 
played and the number of players must be 
input, another unnecessary delay. 

The Verdict 

Invaders + is the closest to the arcade 
game in its animation and sound effects. 
It is fast-paced and challenging. The addi- 
tion of levels of difficulty makes it in- 
teresting to beginners and experienced 
players. 

Invaders From Outer Space is simpler 
but also fast-paced, and keeps the spirit 
of the arcade game. 

Galaxy Invaders is the most sophisti- 
catedof the three. Its imaginative use of 
graphics provides a demonstration of the 
kind of animation the TRS-80 is capable of 
producing. Still, its poor sound effects 
and relatively slow pace make it less satis- 
fying than the others.B 
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Swamp Wars 
Instant Software, Inc. 
Peterborough, NH 
Level II, 16K 
$14.95 cassette 

by Eric Maloney 

Kilobaud Microcomputing staff 

Swamp War reenacts a hostile encoun- 
ter between a tramp spacer called The 
Stellar Spaniel and the indigenous popula- 
tion of an unnamed planet in the Bragthos 
sector. 

The local aborigines— known to the less 
informed as Slizards and Muck Monsters 
—are lazing around the lean-tos one after- 
noon when a fellow who is out washing his 



car happens to see the Spaniel land on one 
of the planet's nine islands. He naturally 
calls in a report to Mutual Aid, and pretty 
soon just about everybody has heard the 
news on their scanners. 

As it turns out, the Spaniel is only stop- 
ping for repairs. But the townies have had 
previous difficulties with bounty hunters 
and mercenaries, and know that the rest of 
the solar system has about as much use 
for them as a bucket of cold farts on a 
rainy day. So they mobilize their SWAT 
squad to go out and deal with the situa- 
tion. 

But life ain't no chair of bowlies. The 
ship's captain, with the improbable name 
of Legion J. Muldoon, is a crafty SOB, and 
soon has four 'droids combing the islands 
for transporters left behind by a group of 
missionaries. He hopes to use the trans- 
porters to repair his ship, and book. 

The Slizard SWAT team isn't too bright. 
In fact, there's a warrant on the agenda for 
the next town meeting to raise the en- 
trance standards. They come charging up 
on the island hell-bent for bongoburgers, 
and Muldoon cleans the beach with their 
faces. He even picks off a few Muck Mon- 
sters, who shoot faster and with greater ac- 
curacy, before sending his 'droids to an- 
other island. 

Naturally, the locals are upset. This sort 
of thing costs a bundle in ritual bereave- 
ment ceremonies. So they send out anoth- 
er squad, with instructions to stay low and 
kick ass. 



These guys do a little better, backing 
one of the 'droids into a public restroom 
and turning him into swamp gas. But the 
'driods bob and weave, transport from one 
part of the island to another, and generally 
make themselves difficult targets. The re- 
sult is the same, and the Honor Guard 
deep-sixes 18 more shoe boxes. 

These first two confrontations set a 
pattern that continues from island to is- 
land. The Slizards are beginning to feel 
like they're riding mopeds through the Lin- 
coln Tunnel. The Muck Monsters start to 
pack their station wagons and make hotel 
reservations in Miami Beach. 

But somewhere around island five, the 
action picks up. The Slizards kick out the 
jams and get serious, wasting two more 
'droids. Muldoon is tired of pushing all 
those buttons, and the remaining 'driod is 
complaining about heartburn. He is about 
ready to toss a mud ball at the mother ship 
when a Muck Monster sneaks up from be- 
hind and grinds him into silicon dust. 

That's it, of course, for Muldoon, who 
drinks six bottles of Scope and dies of 
minty breath. 

The Slizards and Muck Monsters dis- 
mantle the ship and use the parts to repair 
their tractors. Muldoon's boots and the 
six empty Scope bottles are sent to the 
Museum of Modern History, where they 
are put in the basement and forgotten. 
The story makes the wire services, but the 
public loses interest when the Pope ar- 
rives for his first tour. ■ 



Haunted House 
Tandy/Radio Shack 
Fort Worth, TX 
$9.95 cassette 



by David Williamson 



The second adventure program market- 
ed by Radio Shack is called Haunted 
House, (the first is Pyramid 2000) and was 
developed for them by Device Oriented 
Games. It is short enough for a beginning 
adventure player, but needs the expertise 
of a professional; it is therefore not suit- 
able for either. 

The instructions are very brief— only 
one-third of a page with no real help pro- 
vided to beginners. 

The vocabulary is also limited, consist- 
ing of: N, S, E, W (for the directions North, 
South, East and West), Get, Drop, Read, 
Attack, Smash, Pour, Hit, Open, Climb, 



Jump, Look, Inventory and Kill (only N, S, E, 
W, Get and Drop are covered in the in- 
structions). After using the enormous 
vocabulary of Hi-Res Adventures and the 
Scott Adams adventures, I was frustrated 
not only by the small vocabulary, but also 
by the omission of standard commands 
such as Go, Use and Throw. 

On a positive note, the game uses a 
sense of humor in solutions and re- 
sponses. For example, if you try to Get 
Cabinet, you will get the response: "Don't 
be ridiculous!" instead of the customary 
"You can't do that." 

The object of the game is to get out of 
the Haunted House alive. The game is in 
two parts, in Part I you are on the first 
floor, dodging levitating knives, looking 
for a secret passage, and getting past ani- 
mated suits of armour and fires. The sec- 
ond floor program is loaded when you get 
there. This is where I got stuck for a while. 

On the second floor, you find a magic 
sword and three ghosts, one to the west, 
one to the south and one to the east. After 



destroying these three, you find a ghost to 
the west of the western ghost. You quickly 
discover he is immune to attack. The prob- 
lem was I couldn't seem to get out of this 
particular room. 

After trying almost everything, I felt 
desperate enough to call Texas, but I acci- 
cently discovered that by moving around 
the room in certain directions would trig- 
ger one of the entrances to open. It is de- 
batable if others will be as lucky as I was; I 
think the assistance of an experienced ad- 
venture player would help. 

Playing straight through, without any 
wasted commands, the program only 
takes six minutes and that includes load- 
ing time. It is short enough to suit the be- 
ginner who will go on to bigger and better 
things. 

In conclusion, with the only plus being 
humor, and the minuses being limited in- 
struction, vocabulary and game (most be- 
cause of limited memory), I advise you to 
save your money for 16K or larger 
adventures. ■ 
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Radio Shack Made the TRS-80 
Color Computer Even Better! 



At $399* it's no wonder the 4K TRS-80 Color Computer is ideal 
for beginners. Now there's a TRS-80 Color Computer designed 
for more advanced applications, too. 

TRS-80 Extended Color BASIC Computer. This high- 
performance computer includes a 16K ROM Extended BASIC 
with advanced graphics, eight brilliant colors, and sound for an 
unprecedented low price! You can draw fine lines, circles, rectan- 
gles, boxes and more with easy-to-use one-line commands. 
Four graphic modes with two color sets allow up to 49, 152 pro- 
grammable screen points (pixels). There's 225 separate tones 
for music or sound effects, too. All this on a 16K RAM machine 
(including video memory) loaded with the dynamic features a 
serious programmer demands. You get a 32-cplix 16-line screen, 
multi-character variable names (two significant), editing, tracing, 
user-definable keys, 255-character string arrays, floating point 9- 
digit accuracy, and even machine language routines. 

Priced at Only $599, the TRS-80 Extended Color BASIC Com- 
puter is useful, entertaining and educational. Yet using it can be 
as simple as plugging in one of Radio Shack's instant-loading 
Program Paks. The computer attaches to your TV, or our own 
$399 TRS-80 Color Video Receiver. For just $24.95, you can add 
a pair of joysticks which add flexibility to games and video dis- 
plays. A built-in serial interface lets you attach a printer or a 
modem. A pair of tutorial, Extended Color BASIC instruction 
manuals are included, as well. 

More Good News. Extended Color BASIC is also available as an 
upgrade kit ($99) for your 4K Color Computer (16K RAM 
required — $1 19). There's a modest installation charge for each 
kit. 

New TRS-80 VIDEOTEX Software (with the modem shown 
below) offers quick, affordable access to various information 



and data services. The CompuServe 3 Information Service gets 
you local, national and international news, weather and sports 
from major newspapers, like The New York Times and The 
Washington Post, plus the Associated Press News Service; info 
on stocks and bonds; educational reference service; nationwide 
Electronic Mail and much more! The Dow Jones® Information 
Services provides stock exchange quotes— as recent as 15 min- 
utes—plus feature selections from The Wall Street Journal and 
Barron's. 

Only $29.95 Buys You VIDEOTEX Software including a free 
hour on both CompuServe and Dow Jones. Come see the new 
TRS-80 Color Computer, its programs and accessories, at your 
nearby Radio Shack today! 

Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 
6100 STORES AND DEALERS. 140 COMPUTER CENTERS 
AND 135 SERVICE CENTERS NATIONWIDE " 4 





A Low-Cost. Dtrect-Connect Modem. A con- 
venient alternative to an acoustic coupler. 
The TRS-80 Modem I lets you enter the 
world of microcomputer communi- 
cation for only $149. Cable extra. 

Speculations. Low-Power CMOS 
Circuitry Full duplex 300 baud. 103 
compatible ANS/OR1G SensKMty 

itV - 43 dB Connectors DB25/4-ptn DIN; 
Include* Interface for Model I cassette port. 
FCC approved 



% CompuServe is a trade 
S Dow Jones is a trademark i 



ores and dealers 
uServe, Inc. 
es & Co.. Ir 
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Two Heads of the Coin 

Adventure International 

Longwood, FL 

$19.95 

32K Disk Basic, TRSDOS 2.2 or 2.3 

by Dan Rollins 

This program is a type of sophisticated 
game in which the player assumes the 
role of a character in a narrative novel. At 
various points in the dialogue you are 
prompted to ask questions or take ac- 
tions. The input line may be as long as 
needed— an improvement over the two- 
word (verb/noun) input of the adventure 
series. The idea behind interactive fiction 
is intriguing and its author, Mr. LeFore, 
has put a lot of effort into Two Heads of 
the Coin. However, though I was initially 
very pleased with the program, I was ulti- 
mately disappointed. 

The program requires 32K and at least 
one disk drive. You must boot up with 
TRSDOS 2.2 or 2.3. The program is initial- 
ized from DOS by entering IACHAIN which 
sequences through the Basic/Files/ 
Memory Size/Run program prompts with- 
out operator intervention. You are prompt- 
ed for your full name, gender and your fa- 
vorite recreational relaxant. The opening 
narrative begins by setting the stage for 
the story. 

Drama 

Two Heads of the Coin is a Sherlock 
Holmes/Dr. Watson style drama set in 
Nineteenth-century London. The narrative 
is full of quaint British idioms. This added 
to the realism of the story and characters 
and inspired an occasional chuckle. The 
wife of a Mr. Conway has disappeared and 
you, playing the Holmes role, are ex- 
pected to ask questions and gather 
enough information to finally solve the 
mystery. At times the Watson character 
(called Dr. Grimsby) will interject ques- 
tions and comments of this own, especial- 
ly when you ask a series of questions to 
which the program can find no response. 

The program is written in Basic with a 
large random access file of responses on 
the disk. Each input string is searched for 
key words to which the program responds 
with one of several "I don't believe I follow 
you" comments, or the disk starts spin- 
ning and the reply is printed. 

On the plus side, the responses were 
entertaining and intelligent. For example 
if your input line contains Her, She, Their 
or Them, the program will assume that the 
pronoun refers to the most recent charac- 
ters) you've mentioned. The lag time 
before the questions are answered is 
minimal— a credit to the programmer— as 




a large number of key words must be 
checked. Also you can't get away with just 
typing some obvious key words. The pro- 
gram expects complete sentences and 
the game is much more enjoyable when 
you respond "in character." 

Unfortunately, this program just did not 
live up to its advertised claims: First, "The 
dialogue of the characters, and even the 
plot, will depend on what you say." The 
other characters DO respond to your 
questions, but the plot— Holmes asking 
questions, Conway answering— cannot 
be altered. You can't leave your Baker 
Street flat. No action takes place aside 
from your asking of questions and Con- 
way's entry and exit. 

Second, "Most challenging of all, this 
program will tax your observational skills 
and above all your imagination." Being an 
adventure lover at heart, I expected Two 
Heads to provide days, even weeks of en- 



tertainment. Unfortunately, this game is 
so simple that it doesn't even include a 
Save Game option. Within less than an 
hour of questioning, I had solved the puz- 
zle. In fact, I knew the answer before that, 
but considered it too obvious to ask! I am 
not attempting to display my intelligence 
here. Indeed, most adventure veterans will 
solve the puzzle in a fraction of that time. 
Even the complete novice will likely be dis- 
appointed. 

I have even gone back and played the 
game again, looking for alternative ways 
to play it. I was still unsatisifed. The end- 
ing question to the game (the solution to 
the mysterious disappearance) can be 
asked at the very first input. 

If you are looking for a challenge then I 
cannot recommend that you spend your 
money on this program. Buy, instead, two 
of the fine Adventure series (Strange 
Odessy is excellent!) or go to a movie! ■ 



TRS-Opera 
Word Challenge 
Richard Taylor 
Acorn Software 
Washington, DC 
16K Level II, Models 
$9.95 each 



by Darren DeVigili 



Who among us would pass up an op- 
portunity to show off the much ma- 
ligned and underrated sound capabilities 
of the TRS-80? O.K.— so it only has one 
voice, so do I. What that single voice can 
do may surprise those who have not been 
lucky enough to have heard the monotone 
magic of TRS-Opera. 

The program includes five songs, all 
classics. While my entire operatic knowl- 
edge will fit neatly between pages 51 and 
52 of any magazine, three of the songs are 
quite familiar, and the other two passingly 
so. 



As far as I can tell, only one of the songs 
is full length. This is most likely due to the 
memory restrictions involved in present- 
ing a fair selection while keeping the pro- 
gram within the 16K margin. The song rep- 
resented, in its entirety, is familiar and en- 
joyed by all: The William Tell Overture. 

By using very fast alternating tones, 
amazingly full single voice sounds can be, 
and have been produced. What appears 
to be two notes is really one note quickly 
followed by another. This must be heard 
to be appreciated, as it accurately simu- 
lates multiple notes (chords). The tone 
quality is good, as far as tone goes for a 
TRS-80. 

If you have any interest in computer mu- 
sic, this is for you. In my opinion, TRS- 
Opera is one of the most ambitious musi- 
cal programs written for the '80. 

Word Challenge 

Word Challenge is an excellent exam- 
ple of entertainment using the well-inte- 
grated use of sound. The game is a cross 
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between the conventional game of hang- 
man and the television game show, Wheel 
of Fortune. I have seen many programs 
that use sound and graphic combinations 
to capture the interest of the user, and this 
one hangs with the best. 

The game can be played by one or two 
players. In the one-player mode, the com- 
puter supplies the phrases to be guessed 
from its store of about 25. These phrases 
are good, but few. In the two-player mode, 
you have the option of creating your own 
phrases, but you can't save them to tape 
or disk. This is unfortunate because you 
could exchange data with a friend, or use 



the program for educational purposes. 

There are minor problems in two delay 
loops; the screen clears before you have a 
chance to read it properly. These are quite 
minor and can be fixed, or safely ignored. 
Regardless, the program is a good one. 
The quality of the sound will amaze you. 

Fidelity Bonus 

Those of you who use a speaker or 
headset instead of the typical tiny amplifi- 
er get a fidelity bonus, as the sound quali- 
ty in this program is just as good as that in 
TRS-Opera. Many of the sounds are akin 



to those sed in most arcade games, and 
are done meticulously. 

When play starts, the phrase or word is 
musically spelled out as dashes (HI 

THERE/ ). You have a possible 50 

points for each phrase. A wrong guess at 
a vowel d you lose 1C points and get a 
wisecrac any other incorrect guesses 
cost you two points. The program is de- 
signed to let you try four phrases in the 
one player mode, and up to four in the two- 
player mode. 

Word Challenge is a good program, par- 
ticularly for those of you with school-age 
children.' 



Galactic Empire 
Douglas Carlston 
Broderbund Software 
Eugene, OR 
$14.95 cassette 
$19.95 disk 

by Dan Cataldo 

One of the best game programs cur- 
rently available for the TRS-80 is 
Galactic Empire, written by Douglas Carl- 
ston of Eugene, OR. It is a 16K, Level II 
strategy game, which places you as the 
commander of the planet Galactica's 
forces. Your mission is to conquer the 20 
worlds of the Central Galactic System 
within an allotted time period of 1,000 
years. Your forces are fighters, transports, 
and scouts, and your method is— brute 
force. 

The biggest obstacles facing you in 
your mission are distance and time. The 
Central Galactic System is approximately 
60 light-years across and about half tha 
in depth. The dimensions, and the loca 
tions of the various systems, vary random 
ly from game to game. It takes your flee 
one year of game time to cover one light 
year of distance. There is no faster-than 
light travel in this vision of the future 
However, travelling at high speed slows 
down your aging processes. Hibernation 
stops it completely. Thus, your normal 
life-span is extended to 1,000 years. 

To succeed in your task, you must make 
skilled use of your fleet's resources and 
its officers. As the game begins, your fleet 
consists of 100 fighters, five scouts, and 
100 unloaded transports. Each transport 
can hold 100,000 troops. You also have 
1,000 megacredits in your treasury, which 
you can spend to construct new ships. 

Your four officers are: Lt. Bayliss, in 
charge of taxation, ship construction, and 
enlistments; Lt. Starbuck, in charge of the 
scoutships; Navigator Kirman; and Dr. 
Henderson, in charge of hibernation. And, 



of course, there is Computer Central, 
which contains planetary directories, 
maps of the galaxy, and status reports. 

This game has a very well designed 
display. A small view screen in the upper 
left corner of your monitor shows the 
planet which your fleet is currently or- 
biting, and its name. If your fleet is in tran- 
sit between systems, this view screen will 
show a moving field of stars. When the 
new system is reached, a planet will flash 
into view and you will again be in orbit. 

A CRT display is in the lower left corner 
of your screen. The CRT is used to relay 
communications from Computer Central 
and to list your officers and their duties. 
When an attack is underway, the CRT will 
show the number of fighters and trans- 
ports lost on either side, and your prob- 
ability of success at any given moment. 

Stardate 

In the upper right corner of the screen is 
a calendar showing the current stardate. 
Below it is a resource chart, showing the 
number of fighters, transports (loaded 
and unloaded), scouts and credits avail- 
able. At the bottom right is a summary of 
the four main command options: A-At- 
tack, E-Embark, C-Computer and 
O-Orders. There are also two other com- 
mands: R-Retreat, and Q-Quit. 

The best way to see how these com- 
mands are utilized is to follow through a 
short sample of the program. As the game 
begins, you are orbiting Galactica. You 
press C to call up Computer Central. A 
display of Computer options appears on 
the CRT: A-Star Maps, B-Planetary Direc- 
tory, C-Status. You press A and another 
menu of options appears: local map, 
range finder or galaxy map. 

You call up the local map, and the CRT 
displays the systems close to Galactica. 
To determine the names of the systems 
you have two choices: First, you can move 
the blinking cursor at the top of the map 



with the arrow keys. When the cursor is 
superimposed on one of the systems, its 
name and coordinates will appear. Sec- 
ond, you can simply key in the irst letter 
of a system's name. If that system is on 
the map, ! t will blink repeatedly, and its 
name will appear as before. 

Once you've identified the nearby 
system u can use the range finder to 
detern heir exact distance from 

Galac stems that look close to- 

gethe map may actually be far 

apart. e maps are, in effect, look- 

ing d *\e galaxy, the element of 

depth 

Afti /e located four or five 

systen are close by, choose one as 

the desi on of the fleet. The others can 
be investigated by your scout ships. Call 
up your officers and issue appropriate 
commands to Lt. Starbuck. He will ask 
where to send the scouts, and to what 
system they should return. The scouts in 
this case would be told to return to the 
fleet's destination. 

Lost In Space 

The timing of these missions, and the 
arrival of your construction orders, is very 
critical. If a snip arrives at a target system 
and is not met by the fleet within five 
years, it will run out of fuel and be lost in 
space. If the fleet is in the system but you 
hibernate past the five-year period, the 
ships again will be lost. 

Having dispatched your scojts, call 
upon Lt. Bayliss to tax Galactica. With the 
additional funds, call on Bayliss to place 
construction orders for more ships. The 
first year's orders are delivered im- 
mediately- The following years' orders 
must be directed to your expected desti- 
nation. The number and type you build will 
depend on your needs, and on your experi- 
ence in playing the game. Finally, Bayliss 
(who by this time is approaching exhaus- 
tion) is called upon to en'ist troops to fill 
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your empty transports. 

As you race through space, you will see 
the years pass on the calendar, just as the 
stars march slowly by on the view screen. 
When you reach your destination the CRT 
will announce the arrival of any scout 
ships and construction orders that are 
waiting for you. 

Next, you can then call up the Planetary 
Directory in the computer to determine 
the population and technological level of 
the system. The worlds of the Central 
Galactic System are divided into four 
technological classes: primitive, limited 
atomic, sophisticated (the rating of Galac- 
tica) and superior. The populations of the 
planets can vary from less than 100 mil- 
lion to more than a billion. The character- 
istics of the various systems will change 
from game to game. If the first system you 
visit has a greater population than Galac- 
tica or is sophisticated, it is good strategy 
not to attack. You should wait for your 
returning scouts and construction orders. 
You can then use the Planetary Directory 
to examine the systems visited by the 
scouts for an easier target. By using the 
Status Report option of Computer Cen- 
tral, you can determine if all your scouts 
and construction orders have arrived 
before moving on to the next system. 

Conquering the Galaxy 

And so the game continues: You move 
from system to system, conquering when 
you can. All your actions have to be 
carefully considered, if you expect to con- 
quer the galaxy in a mere thousand years! 

Although Galactic Empire is well de- 
signed and fun to play, there are some 
problems. This is a very long game; one 
session can easily last from four to six 
hours. You not only have to have the orga- 
nizational skills of a conqueror, but also 
the patience of a saint. 

Older versions of Galactic Empire 
(which are apparently still being sold by 
some software houses) have two major 
problems. The first is that you can't save a 
game in progress, an absolute must for a 
game of this length. The second problem 
concerns placing construction orders. In 
the older version, if you place orders for 
more than 50 years, the earlier years' 
orders will disappear, or you may get a BS 
error while the program is running. 

Mr. Carlston has informed me that 
newer versions of Galactic Empire will in- 
dicate when you have reached your order 
limit. The 'save game' option has also 
been included, and travel between sys- 
tems goes two and a half times faster 
than before. Those of you who have pur- 
chased the earlier version of Galactic Em- 



pire may send a tape to Broderbund Soft- 
ware for a free correction. It's nice to see a 
company that cares about its reputation 
and its customers. 

One final problem concerns cheating— 
that is, you can make the program do 
things it isn't supposed to do. By skillful 
manuvering, you can have a planet which 
is supposed to be capable of producing 
only five ships a year produce 10 or even 
15 ships a year. This is done by placing 
orders at system A, racing to nearby 
system B, then back again to A to place 
more orders. The additional orders should 
be built only after the first set is com- 
pleted, but in fact that isn't the case. The 
additional orders can and do overlap— 
they are produced concurrently, not con- 
secutively. Don't do this if you want to 
play the game the way it was meant to be 



played. This problem exists on all versions 
of Galactic Empire. 

The good points far outweigh the bad: 
Galactic Empire is never dull. The con- 
tinuous changes in layout and planetary 
characteristics present you with different 
problems each game. The attacks can be 
full of surprises: You can lose a high prob- 
ability battle if you aren't watching 
carefully. You can also pull off a victory 
from what seems like a hopeless position 
if you have the guts not to retreat. 

You can easily change the names of the 
planets in the Central Galactic System by 
editing one of the data lines, if you want 
the thrill of playing in one of your favorite 
sci-fi worlds. 

I heartily recommend Galactic Empire to 
anyone seeking a complex, intelligent, and, 
of course, fun program. ■ 



Winged Samurai 
Discovery Games 
St. Paul, MN 
$19.95 

by Art Little 

In Winged Samurai, Discovery Games 
has assembled a program with some in- 
triguing ideas. 

The Situation: Spring, 1942. The Allied 
bombers still 28 miles from their target, 
are spotted by 16 Imperial A6M2 fighters 
(the dreaded ZERO). 

You are a Japanese Squadron Com- 
mander defending a New Guinea naval 
base. In this game, you can choose one of 
13 different fighters, each with its own 
flight characteristics, for your mission. 
You will be facing 15 types of Allied 
planes. 

Packaging: The program comes in a 
dustproof box, illustrated with a color 
drawing of an air battle above the Bis- 
marck Archipelago. The cassette tape 
within loads on a TRS-80 Model I. On the 
same cassette are copies of the program 
intended for the PET and Apple II, all writ- 
ten in machine code. 

Documentation: The instructions are in 
three parts. First come the loading in- 
structions which, though detailed, are 
slightly confusing to the novice user. 

Second, is a sheet listing all of the 
possible commands and their meanings 
including an explicit description of the ac- 
tion commands with suggestions for their 
use. 

Third is a 12-page booklet that gives the 
history of the battle of Rabaul and pro- 
vides details on all the aircraft used in the 
Pacific Theater. It includes information on 
speed, maneuverability, firepower, sturdi- 



ness and rate of climb— all of which are 
programmed into the game. 
The Game: After the title pages load, you 
are welcomed to the game and asked your 
name. You are shown a side view of the 
30-mile air corridor leading to Rabaul 
(X-Coordinate) and the altitude in feet 
(Y-Coordinate). The positions of all attack- 
ing and defending aircraft are displayed. 
Below this are listed the number of bomb- 
ers, escorts and fighters; their altitude 
and range. 

The action proceeds as you type in 
commands to your squadron. There are 25 
two-character commands. After you enter 
a command, the sideview is updated with 
information and you make another com- 
mand decision. 

Your goal is simple enough. Destroy all 
of the bombers before they reach your 
base. What makes the game interesting is 
that the bombers have no intention of 
cooperating. They proceed at full speed 
toward the target, raining cannon fire. If 
accompanied by an escort, the situation 
is even more difficult. You must lure the 
escorts away, flank them, then return and 
inflict damage to the bombers before the 
fighters return. 

It is easy to learn. . .not easy to play 
well because with all the possible aircraft 
combinations, each game is very differ- 
ent. In Winged Samurai, as in real aerial 
combat, chance plays a major role. This is 
simulated by including a random element 
into all encounters. Thus, for no apparent 
reason, your fortunes may turn sour rapid- 
ly. 

But the code of the Samurai demands 

that you renew your attack, for it is both 
an honor and a responsibility to be called 
Toryu— Killer of Dragons! ■ 
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STOCK MARKET \ 

SOFTWARE | 

By H & H Trading Company for Mod. I. II. & III TRS 80®s j 

i 

STOCK TRACKER™ times trades on individ- \ 

ual stocks and options. Uses a technical volume ! 

analysis. Completely objective. Gives buy, sell ! 

signals. j 
MARKET TRACKER™ times tops & bottoms 

on the Dow Industrials; a composite of six tech- j 

nical indicators. Some judgement required. j 

Gives buy, sell signals. j 

These two programs are accurate. I 

Hundreds of satisfied users. ! 

ASK FOR THE EVIDENCE ! ! 

FOR MORE INFORMATION OR TO ORDER. CONTACT: ? 

H a £M WIPING CQM&LNY \ 

POST OFFICE BOX 23546 ^223 l 

PLEASANT HILL. CALIFORNIA 94523 I 

Telephone 415/937-1030 i 




VISA & MASTERCARD 



Doughflo (do'flo) n. [Colloq] a highly inter- 
active business or home finance program, 
designed to instantly analyze where the hell 
all that money went. 

Doughflo. It's a business program. It's a home finance program. Doughllo is (now hold 
your breath), "an expenditure oriented data base management system." (Whew.) But 
best ot all. it's easy to use. 

What the heck does Doughllo do? Lois 

• Allows instant analysis of business or home cash flow (Flo?) 

• Keeps tabs of expenses with up to 26 user defined categories 

• Allows separation of home and business expenses for tax. Social 
Security, deductions, etc. 

• Ideal for preparing income and slate taxes. 

• Is able to search, sort, and produce hard copy of any number of items and 
checks, over any range ol dates, categories, amounts, vendors, or 
descriptions. 

Be your own business analyst! Virtually obsoletes a bookkeeper, because your com- 
puter does the work for you. Use Doughflo to... 

• Instantly retrieve up to 450 records at a lime without lime consuming disk 
access 

• Easily generate detailed reports of all expenditures. 

• Satisfy your boss. wife, (husband?), or yoursell that you know how wisely 
(or foolishly) money is being spent. 

Exceedingly simple to use (we tested it on simple people!), now there is no excuse 
not to know where the hell you lost all that money, whether it was last year or last 
month. Best of all, maybe now you'll be able to save some of that dough for the 
future! Requires 32K and one or more disk drives. Specify Model I or III. At only 
S39.95 postpaid, it's a steal sure to save you money! 
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AiRegd T.M. of Rodio Shock 



TIME ... 

METHUSELAH" has time for you 
and your TRS-80 



The name Methuselah has always been associated with long life. The Methuselah 
Computer clock board with its 21 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery backup to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off. 

Methuselah has many other timely features. Software patches keep the DOS and HASH" 
time and clock commands ticking. Only two screws mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1 (I port and four different interrupts available for people who love to tinker. 

SPECS: MM 1)1) YY. HH:MM:SS and day of the week. Four year lithium battery 

back-up. Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar. 



Send check or monev order to: 
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6330 W. North Ave 

Wauwalosa. Wl 53213 

(414) 259-0120 
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P.O. BOX 597 FORESTVILLE. CA 95436 
24 hr. phone (707) 887-7237 [^ 



ASV-OATA 
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PERFECT 
CLOAD 

EVERY -1-4U-+- 
TIME"* I 



ALPHANETICS TRS-80 TAPE DIGITIZER 



At last there is a cure for TRS-80 tape cloading blues. For over three years, Alphanetics 
has been selling the TRS-80 Tape Digitizer, a proven hardware solution for your software 
problems. No longer need you juggle the recorder's volume control endlessly, trying for 
a perfect cload of a prerecorded program. Just pop the tape into the cassette recorder, 
process the signal through our digitizer, and you're ready to RUN a perfect load! 

Just check out the Tape Digitizer's features... 

• Makes tape program loading virtually independent ot volume control 
setting. 

• Allows copying system and normal tapes without using computer 

• Makes a perfect digital copy of any tape, without using computer, 
removing hum. noise, and cures minor dropouts. 

• Cassette switch allows manual control of cassette recorder, independent 
of computer control. 

• "Good Data" indicator easily enables selling proper volume doubles as 
a tape monitor 

• AC. powered — no batteries to replace 

• Housed in a sturdy, attractive metal case 

• Completely compatible with level I 8 II. also LOW speed Model III 

Feed your cassette to the Alphanetics Tape Digitizer and feed your computer the exact 
digital waveform the TRS-80 gave your tape. Get rid of your tape bugs today — S64.95 
postpaid or return within 10 days for a full refund! -<i ■• 



■See List ol Advertisers on page 322 
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by Michael Tannenbaum C.P.A. 



From May 21 to May 24 the first Annual 
National 80 Microcomputing show 
was held in New York City. Although other 
computers were displayed, 98 percent of 
the show was devoted to Models, I, II, III, 
and the Pocket Computer. 

There was a poor turnout at the show, 
no doubt from a lack of publicity. This was 
unfortunate. The concentrated number of 
exhibitors provided a feast for the 80 own- 
er. 

As I had expected, games and com- 
puter supplies dominated the show. How- 
ever, I was surprised to see several ven- 
dors selling Model II software designed to 
assist programmers in developing custom 
programs. 

Two interesting program packages 
were offered by Snapp Inc. and Johnson 
Associates Software. Snapp Inc. offered 
extensions to the Model II Basic inter- 
preter. The extensions were offered in 
several different modules. The one I pur- 
chased, Snapp III, restored PEEK and 
POKE commands to Model II Basic and 
provided a fast built-in machine language 
sort. Snapp's other modules provide fur- 
ther built-in functions. Snapp Inc. is locat- 
ed at 8160 Corporate Park Drive, Cincinnati, 
OH 45242. 

Johnson Associates offered two amaz- 
ing products: a machine language ISAM 
file subroutine that can be integrated into 
any custom program and a display screen 
generator. These products should, when I 
learn how to use them, take the effort out 
of writing custom Basic programs. 

Their demonstration of the screen gen- 
erator was a real knock-out. Anyone who 
has written custom programs appreciates 
how hard it is to prepare good display 
screens with proper interactive edit fea- 
tures. The Johnson program whips up a 
beautiful display screen with amazingly 
few commands. Johnson Associates is 
located at P.O. Box 1402, Redding CA 
96001. 

Super Accounting System 

One of the most interesting accounting 
systems at the show was offered by 
Taranto & Associates Inc. Taranto has re- 
fined an already good system, the 
Osborne System (see June and December 
1980), from its original form into a super 
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Model II record-keeping system. When I 
stopped at the Taranto booth, I met Irwin 
Taranto who gave me a brief demonstra- 
tion of its features. 

Irwin cautioned me the demonstration 
package was not the way he usually sold 
systems. Prospective buyers are request- 
ed to fill out a brief questionnaire and 
based on that, Taranto & Associates Inc. 
will customize a package for the purchas- 
er. 

This approach to selling accounting 
software makes good sense. No matter 
how good the software is, if there is a mis- 
match between the expectations of the 
purchaser and the capacity of the pro- 
gram, there is a good chance of failure. By 
having the potential customer document 
his requirements on a written form, Taran- 
to does his customers an enormous ser- 
vice. 

Through use of the questionnaire, Taran- 
to can meet some of the special re- 
quirements of his customers. For exam- 
ple, the customer is requested to specify 
how many months of data will be retained 
and decide whether or not to suppress 
printing of account numbers on the finan- 
cial reports. 

A key question is the number of disk 
drives on the system. A complex integrat- 
ed system might exceed the capacity of a 
single-drive Model II. With this knowledge 
Taranto can tailor his system to fit the 
available space. If there is inadequate 
room, he can warn his customer to ac- 
quire additional storage before imple- 
menting all features of the package. 

Taranto complies with copyright re- 
quirements by requesting his customers 
to specify they have been licensed by 
Radio Shack to use TRSDOS. He protects 
himself by requesting the purchaser agree 
to a nonexclusive and nontransferable 
licensing agreement to use the software. 
The number of cheap Osborne systems 
available attest to his need for caution. 

As a nice touch, systems where volume 
of transactions could be a limiting factor 
have the limitations specified in the ques- 
tionnaire. For example, payroll has a max- 
imum total capacity of 300 employees; in- 
ventory control has a capacity of 5000 
items; and accounts receivable (open 
item), 2000 customers plus open invoices. 



Since the Osborne accounting system 
is described in several manuals published 
by McGraw-Hill, most vendors of this sys- 
tem do not include much documentation. 
Taranto, on the other hand, publishes a 
manual with each application package de- 
signed to amplify and clarify the original 
text. 

In the general ledger module, the file 
and report structures have been altered to 
accommodate budgeting and monthly 
comparative financial reports. Although 
the reports in the original package were 
quite good, the extended reports in the 
Taranto system are the best I have yet 
seen in a microcomputer system. However, 
they still do not include the sources and 
application of funds statements, but I was 
assured this product is on the drawing 
board. 

The accounts receivable module has an 
invoicing module consisting of four 
screens to control data entry. Screen one 
allowed selection of the customer, speci- 
fication of invoice type, date, shipping 
date, customer order number, FOB infor- 
mation, ship via data and G/L account 
code. 

The invoicing module required the pres- 
ence of a customer master file record 
before invoicing could proceed. Once the 
heading was specified, an invoice body 
screen was displayed. This screen al- 
lowed entry of up to 51 line items of in- 
voice data. If the accounting system in- 
cluded an integrated inventory control 
system, entry of a period after a stock 
number initiated a search of the inventory 
master file. When located, the price was 
extracted from the file and displayed. This 
price could be accepted or rejected by the 
operator as desired. 

Entry of a unit price could be either zero 
or a fraction of a cent. Calculation of the 
item amount was automatically per- 
formed by the computer. At this point, the 
operator could specify whether or not the 
item was taxable and indicate an inven- 
tory product code. The specification of 
taxability on an item by item basis permit- 
ted mixing taxable and nontaxable items 
on one invoice. The use of a product code 
facilitated a post-invoicing sales analysis. 
Since only a single sales account could be 
specified during the invoice heading prep- 
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aration, sales of dissimilar products con- 
tained on the invoice would be combined. 
The post invoicing sales analysis sepa- 
rates sales data for accounting purposes. 

To facilitate preparation of sales com- 
mission reports, a salesperson's code is 
assigned to each sales detail record dur- 
ing the invoicing procedure. This code is 
obtained from the customer's master file. 
With this data, it is possible for the sys- 
tem to calculate a different sales commis- 
sion on each item. This is the first time I 
have seen this feature in a microcomputer 
system. 

Once the body of the invoice has been 
completed, a summary screen is present- 
ed detailing the invoice subtotal, tax, ship- 
ping charges and final totals— both tax- 
able and nontaxable. The operator can 
enter a tax rate, shipping charges or 
return to the detail entry section for review 
and correction. Termination of the invoice 
entry procedure is accomplished by spe- 
cifying a "save this invoice" option on the 
final screen. Of course this screen permits 
a review of the entire invoice. 

In general, the invoicing procedure and 
screens are clear and simple to follow. 
The only negative factor in the entire pro- 
cedure is the lack of an abort facility if an 
improper customer number is entered and 
accepted. The only option available, 
should this type of error occur, is to enter 
dummy data and cancel the invoice on the 
final screen. This problem will be severe 
during the early stages of implementation 
and should be less troublesome as an op- 
erator becomes more skilled. 

As is typical with all Osborne system 
data entry procedures, invoice data is en- 
tered, printed and converted to accounts 
receivable data in batch. The printing pro- 
gram is designed to accept a special pre- 
printed invoice form but can be altered for 
special customer needs. The printing pro- 
gram accepts a special 50-character mes- 
sage that may be printed at the bottom of 
each invoice. The printing program does 
not kill the invoice file after printing. 
Therefore an invoice can be reprinted as 
required. To assist invoice file correc- 
tions, a transaction file maintenance pro- 
gram is provided. 

In time the invoice file will become quite 
large. Purging the file is accomplished by 
the summary transaction program which 
compresses the invoice file and generates 
the data required for the inventory control 
and accounts receivable processing mod- 
ules. 

To ice the cake for the accounts receiv- 
able user, Taranto supplies a mailing label 
program which can generate up to nine 
labels across and nine labels per custom- 
er. Labels can be generated in customer 
master file order or in zip code order, 



whichever is required. 

Accounts payable record keeping 
begins with preparation of a purchase 
order. The purchase order data entry pro- 
cedure is similar to the invoicing system 
used for the accounts receivable module. 
The result is to create a purchase order 
which is sent to the vendor of the product 
and provides a clear description of the 
items, quantities and prices required. 

After the merchandise is received, the 
detailed purchase order image is used to 
enter the vendor's invoice data into the ac- 
counts payable system. If this system is 
fully integrated into an inventory system, 
the purchase order and receipts quanti- 
ties can be used to update the on-order 
and on-hand columns of the inventory 
master file. The system is integrated into 
the general ledger and summary account- 
ing activity can be transferred at the end 
of the month. 

The inventory control module appears 
to be the latest in the group of systems 
furnished. As was true for accounts pay- 
able, there is no indication as to how this 
module integrates into the other systems. 

It does provide two main reports on in- 
ventory activity: an on-hand inventory 
report and a sales report. The inventory 
report is a "snapshot" of inventory status. 
It details on-order and on-hand status as 
well as cost, value, selling price, reorder 
point and reorder quantity. The sales 
report indicates current, year to date and 
prior year sales in dollars. If this is the only 
sales report, it does not appear to have 
more information than the accounts re- 
ceivable reports. What is needed is a unit 
sales report showing a sales trend. Such a 
report would be quite valuable in calculat- 
ing optimum reorder points and quanti- 
ties. 

Although the payroll system was not in- 
cluded in my review package, it appears 
Taranto has put together a complete ac- 
counting and inventory record-keeping 
system that can be installed on all Models 
I, II and III. If you are looking for a com- 
prehensive and well-documented system, 
Taranto has an impressive product at a 
very reasonable price. Taranto can be con- 
tacted at 121 Paul Drive, San Rafael, CA 
94903. 

Dictionary Software 

Once word processors became com- 
mon, it was just a matter of time before 
someone would integrate a dictionary to 
provide an edit function. This is one of 
those concepts that sounds simple but is 
quite difficult to implement. According to 
my wife, the English teacher, everyone 
has a slightly different vocabulary; es- 
tablishing a common base for editing is 
quite difficult. Cornucopia Software, P.O. 



Box 5028, Walnut Creek, CA 94596 has at- 
tempted to meet the challenge. 

They offer an editor (Microproof) that 
can be integrated into Model I, II, or III 
Scripsit or used as a stand-alone editor. 
Containing 50,000 words, the Microproof 
system must use a segmented file struc- 
ture to fit on Model I disks. In use on my 
Model II, the segmented data base was 
unnoticeable. The program worked flaw- 
lessly and quickly demonstrated the limi- 
tations of an editor. 

Apparently the editor does not contain 
certain words such as bytes, Scripsit, TRS 
and other terms which usually dot my 
literary output. Also missing are common 
names like Osborne, Ohio and California. 
If these are in common usage, they can be 
added to the dictionary. Additions are 
limited by the amount of disk capacity 
available. 

As reviewed on the Model II, the subject 
file had to be converted to an ASCII file. If 
the word processor in use is Electric Pen- 
cil, the file is already in the proper format. 
On the other hand, Scripsit uses a special 
file and contains its own internal direc- 
tory. By using the merge file option, the 
necessary output file can be created. Un- 
fortunately, this requires a second drive. 
Once the file is generated on drive one, the 
diskette should be placed in drive zero and 
reset. Selecting the Microproof program 
and following the information on the 
screen does the rest. At deadline time, an 
integrated version was released for the 
Model II. This version makes Microproof 
accessible from within Scripsit, eliminat- 
ing the need for a second drive. 

The proofing program operates quite ef- 
ficiently. A 15-page document can be 
proofed in about two minutes. At the con- 
clusion of the proofing process, a list of 
unreferenced words are displayed or 
printed on the line printer. By using the 
global search facilities of the word pro- 
cessor, corrections can be made quite 
quickly. 

Accompanying the program is a de- 
tailed explanation of why some words will 
be listed as errors and misspelled words 
will be accepted by the editor. 

If Microproof is integrated with Scripsit 
on a Model I, it can be called from the 
Scripsit program by executing an M com- 
mand. Corrections can be made to the 
Scripsit text since it remains resident in 
core while the editor "does its thing." 

I have already found that the use of the 
editor has greatly enhanced the quality of 
my letters and reports. This is a very use- 
ful product and should be obtained by 
anyone who uses a word processor. ■ 
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THE EXCLUSIVE ORACLE 



"I live in an old, non-renovated apartment 
with ancient wiring. The light flickers 
every time the refrigerator goes on." 



Q: My machine goes back to the Memory Size question, the 
keyboard gets "locked out", and sometimes the keyboard 
shuts off its own power supply by itself. Several times this has 
happened as I inadvertently passed my hand near the power 
supply box— too often for coincidence, so I thought maybe 
stray capacitance from my hand had something to do with it. 
But usually this has no effect; most often the reboots happen 
for no reason at all. 

The first thing I suspected was power line spikes and hash. 
I live in an old, non-renovated apartment with ancient wiring. 
The light flickers every time the refrigerator goes on. On the 
recommendation of a person in the local computer club, I 
bought an Isolator, made by Electronic Specialists. That 
seemed to help slightly— the reboots were less frequent (only 
a couple times per night). I was less than satisfied with this 
result, so I traded the Isolator in for the Super Isolator by the 
same company. That seemed to do the trick— for about three 
days. Then, the same problem returned and the "dancing 
screen" on my monitor was worse. I figured that the device 
might work for sudden spikes but was no good on slower fluc- 
tuations, like those caused by appliances. 

Looking at the schematic in the Technical Reference Hand- 
book, it was clear that the 723 voltage regulator in the 12-volt 
supply inside the keyboard pretty well controlled things. It 
could even cause a power shutdown through a feedback loop 
by triggering Q6. That could explain the seldom, but puzzling, 
total power loss in the keyboard. 

Anyhow, I replaced Z2 with another 723. It seemed to work 
for a week, no glitches. But now they're back again with or 
without the Super Isolator. Could it be that the new 723 has 
already been blown by my fluctuating line voltage? Or maybe 
I'm entirely off base. 

Just in case you do tell me to replace the one or the other 
723, could I safely socket them? Would the heat buildup 
destroy the socket? 

Mendel Cooper 
New York, New York 

A: Your problem diagnosis and approach are excellent, 
leaving only a few remaining avenues: 

1. The likelihood of power supply spikes killing your 723 is 
small. Short-term spikes of 150 percent or more are not im- 
possible, but it isn't likely that these spikes would increase 
the 19-volt output of the TRS-80's transformer so high as to ex- 
ceed the 723's 40-volt maximum input. The other 723 (Z1) has 
only a 14-volt input. The use of the Super Isolator nonetheless 
should help prevent voltage disturbances from upsetting the 
regulator enough to cause memory crashes. 

2. If you still suspect that spikes in your area might be 
disturbing the 723 regulators enough to cause crashes, 
replace them with a Signetics type NE550, which is a faster, 
high-performance 723 equivalent. 

3. Use an accurate voltmeter to check the calibration of R5, 
which controls the 5-volt output line, and R10, which handles 



the 12-volt supply. Most TRS units were shipped without 
these controls being lacquered, and they can easily be 
knocked out of adjustment when the case is opened. 

4. If your keyboard unit is actually shutting down (the LED 
flashes off), then the 5-volt line is definitely suspect, which is 
controlled by Z1. Consider: 

a. A bad fuse wire or cold solder joint in the power supply 
transformer; later units had a case which could be 
opened and this wire replaced. 

b. A broken connection in the cable or on the power sup- 
ply section of the keyboard unit. 

c. A solder ball or splash on the circuit board somewhere 
in the unit. 

5. A broken or cracked keyboard connector cable which can 
cause lockup and crashing (but not power-down). Check this 
cable carefully. 

6. You might have a balky Q2, Q3, or Q5. Since you ask if the 
723 can be socketed because of heat (it normally can be), it 
sounds like there's more heat than necessary in the power 
supply area. The heat sink around Q2 should feel very hot, but 
not so hot that components in the vicinity are too hot to touch. 
Replace Q3, Q2 and CR1 if this seems to be the case. 
Likewise, if the heat sink on Q6 is hot, suspect a problem 
there. This heat sink should only get moderately warm. 

In sum, it sounds like the remedies you have tried point to 
an overload on the output side of the 723 and its associated 
high-current transistors controlling the 5-volt supply. A short 
on the board, the intermittent failure of the pass transistors, 
or (last of all and most difficult), intermittent failure of an on- 
board chip's internal supply, could all be the cause of your 
woes. 

Q: Running the program below I get what appears to be 
ROM data appended. That's no problem— I just delete lines 
not required. However, if random lines of ROM are available, 
how can I get all the ROM printed? 

(The following is the end of the printed program) 

260 PRINT-RESTS CHAR/LINE = POKE 32250.0" 

290 PRINT-SET CHAR/LINE = POKE 32372,pD 

SYSTEMRESTOREX 

d = ! 

I 

M 

FORAI%9PFOR = 8FOR9 = 15 

0FOR- 

e%8FOR%LFOR9 = &FOR = A 

I 

Q%=9 

ODATA 

1752 MEMINPUT% + FORUAA 

I 

E. L. Armson 
Aurora, Ontario 

A: First of all, what you see are not lines of ROM. The Level 
II Basic language in ROM does not use Basic keywords, but 
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rather unfamiliar-looking machine language. What you have 
is garbage being translated into Basic-like words by the List 
command. 

You haven't described the conditions under which this list 
appears. If it appears immediately upon loading the program, 
perhaps some of the final Basic lines of the program loaded 
badly. This would cause garbage to be printed in a list. Or, if 
you have already run the program, the active POKEing around 
memory that this particular program does may be interfering 
with the data stored in RAM, causing the garbage during list. 

By the way, if you want a quick look at the contents of the 
ROM as stored in memory, run this line: 10 FOR X = TO 
12288 : PRINT CHR$(PEEK(X)); : NEXT. 

Q: I noticed some articles in 80 Microcomputing, and I have 
a few questions. Do you know if the reverse video, high speed, 
and the upper/lowercase modifications are compatible with 
each other? If not, do you have or can you recommend a low- 
ercase mod that is compatible? Also, in the reverse video mod 
you say that graphics may squirm. Is that when the video is re- 
versed or whenever the mod is present? 

Brian Harris 
Westhampton Beach, New York 

A: All the video, speed, and upper/lowercase modifications 
published in 80 Microcomputing to date are compatible with 
each other. The lowercase mod published in the March 1980 
issue is not, however, compatible with the standard Radio 
Shack or Electric Pencil modifications. If you write to the 
authors of that article and enclose a self-addressed, stamped 
envelope, they will forward the updated modification instruc- 
tions to you. 

The graphics in the reverse video modification squirm only 
in the reverse mode. In fact, they are improved in the normal 
mode. An inexpensive reverse video modification manufac- 
tured by Archbold Electronics includes a separate "non- 
squirm" board for the video monitor. 

Q: Shortly after upgrading my TRS-80 to 16K, I punched out 
a copy of your RAM test program, Babyroot (May 1980 p. 76). I 
have now upgraded my unit to 48K. Do you have a means of 
expanding Babyroot for use in my current system? 

Also, I would like to know if you are aware of any patch that 
will prevent the Radio Shack Editor/Assembler form disabling 
the Radio Shack lowercase modification driver software. No 
help has been forthcoming when I posed this question to the 
experts on the Fort Worth hotline. 

C. W. DeLaughter 
California, Maryland 

A: Yes, the modification to Babyroot is simple. For 32K, 
change byte 502C from 80 to CO and change byte 50E6 from 
F0 to BO. In the Basic verson, change the 13th data value in 
line 50 from 128 to 192, and the 7th value in line 240 to 
176. For 48K, change the bytes noted above to 00 and 70, re- 
spectively, and the values in the data lines from to 112, re- 
spectively. Be prepared to wait 25 minutes per 32K cycle, and 
35 minutes per 48K cycle. 

The reason the lowercase driver is disabled when using ED- 
TASM is because the program uses its own keyboard scan 
routine. It was written for use with either Level I or Level II, so 
makes no calls at all to ROM. If you want to add debounce, 
repeat, lowercase, etc., you will have to patch that routine into 
EDTASM's own keyboard driver block, located at 4301 hex. 



For starters, below is a hex dump of a debounce/repeat/ 
beep routine that patches into EDTASM version 1.1. You can 
add your lowercase driver to this, entering all of this code and 
the EDTASM changes using a relocated version of T-Bug or a 
similar monitor: 



5D0O 
5D10 
5D20 
5D30 
5D40 
5D50 
5D60 



21 21 40 01 01 38 16 00 0A 5F A3 20 A1 77 14 2C 
CB01 79 06 80 20 Fl 00 06 07 2D 86 10 FC FE 00 
3E 00 CO 32 1A 40 C9 A6 28 10 3A 1A 40 3C 32 1A 
40 FE FF 20 D9 3D 32 1A 40 7B 73 C5 01 00 02 CD 
60 00 C1 0A A3 C8 C5 E5 F5 06 40 3A 3D 40 E6 FD 
67 F6 02 6F 7D D3 FF 7C D3 FF C5 06 40 10 FE CI 
10 F2 F1 E1 CI C3 07 44 



You will need to make the following changes to EDTASM 
itself: 



Addresses 


Old Values 


New Values 


4710 4A07 


11 F9 5C 


1100 5E 


4AD8 4B50 4D39 






4D80 5227 468A 


21 F9 5C 


21 00 5E 


43EF 


21 21 40 


C3 00 5D 



Brian Donlan of Lake Charles, Louisiana, has written a sim- 
ple debounce-only modification for EDTASM: 

"The keyboard driver for EDTASM begins at 43EFH 
and continues through 445FH. I replaced the routine here 
with the routine I found in Tandy's KBFIX starting at 
7FDAH. There was one jump that had to be changed. 
After loading this routine over the one in EDTASM, I 
changed the instructions now residing at 4402H from F2 
E2 7F to F2 F7 43. 

"If you wish to punch in the changes with your 
monitor, here is the code already including the above in- 
struction changes:" 

43EF • 21 

43F0 ' 36 40 01 01 38 16 00 0A 5F AE 73 A3 20 08 14 2C 

4400 " CB 01 F2 F7 43 C9 5F C5 01 DC 05 CD 60 00 C1 0A 

4410 • A3 C8 C3 FB 03 ■ 



Desperate? Send your questions on Model I, Level II, 
TRS-80s to: Dennis Bathory Kitsz, Roxbury, Vermont 
05669. 
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PRO-PIX '81 

By Talley-Ho Software 

TRS-80 TAPE Model 1&3 
TRS-80 DISK Model 1 



010-0127 $19.95 
012-0127 $24.95 



ALSO AVAILABLE FOR 
APPLE TAPE TO DISK 041-0127 $19.95 

ATARI 400/800 TAPE TO DISK 051-0127 $19.95 



PRO-PIX '81 

By Talley-Ho Software 



PROFOOTBALLPIX, or PRO-PIX, is the culmina- 
tion of over five years of development and use of a 
utility program to track the progress of the 28 pro- 
fessional U. S. football teams during the regular 
224-game (16 weeks and 14 games per week) 
season. PRO-PIX made its public debut in 1980 
under a slightly different name after extensive 
testing and was very successful, receiving many 
plaudits from users, and requests for a 1981 ver- 
sion. PRO-PIX is basically an updated version for 
1981, with several subtle changes in presentation 
format and modifications to make it usable with 
Model III. The prediction data has been modified 
slightly and information is included herein for up- 
dating the program for successive seasons. 
PRO-PIX is designed for use on a TRS-80 Model I 
or Model III computer with at least 16K of memory. 
It operates under either Level II Basic or DOS 
Basic, with data handling by either tape or disk. 

Features of PRO-PIX may be summarized as 
follows: 

• List SCHEDULES by team or week of in- 
terest. 

• List SCORES of all games played, by team 
or week. 

• List current STANDINGS in division. 

• Show PREDICTIONS for games to be 
played, by team or week. 

• PRINT any screen that displays data. 

• UPDATE the program by entering weekly 
scores. 

• Set up a new SEASON. ^222 



ADVENTURE 11 & 12 ARE HERE! 

CALL OUR TOLL-FREE NUMBER FOR ORDERING INFORMATION' 



INTERACTIVE FICTION 

BY ROBERT LaFORE 

FOURTH IN THE SERIES 
HIS MAJESTY'S SHIP •IMPETUOUS" 

WHAT IS IT? 

Interactive Fiction is story-telling using a com- 
puter, so that you, the reader, can actually take 
part in the story instead of merely reading. 

HOW DOES IT WORK? 

The computer sets the scene with a fictional situa- 
tion, which you can read from the CRT. Then, you 
become a character in the story: when it's your 
turn to speak you type in your response. The 
dialogue of the other characters and even the plot 
will depend on what you say. 

IS IT A GAME? 

No. In a game the situation is rigidly defined and 
you can select from only a limited number of 
responses. But in Interactive Fiction you can say 
anything you like to the other characters. (Of 
course if your response is too bizarre they may not 
understand you.) 

His Majesty's Ship "Impetuous" — You are the 

Captain, Horatio Hornblower, back in the days 
when His Majesty's Navy ruled the seven seas. 
Pirates, plunder, fame and fortune await the in- 
trepid captain. If you have ever enjoyed books 
about the sea, now is your chance to take the helm 
and find out what this life was really like. 




Reader Service for facing page s97: 




The 

PENULTIMATE 
Space War Game 

is HERE! 



TRS-80* 

Model 1 & 3 

16K and up — Tape 
010-0102 $24.95 

32K and up — Disk 
0120102 $29.95 



dventur6 

INTERNATIONAL 

A DIVISION OF SCOTT ADAMS, INC. 

BOX 3435 • LONGWOOD, FL 32750 • (305) 862-6917 

ORDER FROM YOUR FAVORITE DEALER 
or CALL TOLL FREE (800) 327-7172 



SHIPPING & HANDLING CHARGES ARE EXTRA 
PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



HOTO COPYHIGHT DON DI/ON 



•trsbo is registered Trademark oi lite Tandy Corp 



THE ASSEMBLY LINE 



by William Barden, Jr. 

"The May issue. . . contained 

eight questions for The Fourth 

Great Assembly Language Contest. 

This month we'll give the winning solution." 



The May issue of this column con- 
tained eight questions for The Fourth 
Great Assembly Language Contest. 
These contests are held in this column pe- 
riodically to test both beginners and 
hackers alike. This month we'll review the 
eight questions, discuss some of the sub- 
tle aspects, give the winning solution, and 
then (with a fanfare of rebooting disk 
drives and a flourish of Line Printer Vlls), 
announce the names of the two winners- 
one in the novice class and one in the 
hacker class. 

Problem Number One 

What is the tightest timing loop that 
can be written for counts of 1-65,536? An 
example of a slow loop is: 

(HL) = Count. 0-65,535 
LOOP DEC HL 
LD A,H 
OR L 
JR NZ.LOOP 

Timing loops keep rearing their ugly 
heads in many assembly language pro- 
grams, such as cassette driver bit timing, 
RS-232-C timing in software, computer- 
generated music and so forth. 

To figure out the timing of any set of in- 
structions or any loop, start with the 
number of T cycles for each instruction. 
These are given in the Radio Shack Editor/ 
Assembler documentation, Zilog refer- 
ence materials or other documents, usu- 
ally for a 4-MHz clock. A T cycle is one 
clock period. For the TRS-80 Model I, a T 
cycle is .56375 microseconds. For the tim- 
ing loop above we have: 



LOOP DEC HL 6 T cycles 

LD A,H 4 

OR L 4 

JR NZ.LOOP 7/12 

21/26 T cycles = 11.84/14,66 
microseconds 

The JR NZ.LOOP takes 12 T cycles if the 
jump is made and 7 T cycles if the jump is 
not made. If the jump is not made, the 
jump address does not have to be jammed 
into the program counter, which has 
already been updated by one to point to 



the next instruction in sequence; if the 
jump is made, the program counter has to 
be loaded with the jump address. 

The timing loop takes 14.66 microsec- 
onds for every iteration except the last 
and 1 1 .84 microseconds for the last, so for 
any count in HL we have: TIME = 
(CNT-1)«14.66 + 11.84 microseconds. 

As a count of zero is treated as 65,536, 
the maximum delay will be 960,755 micro- 
seconds, or almost a second. 

What I was after here was something 
like this entry: 



(HL) = timing count 
(BC)=-1 

LOOP ADD HL.BC 

JP C.LOOP 



"With a fanfare of 

rebooting disk drives 

and a flourish of 

Line Printer Vlls, 

we announce the 

winners of The 

Fourth Great Assembly 

Language Contest." 



This loop takes 1 1 plus 10 T states, or 21 
T states. By the way, this loop terminates 
when the count in HL goes negative, due 
to the test on the carry! 

Wayne Westmoreland of North Augus- 
ta, SC, however, taught this old dog of a 
columnist a new trick with this tight solu- 
tion: 



(BC) = count. - 65,535 
LD D.H 
LD E.L 
LDIR 



Several people took this approach. 
Here, a block move moves data to itself, 
essentially doing NOPs. The number of 
bytes transferred is the byte count in BO 



The timing is 21 T states for the LDIR on all 
but the last cycle, where it is 16. This 
results in a tight loop of 11.84/9.02 micro- 
seconds. 

Problem Number Two 

What do these three instructions do to 
the contents of HL? 



SR1 CALL SR2 
SR2 ADD HL.HL 
RET 



This is a tricky question as we've made 
some assumptions about the stack. 
We've assumed that this code is a sub- 
routine Called from another place, with 
the return address in the stack. The code 
executes like this: HL contains some 
value, which we'll call X. The Call instruc- 
tion calls the code at SR2, which adds HL 
to itself, multiplying X by two. A Return is 
then made back to the instruction follow- 
ing the Call. As this instruction is at SR2, 
another Add of HL to itself is done, yield- 
ing 4«X, and a return is made back to the 
unspecified call. Almost all entries had 
the correct answer on this one. 

Problem Number Three 

What does the following code do? 



LD 


(HL).A 


DEC 


BC 


LD 


D.H 


LD 


E.L 


INC 


DE 


LDIR 





To see what's being done here, let's 
look at the LDIR, the key to this puzzle. 
LDIR is a block move that moves a block 
of data from a source area into a destina- 
tion area for a specified number of bytes. 
Before the move is done, HL holds a point- 
er to the start of the source area, DE holds 
a pointer to the start of the destination 
area, and BC holds the byte count. The 
move is then done beginning to end. The 
first byte from the source area is trans- 
ferred to the first byte of the destination 
area, HL and DE are incremented to point 
to the next byte, and BC is decremented. 
The LDIR loops on itself until BC has 
decremented down to zero. 
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Some strange things happen if the 
source area and destination area are over- 
lapping. Suppose that the source area is 
8000H, the destination area is 8001 H, and 
the number of bytes is three, as shown in 
Fig. 1 . 800H contains a zero, 8001 H a one, 
8002H a two, 8003H a three and 8004H a 
four. The first LDIR iteration puts a zero in- 
to 8001 H and adjusts HL to 8001 H, DE to 
8002H and BC to two. The next move puts 
the contents of 8001 H, now a zero, into 
8002H, and adjusts HL to 8002H, DE to 
8003H, and BC to one. The next move puts 
the contents of 8002H, now a zero, into 
8003H, and adjusts HL to 8003H, DE to 
8004H and BC to zero. You can see that 
the first byte has been repeated down 
through the entire area! 

That's the secret of this code— it uses 
the replication effect to fill a block of 
memory with a given value. Suppose that 
A is 33H, HL is 8000H and BC is four. A is 
stored in 8000H by the LD (HL),A. BC is 
decremented from four to three. DE is 
loaded with HL, 8000H, and incremented 
by one to give 8001 H. The LDIR will now 
replicate the first byte of the source in 
8000H down through 8001 H, 8002H and 
8003H. We've used the LDIR as an effi- 
cient fill character routine. The routine 
uses A as the fill characters, HL as the 
start of the area to be filled, and BC as the 
number of bytes to be filled. Several peo- 
ple pointed out that BC must be two or 
greater. If not, the fill will work on the en- 
tire memory! 

Problem Number Four 

A value of zero to 15 decimal must be 
converted as shown below. What are the 
fewest number of instructions to do this? 



0to30H 4to34H 8 10 38H C to 42H 

1to31H 510 35H 9to39H D to 43H 

2to32H 6to36H Ato40H! Eto44H 

3to33H 7 10 37H Bto41H F to 45H 



I thought some of you might misread 
this, and I put an exclamation mark after 
the 40H! Values of zero through nine are 
changed to their ASCII equivalents, while 
values of B through F are changed to their 
ASCII equivalents minus one. A value of A 
is changed to an at-sign (@). Admittedly, 
this routine is not extremely useful. 

This is obviously a trick question, but as 
one reader said, "Thanks for this, it made 
me think!" It turns out that the conversion 
can be done in two instructions: 

ADD 30H 
DAA 



The DAA instruction is the Decimal Ad- 
just Accumulator. It can be used to do 



adds and subtracts on decimal, also 
called binary coded decimal or BCD data. 
BCD is a carry-over from the earlier days 
of computers when some machines used 
BCD format; in addition, there's a lot of in- 
strumentation that uses BCD format for 
input and output. 

In BCD, there is one digit per four bits, 
and two per byte. Valid BCD digits are 
zero through nine. The values of 1010 
through 1111 are not allowed. The eight- 
bit value 10011000, for example, reads 98 
in BCD and represents the decimal value 
of 98, rather then the binary value of 152. 
The Z-80 permits BCD adds and subtracts 
to be done by means of the DAA. An addi- 
tion of 00101001 and 00110011 (BCD 29 
and BCD 33), for example, would yield 
01100010, the BCD result of 62. All that 



"Some strange things 

happen if the source 

area and destination 

area are overlapping. " 



must be done to get the true BCD result is 
to follow an add or subtract with a DAA in- 
struction: 



ADD A,B ;add two bed digits 

DAA ;ad|ust Irom binary to BCD 



The conversion is done in the DAA by 
using the carry flag, the half-carry flag, the 
two four-bit results and the add/subtract 
flag. A value of six on an add or a value of 
0FAH (minus six) on a subtract is added 
to each four-bit result to adjust it to be a 
true BCD digit if necessary. 

Of course, what I was really looking for 



when I first thought of the problem was a 
tricky way to convert from a binary value 
to its ASCII equivalent. I settled for the 
problem above when I couldn't find it. 

About half of you got the correct an- 
swer. In looking over the replies, I saw the 
following code from David Lamkins of 
Marlboro, MA: 

ADD A.90H 

DAA 

ADC A.40H 

DAA 

David said, "I don't claim originality, 
though the source is unknown." David's 
response doesn't solve the problem as 
posed but it is a gem! It solves the prob- 
lem I wanted to pose. It does convert from 
a binary value to ASCII in four instruc- 
tions! (Try it!) A special honorable men- 
tion, therefore, goes to David. 

Problem Number Five 

Find the integer portion of log base 2 of 
a value in the A register, with the result in 
any register. Examples: 



1 produces 

2 produces 

3 produces 

4 produces 

5 produces 
15 produces 
25 produces 
37 produces 



a value ot 
a value ol 1 
a value of 1 
a value ol 2 
a value of 2 
a value of 3 
a value of 4 
a value of 5 



The question posed in an alternative 
way is, "Write code to find the next lower 
power of two for a given number. Return 
the power of two represented." 

We know from exhaustive study of 
binary, hexadecimal and bi-quinary in late 
evening hours that each bit position in a 
binary number represents a power of two. 
A value of two to the power of zero (one) is 
in bit position zero at the right, two to the 
power of one (two) is next, two to the 
power of two (four) is next, and so forth. To 
find the first power of two represented by 
a binary value, all we have to do is to look 
for the leftmost one-bit in the value. Sup- 





BEFORE 


AFTER 


AFTER 


AFTER 




LDIR 


FIRST 


SECOND 


THIRD 


8000H 




ITERATION 



ITERATION 



ITERATION 






8001 H 


1 











8002H 


2 


2 








8003H 


3 


3 


3 





8004H 


4 


4 


4 


4 


HL = 


8000H 


8001 H 


8002H 


8003H 


DE = 


8001 H 


8002H 


8003H 


8004H 


BC = 


3 


2 


1 





Fig. 1. 


LDIR with overlapping source/destination. 
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. . Your last chance 

to get 80 MICROCOMPUTING for only $18 a year. 



August 1, 1981 the price of 80 Microcomputing is going up. The cover price will be $2.95 and 
the subscription rate will be $25 for one year. But you still have a chance to renew or 
subscribe at the old rates .... send in the card (if the cards are gone, a photocopy of the 
coupon will do) before October 1, 1981 and you can get 80 Microcomputing at the old rates. 

You get more information for your TRS-80* from 80 Microcomputing than from any other 
single source. One of the numerous (we've been averaging thirty a month) programs from each 
issue put to use can easily pay for the subscription price. Even at $25.00 a year. But beat the 
price increase and continue to get the hundreds of pages of reviews, articles, programs, and 
applications for only $18.00. ________________ 

Remember after October 1, 1981 no 
previous offers to 80 Microcomputing 
at a price less than $25.00 will be 
accepted. So send in the card today. 



□ Yes, 
I want another year of 80 Microcomputing at the low price of $18.00 



Bill men 



Billmy D VISA DASDKG Check enclosed □ 




Wayne Green Inc.. Peterborough NH 034B8 
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Address 
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Card* 



Signature 



State 



Expire Date . 
Interbank # 



Offer expiree October 1. 1981 



If you are renewing, 

the number from your address label would be helpful 



Zip 



Canadian 1 year only/US funds $20.00 Foreign 1 year only/US funds $38.00 

80 Microcomputing . PO Box 981 . Farmlngdale. NY 11737 318B8 
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THE ASSEMBLY LINE 



pose we have the value of 75 decimal. This 
is represented by 01001011, or two to the 
power of six plus two to the power of three 
plus two to the power of one plus two to 
the power of zero. The leftmost one-bit is 
two to the power of six, or 64. The follow- 
ing routine, from Bill Smythe of Chicago, 
IL, is representative of the answers to 
return the leftmost power of two: 



LD 


B,7 


LOOP RLCA 




RET 


C 


DJNZ 


LOOP 


RET 





A bit position value in B is initialized to 
seven. A is shifted left by an RLCA. If the 
carry is set, B contains the first power of 
two with a one-bit. If the carry is not set, 
the bit position number is decremented by 
the DJNZ, and another pass is made. As 
Bill says, "Zero is returned in B if A equals 
zero, which is technically incorrect, but 
minus infinity is hard to represent in one 
byte!" 

Problem Number Six 

What does the following code do? 

JR NEXT + 1 

NEXT JR NEXTP - 1 
NEXTP . . . 

To solve this one, we've got to see what 
the assembly listing produces for ma- 
chine code. The JR instruction produces a 
two-byte instruction of 18H plus a one- 
byte displacement. The one-byte displace- 
ment is a signed eight-bit value that, when 
added to the contents of the program 
counter, will point to the location speci- 
fied. As the program counter points to the 
next byte after the JR, the one-byte dis- 
placement value allows us to jump minus 
126 bytes back from the JR or plus 129 
bytes forward, for displacement values of 
minus 128 through plus 127, respectively. 

The listing looks like this: 



8000 18 01 




JR 


NEXT + 1 


8002 18 FF 


NEXT 


JR 


NEXTP- 1 


8004 


NEXTP . . 







NEXT + 1 is at 8003, so the JR NEXT + 1 
jumps to 8003, which is a 0FFH. Now the 
next question is, what instruction is a 
0FFH? Close scrutiny of our Zilog refer- 
ence card reveals that it is an RST, with a 
three-bit field of 111. This is an RST 38H, 
and that's what will be executed. 

Problem Number Seven 

A contains a signed value. What does it 
contain after: 



NEG 
CPL 

This was an easy one. The NEG negates 
the value in A, changing it to the same 
magnitude, but opposite sign. Suppose, 
for example, we had 00000101 , or plus five, 
in the A register. The NEG takes the two's 
complement by changing all the ones to 
zeroes, changing all the zeroes to ones, 
and adding one. The result after the NEG 
is 11111011, or minus five. If the original 
number is N, the NEG finds - N, the CPL 
performs a one's complement. A one's 
complement changes all the ones to 
zeroes and all the zeroes to ones. If N is 
the number before the CPL, the CPL finds 
-(N + 1). The two instructions together 
find - (( - N) + 1) or N - 1 . Examples are: 

Value After NEG After CPL 

00000000(0) 00000000(0) 11111111 (-1) 

00000001(1) 11111111 (-1) 00000000(0) 

00000010(2) 11111110 (-2) 00000001(1) 

01111111(127) 10000001 (-127) 01111110 (- 126) 

1111111 (-1) 00000001(1) 11111110(-2) 

11111110 (-2) 00000010(2) 11111101 (-3) 

10000000 (-128) 10000000 (-128) 01111111(127) 

You can see that there is one overflow 
condition for minus 128 in which the final 
result is erroneous. 

Problem Number Eight 

What is the purpose of TWDEE and 



TWDUM? 






SR 


CALL 


TWDEE 


TWDEE 


EX 


(SP),HL 




PUSH 


DE 




PUSH 


BC 




PUSH 


AF 




LD 


DE.TWDUM 




PUSH 


DE 




JP 


(HL) 


TWDUM 


POP 


AF 




POP 


BC 




POP 


DE 




POP 


HL 




RET 





Let's see what this code does. SR is a 
user subroutine. It has been called by 
other code that does not appear. The re- 
turn address from the Call is on the stack. 
SR calls TWDEE, and as it does so, the 
return address after SR is put onto the 
stack. The first instruction of TWDEE ex- 
changes the top of stack with the HL reg- 
ister. HL is assumed to contain valid data 
that must not be destroyed. In doing the 
EX instruction, the HL register has auto- 
matically been saved on the stack in place 
of the return address for the SR CALL. 

The DE, BC and AF registers are now 
pushed onto the stack. At this point HL, 



DE, BC and AF have been saved on the 
stack, in that order. Now DE is loaded with 
the address of the TWDUM subroutine 
and pushed. The stack now holds the user 
return for the SR Call, HL, DE, BC, AF and 
TWDUM address. Next, a jump is made in- 
directly to HL. As HL was loaded with the 
return address in the EX instruction, this 
causes a return from TWDEE. 

At some later point in the user subrou- 
tine, a RET is executed. The return causes 
the stack to be popped and the return ad- 
dress to be put into the program counter. 
The first item on the stack, however, is the 
TWDUM address, and the code at TWDUM 
is therefore executed. TWDUM restores 
AF, BC, DE and HL from the stack, and 
then executes a return. This return causes 
a return to the location following the Call 
toSR. 

This whole sequence, therefore, is a 
clever way to automatically save all gener- 
al purpose registers with one instruction, 
and to do an automatic restore and Return 
with the RET instruction at the end of a 
subroutine. The user subroutine employ- 
ing this technique would have something 
like: 



SR CALL TWDEE ;save registers 
(body of SR) 
RET ;restore and Return to user 

Since subroutines typically save regis- 
ters at the beginning and restore them at 
the end, this technique saves the user 
from performing a lot of PUSHes and 
POPs with one Call and a single Return. 

The Winners 

And now for the winners. The bulk of 
mail I got was considerable, so I used the 
following technique to determine the win- 
ners: I looked for correct answers to ques- 
tions two through eight first and then 
went back to compare code for question 
one. Those entries not specifying novice 
or hacker were assumed to be in the 
hacker category. 

The winner in the novice class was 
Bryon Wallace of Refugio, TX. The winner 
in the hacker class was David S. Raley of 
Roosevelt, NY (honorable mention: 
Smythe, Yelvington, Westmoreland, Hut- 
chins, Rollins, Nelson, Delfs, Black, Fel- 
sheim, Pirog, Cunningham and Miller). 
These two winners will receive copies of 
my latest book Microcomputer Math and 
copies of the Prentice Hall book Micro- 
computer Interfacing by Artwick. 

That's it for this month. I hope you en- 
joyed the contest. I know I did, and picked 
up some good techniques from the en- 
tries!! 
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SO APPLICATIONS 

%r^r by Dennis Kitsz 



"Midsummer is a time of 

relaxation. I would like to present 

a little entertainment first. . . " 



Midsummer traditionally is a time of 
relaxation. In keeping with that, I 
would like to present a little entertainment 
first, and save the brain-cracking for later. 

Fifteen years ago, a British mathemati- 
cian by the name of John Conway envi- 
sioned an orderly universe populated by 
obedient but boring creatures. These 
creatures followed strict rules that gov- 
erned their existence, rules that were coin- 
cidentally quite mathematically regular. 
He called his universe, together with its 
rules, "The Game of Life." 

The Game of Life is not a board game 
nor an adventure— it is, rather, a ludus, a 
pastime, an entertainment, or miniature 
theatre. A mythical civilization of uniform 
beings is born, and its members give birth, 
live, and die according to a specific 
decree. The laws are simple: 

1. All beings must live within the 
bounds of a finite universe. 

2. That universe consists of a regular 
grid, in each position of which a being 
may live. In this way a being may have no 
more than six immediate neighbors. 

3. When a being is surrounded by two or 
three immediate neighbors, it may live. 

4. When a being is surrounded by more 
than three neighbors, it must die. 

5. When a being is surrounded by less 
than two neighbors, it must die. 

6. When a position in the universe is im- 
mediately surrounded by exactly three 
other beings, one is given birth at that 
position. 

The universe for the Game of Life could 
be infinite, but it would then take an in- 
finite amount of time for a computer to fig- 
ure out the next generation of beings with- 
in it. Since I only have till next month to 
work this program out, I've scaled the uni- 
verse down to the 64 x 16 characters on 
the TRS-80 screen (what a coincidence!). 

There are many beautiful patterns pos- 
sible with the Game of Life, with names 
like gliders, ponds, flashers, and space- 
ships. In the ideal Game of Life these will 
flicker and flash in exquisite patterns. (If 
you're interested in a description of these 
forms, as well as a more extensive 
128x48 version of the game, turn to the 
June, 1980, issue of 80 Microcomputing. 
Also, the theory and myriad versions of 



the game were first presented in Scientific 
American, and has been covered there 
and in Byte over the years.) 

The Game of Life is a perfect mental 
exercise in programming, because the 
display should be fast and fluid. The num- 
ber of calculations, however, can be ex- 
traordinary: for the TRS-80, the fastest 
64 x 48 grid I have seen is Charley Heath's 
(sold by Instant Software), at about 180 
generations per minute; a later revision of 
my own version in 80 Microcomputing is 
the fastest 128x48 grid, at about 80 
generations per minute. In these, the bit- 
addressing scheme used in the TRS-80's 
video graphics system makes these cal- 
culations slow; using entire bytes for each 
character makes the Game of Life run 
much faster. 

The version presented here has an 
average speed of 740 generations per min- 
ute—over 12 per second! If you have a 50 
percent speed-up modification in your 
TRS-80, you will see the generations flash 
by at over 1,100 per minute. 

What's an Algorithm? 

The heart of any program, the method 
used to solve a problem, is called an 
algorithm. Here's an example: given the 
problem, "What is the result of 355 divided 
by 113," how do you find a solution? Your 
human algorithm might be long division, 
quick successive approximation, a grab 
for the calculator, or the knowledge that 
this particular division is a pretty good ap- 
proximation of pi. 

The scheme by which you solved that 
problem might be called an algorithm. In a 
more realistic situation— since there are 
more numbers in the world to divide than 
355 and 113— the problem would be stat- 
ed as "What is the result of x divided by y." 
Your task then would be to come up with 
an overall solution, a generalized al- 
gorithm (which still might be to grab for 
the calculator!). 

All the rules for the Game of Life are 
presented above. The most common 
algorithm developed from them is to 
evaluate the number of live cells immedi- 
ately neighboring a given grid position, 
and alter that grid position accordingly. 

A better solution was developed by 



Philip K. Hooper (The Codesmith, North- 
field, VT) for the KIM-1 . Dr. Hooper is a pro- 
grammer specializing in 6502-based com- 
puters, and his methods are determined 
by the most elegant and efficient achieve- 
ment of programming goals. His solution 
was like the round earth ... it was obvious 
only after being discovered. Dr. Hooper's 
version of the Game of Life assumes 
(given any universe and Conway's rules) 
that after the first few generations have 
been produced, there will always be more 
empty cells than filled ones. Applying 
logic and math to the rules shows that this 
is true. 

That implies that an individual cell need 
not be examined for its neighbors, but 
rather that the life or death of the neigh- 
bors may be determined by the state of 
the cell being looked at. With this in mind, 
it's clear that the program's speed will be 
increased over the first method because it 
will ignore any unfilled grid positions, 
stopping only to test and store informa- 
tion about the neighbors of live positions. 

Creating the program turned out to be 
quite simple. Program Listing 1 will run 
under Level II Basic, or can be loaded from 
a disk system (disk users have been tak- 
ing me to task for ignoring them in this 
column), and the program occupies only 
154 bytes of memory. 1K of additional 
memory is used to store a working image 
of the screen. Program Listing 2 is the 
same program converted to a series of 
Basic POKE statements. 

Invading Hordes 

When loaded as a System tape, the pro- 
gram will automatically take control of the 
computer by patching into the keyboard 
scan and directing that loop to itself. It 
then returns the original address so the 
program may be exited at any time by 
pressing the reset key. Disk users may 
save it as a CMD file. The Basic version 
will automatically execute when the 
USR(0) statement is encountered. 

Interrupts are disabled in order to in- 
crease the speed of the program. The 
screen will clear (a ROM call in line 310 of 
Listing 1), and a block of higher memory 
will be filled with - Vs. These two steps 
initialize the program with a blank-screen 
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TRS-80™ MODEL I & III PROGRAMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE 
DISK-OPERATING SYSTEM 

LDOS™ 

A completely documented new generation of 
operating system for the TRS-80. Far superior to 
any on the market. It is a totally device 
independent system, capable of device linking, 
routing, setting, and filtering. LDOS will support 5" 
and 8" floppies, single/double density, single/dou- 
ble sided, and up to 80 tracks. Full customer 
service proivded with a toll free 800 number. 
Excellent documentation in a tab indexed manual 
(over 250 pages). Call or send for more information 
today. 
AVAILABLE for MODEL I or III ... ONLY $149.00 



TRS-80'" A Trademark of Tandy Corp. 

MAIL/FILE - SERIES I 

Mail/File - Series I is the system which originally 
set the standards for the industry. It's the original 
Name, Address & Phone Number Data Base 
Manager which has made Galactic customers 
happy for years. A flexible and capable program for 
any small business or person with mailing list 
needs. Call or send for more information today. 
AVAILABLE FOR THE MODEL I ONLY 

originally $99.00 

HURRY* Special limited time offer . . . $59.00 



LDOS'" is a product of Logical Systems Inc. 



MAIL/FILE - SERIES II 

NEW Series II Mail/File has all of the outstanding 
features of the original Series I Mail/File, PLUS 
many additional qualities which again will set 
standards for this type of system. "Word 

D1ICIKICCC cvctcmc a processor" type input editor, fast sorting, and 

DUdiritdo oTDitmo ot fabulous editing capabilities are a few of its 

MAILING SYSTEMS features. Name and ZIP code are under constant 

.t.wr NTn Dv MAQTFP SYQTFU SOrt SeneS " ' S com P atable witn Serles \ data ,iles - 

INVtNIUKY MAbltK MbltM MODEL I SYSTEM will handle up to 600 Names 

With today's market, keeping on hand what your MODEL III SYSTEM will handle up to 1200 Names 

demand calls for is reason enough to let your TRS- Either SYSTEM AVAILABLE for ONLY . $159.00 

80 accurately and effectively take care of your 

Inventory. Always know what to stock and when to 

stock it. This system has many features which were 

modeled after a main frame system of large 

capacity. More information available upon request. 

MODEL I VERSION JUST $159.00 

MODEL III VERSION JUST $259.00 




ALSO AVAILABLE 

... For the MODEL I or III 

STOCK MARKET MONITOR 

Cassette version $89.00 

Disk version $99.00 

ULTRA-TREK GAME 

Can You Master This Trip Through the Galaxies? 

Climb aboard the Star-Ship Enterprise and head for 
a universe of unknown encounters, enemies and 
stellar battles. As commander, will you be able to 
keep the Enterprise and its crew en route and on 
patrol? Can you destroy the hostile base? 
ORDER TODAY. 
MODEL I OR III VERSION ONLY $19.00 

All of Galactic's products have a one year limited warranty with 
customer support included with each purchase Warranty informa- 
tion is available upon request in writing. 

MONEY ORDERS. CREDIT CARDS. & COD'S SHIPPED WITHIN 24 
HOURS 



galactic software ltd. 

A Division of GS & WS, Inc. 

11520 N. Port Washington Rd. • Mequon, Wisconsin 53092 
Telephone: (414) 241-8030 
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DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't ww — 
Blame The 
Software! 

Power Line Spikes. Surges & #4 .259705 ^"^ s0 2 

Hash could be the culprit! 
Floppies, printers, memory & processor often interact! Our 
patented ISOLATORS eliminate equipment interaction AND curb 
damaging Power Line Spikes, Surges and Hash. 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any 
socket $62.95 

• ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 
filtering & Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
individually filtered sockets $106.95 

• SUPER ISOLATOR (ISO-1 1) similar to ISO-2 except double 
filtering & Suppression $94.95 

• CIRCUIT BREAKER, any model (add-CB) Add$ 8.00 

• CKT BRKR/SWITCH/PILOT (CBS) Add $16.00 

AT YOUR Master-Card, Visa, American Express 

DEALERS Order Toll Free 1-800-225-4876 

(except AK, HI, PR & Canada) 



/±& Electronic Specialists, Inc. 

171 South Mam Street. Natick Mass 01760 

Technical & Non-800: 1-617 655-1532 




Dr. Jerome S. Osteryoung, renowned business educator, and 
author of 5 business texts has written the following programs. 

1. PROFORM A CASH BUDGET 

PROGRAM 

Allows the user to project the cash-balances for up to twelve 
periods in the future. Amount of loan, if needed, is computed as 
well as computing funds available for short-term investment 
(Price $125) 

2. LEASE-PURCHASE PROGRAM 

Evaluates the lease vs. purchase decision incorporating all the 
latest tax laws including the investment tax credit and ac- 
celerated depreciation. This program gives the user all the in- 
formation necessary to make this decision. (Trice $50) 

3. BUSINESS PROGRAM PACKAGE 

13 Business programs (e.g., capital budgeting, cash- 
management, ratio analysis, debt management). These pro- 
grams will be very useful to the business manager. (Price $200) 

4. PROCUREMENT PROGRAM 

Ascertains purchase amount when future price of commodity 
is varying. A must for all managers who have purchasing 
responsibilities. This program takes into consideration inven- 
tory levels, inventory capacity, and financial carrying cost in 
determining the optimal amount of an item to purchase when 
future prices are varying. (Price $i50) 

5. COLLEGE ENROLLMENT 
PROJECTION PROGRAM 

Forecasts the enrollment for colleges using several different 
statistical techniques. User can specify the number of periods 
for which a forecast is desired. (Price $100) 

Extensive Documentation With E ach Program 

Write or call for a brochure which describes the produc 
greater detail 

• 87 

b200 Brittany Drive. «I006 S> Peters burg. FloriOd 33715 





^See List ol Advertisers on page 322 
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Program Listing 1. Assembly Listing of The Game of Life 



4016 

4016 00 

4017 6F 
6F00 

6F00 211640 
6F03 36E3 
6F05 23 
6F06 3603 



6F08 F3 
6F09 CDC901 
6F0C 210070 
6F0F 110170 
6F12 01FF03 
6F15 36FF 
6F17 EDB0 



6F19 21003C 
6F1C DD210070 00430 
6F20 010004 00440 
6F23 7E 00450 
6F24 FE20 00460 
6F26 CA416F 00470 
FIELD OVERFLOW 
6F29 DD34BF 00480 
FIELD OVERFLOW 
6F2C DD34C0 00490 
FIELD OVERFLOW 
6F2F DD34C1 00500 
FIELD OVERFLOW 
6F32 DD34FF 00510 
6F35 DD3401 
6F38 DD343F 
6F3B DD3440 
6F3E DD3441 
6F41 23 
6F42 DD23 
6F44 0D 
6F45 C2236F 
6F48 05 
6F49 C2236F 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 



ORG 


4016H 


DEFB 


000H 


DEFB 


06FH 


ORG 


6F00H 


LD 


HL,4016H 


LD 


(HL) ,0E3H 


INC 


HL 


LD 


(HL) ,03H 



DI 




CALL 


01C9H 


LD 


HL,7000H 


LD 


DE,7001H 


LD 


BC,3FFH 


LD 


(HL) ,0FFH 


LDIR 





6F4C 21003C 
6F4F 110070 
6F52 0604 
6F54 1A 
6F55 3D 
6F56 CA646F 
6F59 3D 
6F5A C2626F 
6F5D 362E 
6F5F C3646F 
6F62 3620 
6F64 3EFF 
6F66 12 
6F67 23 
6F68 13 
6F69 0D 
6F6A C2546F 
6F6D 05 
6F6E C2546F 



6F71 3A1038 
6F74 A7 
6F75 CA196F 



00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 

006 80 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 

007 80 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 



******************************************************* 
SOURCE PROGRAM FOR QUICK LIFE 
DENNIS BATHORY KITSZ 
ROXBURY, VERMONT 05669 
BASED ON AN ALGORITHM DEVELOPED BY PHILIP K. HOOPER 
******************************************************* 



KEYBOARD INTERCEPT 
LOW BYTE OF LIFE START 
HIGH BYTE OF LIFE START 
LIFE PROGRAM STARTS HERE 
KEYBOARD INTERCEPT 
RESTORE ORIGINAL VALUE 
GET INTERCEPT HIGH BYTE 
RESTORE ORIGINAL VALUE 



*********************************************** 

CLEAR SCREEN AND PREPARE LIFE BUFFER WITH -l'S 
*********************************************** 



GET RID OF INTERRUPTIONS 
ROM CLEAR SCREEN ROUTINE 
BEGINNING OF LIFE BUFFER 
TRANSFER DESTINATION 
NUMBER OF BYTES TO CLEAR 
CLEAR AREA WITH ALL -l'S 
BLOCK MOVE TO CLEAR 



>************************************ ****************** 

3EGIN INCREMENTING NEIGHBORS OF LIVE CELLS 
******************************************************* 



;GET START OF SCREEN 
;GET START OF LIFE BUFFER 
;GET TOTAL BUFFER LOC ' NS 
;GET VALUE AT SCREEN 
;IS IT A SPACE? 
;IF A SPACE, MOVE ONWARD 

;NO SPACE - INC. NEIGHBOR 

;NO SPACE - INC. NEIGHBOR 

;NO SPACE - INC. NEIGHBOR 

;NO SPACE - INC. NEIGHBOR 
;NO SPACE - INC. NEIGHBOR 
;NO SPACE - INC. NEIGHBOR 
;NO SPACE - INC. NEIGHBOR 
;NO SPACE - INC. NEIGHBOR 
;GET NEXT SCREEN POS'N 
;GET NEXT LIFE BUFFER POS 
;DEC. BC REG. (FAST WAY) 
;LOOP IF NOT DONE YET 
;DEC. BC REG. (FAST WAY) 
;LOOP IF NOT DONE YET 



******************************************************* 

BEGIN EVALUATING WHETHER NEIGHBORS ARE IN CONWAY'S RULE 
******************************************************* 



LD 


HL,3C00H 


LD 


IX, 700011 


LD 


BC,400H 


LD 


A,(HL) 


CP 


20H 


JP 


Z, THREE 


INC 


(IX-41H) 


INC 


(IX-40H) 


INC 


(IX-3FH) 


INC 


(IX-1) 


INC 


(IX+1) 


INC 


(IX+3FH) 


INC 


(IX+40H) 


INC 


(IX+41H) 


INC 


HL 


INC 


IX 


DEC 


C 


JP 


NZ,TWO 


DEC 


B 


JP 


NZ,TWO 



FIVE 
SIX 



LD 

LD 

LD 

LD 

DEC 

JP 

DEC 

JP 

LD 

JP 

LD 

LD 

LD 

INC 

INC 

DEC 

JP 

DEC 

JP 



HL,3C00H 

DE,7000H 

B,4 

A, (DE) 

A 

Z,SIX 

A 

NZ,FIVE 

(HL) ,2EH 
SIX 

(HL) ,20H 
A,0FFH 

(DE) ,A 

HL 

DE 

C 

NZ,FOUR 

B 

HZ, FOUR 



**************************** 

CHECK FOR THE HUMAN WHO MAY 
**************************** 



LD 

AND 

JP 



A, (3810H) 

A 

Z,ONE 



;GET FIRST SCREEN POS'N 
;GET LIFE BUFFER START 
;BC=400 (C IS ALREADY 0) 
;GET VALUE IN LIFE BUFFER 
; DECREMENT FOR TESTING 
;IF THEN NEIGHBORS=2 
{DECREMENT FOR TESTING 
;IF NOT NEIGHBOR >= 3 
;PUT LIVE CELL IN PLACE 
;GO OUT TO NEXT CHARACTER 
;PUT DEAD CELL IN PLACE 
;GET -1 VALUE IN A REG. 
;PUT -1 INTO LIFE BUFFER 
;GET NEXT SCREEN POS'N 
;GET NEXT LIFE BUFFER POS 
;DEC BC (FAST WAY) 
.•REPEAT 400H TIMES TOTAL 
;DEC BC (FAST WAY) 
; REPEAT FOR FULL SCREEN 

>************************** 

3E PRESSING THE KEYS 
>************************** 



GET 0-7 KEYBOARD ROW 
CHECK IF KEY PRESSED 
NEXT GEN. IF NO KEY 



BEGIN CHARACTER GENERATION BASED ON SCREEN CONDITION 
A**************************************************** 



Program continues 



universe and a clear area in which living 
and dead cells may be tested. 

The heart of the program begins in line 
420, where the HL register pair is given the 
beginning screen address (3C00H) and the 
IX register is given the cell-test address 
(7000H). The BC register pair is handed the 
total count of cells on the screen (400H, or 
1024 screen locations). Each screen loca- 
tion is tested to determine if it contains a 
space (line 460). If a space is present, no 
further work is done, and both the cell-test 
area (IX) and the screen position (HL) are 
bumped ahead to the next location. The C 
register is decremented and tested for 
zero; only then is the B register decre- 
mented. When both are zero, the routine 
terminates. 

If a character is found on the screen 
(when pointed to by HL), the six neighbors 
of this live cell are incremented. The IX 
register can be addressed indirectly, us- 
ing an offset— that is, the contents of 
memory to which it points may be 
changed, as well as the contents of 
memory within a range of ± 127 bytes of 
it. When a live cell is discovered, this pro- 
gram increments neighbors IX-41 (upper 
left), IX-40 (upper), IX-3F (upper right), IX-1 
(left), IX + 1 (right), IX + 3F (lower left), 
IX + 40 (lower), and IX + 41 (lower right). 

Translating the process into simple 
terms, when a living cell is found, each of 
its neighbors (or potential neighbors) is 
marked. Since neighboring cells will have 
some neighbors in common, you can see 
what the result will be. When the process 
is complete, the total number of a cell's 
neighbors will be stored in a block of 
memory. 

The neighbor test begins at line 670. 
The HL register pair is set back to the 
beginning of the screen, and the DE reg- 
ister pair is pointed to the block of cell- 
test memory. The DE register pair can be 
used this time because it is faster than the 
IX register, and because no indirect off- 
sets will be needed for this process. B is 
set to 4 (C is already at 00, so this saves a 
small bit of time) for the total cell count, 
and the testing begins. 

Recall that the original cell-test field of 
1,024 bytes was set to -1; this makes 
testing faster. DEC A in line 710 will pro- 
duce a zero if the number of neighbors is 
two (initial -1 in the test field +2 
neighbors = 1; when 1 is decremented, it 
becomes zero). Two neighbors means that 
a living cell remains living, with no new 
cell being born. No change would then be 
made, and the routine is exited (via line 
780). There the neighbor field is set back 
to - 1, and the next test locations are ob- 
tained for HL and DE. 

DEC A in line 730 will produce a zero on- 
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ly if the number of neighbors is exactly 
three. Three neighbors means that a cell 
must be given birth. That is done at line 
750. If no zero is the result of line 730, the 
number of neighbors must have been 
greater than three or less than one (a cell- 
test value greater than +2 or less than 
zero). A space is then displayed (line 770). 
A simple keyboard check is made at line 
910. If no key is pressed in the to 7 row, 
the entire Life process is repeated for an- 
other generation (line 930, looping back to 
line 420). If any key in the to 7 row is 
pressed, the program produces invading 
hordes of new characters from the top of 
the screen. Exactly how many new char- 
acters are produced, and where they 
come from, is a function of the keyboard 
character pressed, the current state of the 
screen, and the present value in the R reg- 
ister. I'll leave any further explanations of 
this process; it's not random, but it's not 
easily predicted. 

Changes 

The character produced in this Game of 
Life is a simple period. If you want to 
change the character, load the program 
and press Reset (Break/Reset in disk sys- 
tems). Then POKE 28510.X and POKE 
28564.X. X is the ASCII value of the char- 
acter you want to use; stars (42), lower- 
case o's (111) and small blocks (129) make 
an interesting display. To re-enter the pro- 
gram, type System, and respond to the *? 
prompt with /28424. 

I want to express my appreciation to 
Philip K. Hooper for the kind permission to 
explain his algorithm in this column. 

How Was Your Week? 

My computer also knows that sum- 
mer's lazy days are here again. A week 
before the summer solstice, it decided to 
take a vacation— one not even close to 
home. 

It all began innocently enough when 
graphics characters turned up unexpect- 
edly in my text files. A vigorous cleaning 
of the edge-card contacts, thought I, 
would do the trick. Out came a cloth and 
some polish, and soon the connectors 
looked better than new. 

I reloaded the damaged text file and 
began typing away, calling for an occa- 
sional word count. Nothing seemed amiss 
until I noticed that the word count was 
getting smaller, instead of larger. That's a 
sure sign of unwanted memory changes 
fooling the text editor into believing it's at 
the end of the material when it really isn't. 
These monthly Applications columns 
aren't done as paper drafts, they're com- 
posed right on the screen. Not being a 
hunt-n-peck typist, I had the uneasy 



Program continues 










6F78 


57 


00990 




LD 


D,A 


;D = KEY VALUE IN A 


6F79 


ED5F 


01000 




LD 


A,R 


;GET CURRENT REFRESH VAL. 


6F7B 


5F 


01010 




LD 


E,A 


;SAVE R IN E REGISTER 


6F7C 


C5 


01020 




PUSH 


BC 


;SAVE LIFE LOOP VALUE 


6F7D 


47 


01030 




LD 


B,A 


,-SAVE R IN B REGISTER 


6F7E 


10FE 


01040 




DJNZ 


$ 


; DELAY LOOP R TIMES 


6F80 


CI 


01050 




POP 


BC 


; RESTORE LIFE LOOP VALUE 


6F81 


ED5F 


01060 




LD 


A,R 


;GET ANOTHER R VALUE 


6F83 


83 


01070 




ADD 


A,E 


;A = R PLUS E 


6F84 


82 


01080 




ADD 


A,D 


;A = R PLUS E PLUS D 


6F85 


5F 


01090 




LD 


E,A 


;E = R PLUS E PLUS D 


6F86 


7A 


01100 




LD 


A,D 


;A = D (ORIGINAL KEY VAL) 


6F87 


163C 


01110 




LD 


D,3CH 


;D = 3C (SCREEN HI BYTE) 


6F89 


C5 


01120 




PUSH 


BC 


;SAVE LIFE LOOP VALUE 


6F8A 


4F 


01130 




LD 


C,A 


jC = D (ORIGINAL KEY VAL) 


6F8B 


47 


01140 




LD 


B,A 


;B = D (ORIGINAL KEY VAL) 


6F8C 


ED5F 


01150 


SEVEN 


LD 


A,R 


;A = R (PART OF RANDOM) 


6F8E 


E602 


01160 




AND 


02 


;TEST FOR SET BIT 


6F90 


C2976F 


01170 




JP 


NZ, EIGHT 


;IF NO BIT SET 


6F93 


3E2E 


01180 




LD 


A,2EH 


; CREATE CHARACTER IF BIT 


6F95 


12 


01190 




LD 


(DE) ,A 


;PUT CHAR. IN 3C+R+C+D 


6F96 


13 


01200 




INC 


DE 


.•INCREMENT SCREEN POS'N 


6F97 


10F3 


01210 


EIGHT 


DJNZ 


SEVEN 


;DO THIS D + D TIMES 


6F99 


CI 


01220 




POP 


BC 


; RESTORE LIFE LOOP VALUE 


6F9A 


C3196F 


01230 
01240 




JP 


ONE 


;BACK FOR NEXT GENERATION 






01250 


. *********** 


**************** 


**************************** 


6F00 




01260 




END 


6F00H 


; BEGIN AT LIFE ENTRY 


00004 TOTAL 


ERRORS 










EIGHT 6F97 


01210 


01170 








FIVE 


6F62 


00770 


00740 








FOUR 


6F54 


00700 


00830 


00850 






ONE 


6F19 


00420 


00930 


01230 






SEVEN 6F8C 


01150 


01210 








SIX 


6F64 


007 80 


00720 


00760 






THREE 


6F41 


00560 


00470 








TWO 


6F23 


00450 


00590 


00610 







Program Listing 2. The Basic version of the Game of Life 

10 REM * QUICK LIFE PROGRAM MACHINE CODE ENTERED THROUGH BASIC 
20 REM * AS REQUESTED BY READERS, A CHECKSUM IS CALCULATED TO 
30 REM * VERIFY THAT THE DATA LINES HAVE BEEN TYPED CORRECTLY. 
40 REM * BY D. B. KITSZ, BASED ON AN ALGORITHM BY P. K. HOOPER 
50 X = 28424 : Y = : Z = : REM * SET UP MEM, CHECK, & POKE 
60 READ Z : Y = Y + Z : REM * READ VALUE AND START CHECKSUM 
70 IF Z = 999 THEN 100 : REM * 999 IS END-OF-DATA INFORMATION 
80 POKE X,Z : X = X + 1 : REM * POKE VALUE & ADVANCE MEM LOC'N 
90 GOTO 60 : REM * LOOP BACK, READ NEXT DATA, CHECKSUM, & POKE 
100 IF Y = 16396 THEN 150 : REM * EXAMINE VALIDITY OF CHECKSUM 
110 PRINT "BAD CHECKSUM. CORRECT DATA AND RUN AGAIN." : END 
150 POKE 16526,8 : POKE 16527,111 : REM * LEVEL II START ADDR. 
160 'DEFUSR0 = 28424 : REM * DEFINE DISC BASIC START ADDRESS 
170 M=USR(0) : REM * LEVEL ii ENTRY — USE M=USR0(0) FOR DISC 
200 DATA243, 205, 201, 1,33, 0,112, 17, 1,112, 1,255, 3, 54, 255, 237, 176 
210 DATA33, 0,60, 221, 33, 0,112, 1,0, 4, 126, 254, 32, 202, 65, 111, 221, 52 
220 DATA191, 221, 52, 192, 221, 52, 193, 221, 52, 255, 221, 52, 1,221, 52, 63 
230 DATA221, 52, 64, 221, 52, 65, 35, 221, 35, 13, 194, 35, 111, 5, 194, 35 
240 DATA111, 33, 0,60, 17, 0,112, 6, 4, 26, 61, 202, 100, 111, 61, 194, 98 
250 DATA111, 54, 46, 195, 100, 111, 54, 32, 62, 255, 18, 35, 19, 13, 194, 84 
260 DATA111, 5, 194, 84, 111, 58, 16, 56, 167, 202, 25, 111, 87, 237, 95, 95 
270 DATA197, 71, 16, 254, 193, 237, 95, 131, 130, 95, 122, 22, 60, 197, 79, 71 
280 DATA237, 95, 230, 2, 194, 151, 111, 62, 46, 18, 19, 16, 243, 193, 195, 25 
290 DATA111,999 : REM > CHECKSUM SHOULD BE 16396 



sensation that many hundreds of words 
were about to vanish forever. 

Right I was. Three years and two 
months my TRS-80 had been left on, with a 
few hours relaxation while being 
transported from place to place. Three 
years and two months it had lived without 
a buffered cable, without a cassette-load 
modification, without any improvement 
from the Tandy engineering lab. Now, ex- 



hausted with exertions even IBM couldn't 
meet, it was demanding a few electronic 
comforts. 

Reluctantly I searched for the buffered 
cable I had ordered from Radio Shack, but 
never installed. Since the Shack provided 
no instructions with the cable (they would 
install it, they said, but wouldn't tell me 
how), I had to rifle through my bag of elec- 
tronic tricks to figure it out. If you haven't 
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Photo 1. Sending 5 volts to expansion in- 
terface pin #37. 



Photo 2. Resistor packs soldered to data 
lines 0. 7. Five volts and ground are shown 
routed to the packs. 




Photo 3. There is little clearing between resistors on edge card and the expansion inter- 
face case. 

installed your buffered cable, here's how 
to do it. . . 

Adding a Buffered Cable 

• If you have a Level II machine, you 
will find that pins 37 and 39 of the edge- 
card connector (looking from the back, 
these are the top right-most two connec- 
tions) are attached to each other. These 
may be connected either after manufac- 
ture (soldered with a piece of heavy wire), 
or may be original circuit board plating. A 
trace from pin 37 is probably cut with a 
deep gash. You must open the case to see 
these connections clearly. 

If these two pins have not been con- 
nected, things are easier. Merely cut the 
trace leading from pin 37, which is the old 
5-volt connection used on earlier Level I 
TRS-80's. During upgrade to Level II, some 



repair centers forgot to cut this trace and 
bridge it to pin 39. If pins 37 and 39 are 
already connected, separate them from 
each other. 

• For the next step, open your Expan- 
sion Interface. Locate pins 37 and 39 on 
the expansion box edge connector. These 
will be on the bottom left of the unopened 
expansion box when viewed from the 
front, but just to be sure, the numbers 
have been silkscreened on the board. It is 
the side of the board on which the compo- 
nents are mounted. Cut loose connector 
37 from connector 39, making a good gap 
between pin 37 and any traces around it. 

Now find the large electrolytic capaci- 
tor near the edge connector. It is a tubular 
part about three-quarters of an inch long 
(usually encased in a blue or grey plastic 
sheath), and its polarity will be marked on 



one end. It may have a black arrow with a 
minus (-) sign pointing toward one end, 
simply a plus sign on one end, or both. 
Connect a wire from edge-card pin 37 to 
the positive (plus) end of this capacitor. 
The five volts feeding this capacitor will 
also supply power to the buffered cable. 

• Now for the hard part. For this job 
you will need sixteen 470-ohm resistors. 
Use 1/4-watt or 1/8-watt resistors, which 
are small enough to fit into place. Half- 
watt resistors are too big: Radio Shack 
231-1300 series resistors will be fine. Alter- 
natively, you can use single-inline (SIP) 
resistor packs sold by Digi-Key in 470-ohm 
values. 

Locate pins 18, 20, 22, 24, 26, 28, 30, and 
32 on the expansion box edge connector. 
This is the solder side of the circuit board 
(opposite the side on which the com- 
ponents are mounted). You will be solder- 
ing two resistors to each of these pins, but 
you will have to do some careful planning 
before attempting it. First of all, there is 
very little headroom for the resistors when 
the case is reassembled. Secondly, if you 
don't solder to the very back of the con- 
nector pads (farthest from the edge of the 
board), there won't be room for the cable 
from the keyboard unit to slide in place. 

To each of the eight edge-card pins 
above, solder one end of a 470-ohm re- 
sistor. Solder together all the loose ends 
of the eight 470-ohm resistors, and run a 
wire from that common point to the posi- 
tive end of the nearby capacitor (the same 
one used to supply the buffered cable 
power). Next solder the same eight edge- 
connector pads to one end of each of the 
remaining eight 470-ohm resistors. Solder 
together all these loose ends, and run a 
wire from there to the negative end of the 
same nearby capacitor (see Fig. 1). 

• The hardware work is complete. 
Power up the keyboard unit only, and 
verify that it works properly. Turn it off, 
and plug the "CPU" end of the buffered 
cable (not yet connected to the expansion 
interface) into the keyboard unit. Power up 
again and verify that everything is work- 
ing. 

Turn off the system again, and attach 
the buffered cable to the expansion box 
as well as the keyboard unit. Power up the 
keyboard unit, but not the expansion inter- 
face, and check that the system is okay. 
Finally, power up the expansion box, hold 
down the Break key, and press Reset. Test 
for your full system memory. 

If any of the above steps don't work cor- 
rectly, turn the computer off immediately 
and double-check your work. Since 
changes have been made which affect 
areas used by both the keyboard and ex- 
pansion box power supplies, don't take 
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any chances. 

Next month, in The Exclusive ORacle, 
I'll reveal how to install the "twisted pair" 
modification, Tandy's second attempt to 
make the expansion Interface work 
reliably. Don't forget that the buffered 
cable, the twisted pair, and the cassette 
modifications are still available for free at 
Radio Shack. They will do the installation 
for you if you wish, or (especially if your 
unit has been modified by someone other 
than the Shack), you can fill out a "Waiver 
of Warranty" form to obtain the parts. You 
are entitled to only one set per serial 
number. If your Radio Shack dealer denies 
that such forms exist, show him Fig. 2. 

Back to the Story 

My problems, however, were far from 
over. In my enthusiasm to terminate the 
data lines (that's what the resistors are 
used for), I had made some of my periph- 
erals sigh and throw up their electronic 
hands. 

Termination is the electronic equivalent 
of leaving no loose ends. Imagine a rope 
about two or three feet long. When you 
hold one end tightly and swing your arm 
up and down, you can get the rope to form 
a regular up-and-down pattern, like a 
wave. Now increase the length of the rope 
to ten feet, and try to do the same thing. It 
gets considerably harder, and sometimes 
you just can't keep the pattern going con- 
tinuously. Now increase the rope to 50 
feet. You would need extraordinary 
strength and agility to keep the rope's en- 
tire length responding to your swings. 

Now envision the opposite end of that 
same 50-foot rope tied to a wall. It takes 
little exertion to keep a regular pattern go- 
ing, as long as the rope is supple and you 
haven't lost your strength after the 
previous exercises. That's the way it is 
with the computer's data lines. The longer 
they are, the more energy it takes to keep 
the signals moving cleanly. Gremlins such 
as capacitance between traces, resis- 
tance, dirt, and electromagnetic induction 
all influence those signals. They can be 
laggard, get noisy, overshoot their voltage 
destination, or pick up bits and pieces of 
other signals. This is called "signal 
degradation." 

The termination resistors effectively tie 
the other end of the electronic rope, pull- 
ing the rope taut halfway between the 
positive voltage and ground from the 
power supply. (As I write this, my printer 
has just fried a resistor, filling the air with 
malodorousness. More to come. . .) 

I had pulled the rope too taut, and 
signals from the peripheral equipment 
were unable to overcome its rigidness. 
The peripherals in question— the Exatron 



EXPANSION 

INTERFACE 

EDGE CARD 

PIN NUMBERS 



18 +20 + 22 424 +26 +28 +30 +32 



+ 5V 



ALL RESISTORS 470 OHMS 
Fig. 1. Terminating the TRS-80 Data Lines 



♦ GROUND 



Radio /hack 



1801 S. Beach St.. Ft. Worth. Tx 76105 



WAIVER OF WARRANTY 



Issued by Radio Shack. National Parts Operations Manager. 



understand that the installatic 



if the 



in my TRS-80 Computer System by anyone other than authorize 

Radio Shack Repair Facilities completely voids my warranty 

The above mentioned will be installed in my 

at my own risk. 

Serial Number 



Catalog Number 



Store Manager's Signature 



Store Number 



After signing please return to National Parts, attn: Operations Ma.-.ager. 
The part will be sent ot you immediately upon our receipt of this form. 



Fig. 2. Radio Shack Waiver 



Stringy-Floppy and my own Memory Side- 
car—contain no buffering between their 
internal memories and the outside world. 
Their memories have drive capabilities on- 
ly about one-eighth that of the TRS-80's 
buffers, so I lightened the termination 
resistors to 470 ohms. I originally used 220 
ohms, a pretty stiff demand on the mem- 
ories in question, and also an undesirably 
heavy drain on the Expansion Interface's 
power supply. Quick math shows that two 
220-ohm resistors in series is 440 ohms. 
Eight 440-ohm resistors in parallel is 55 
ohms. At five volts, 55 ohms represents 
1/11 of an amp— too much demand to add 
to the power supply already driving 32K of 



memory, an RS-232 board, and a buffered 
cable! 

Using 470-ohm resistors lightened the 
demand to only 42 milliamps. The power 
supply was happy, and the peripheral de- 
vices relaxed. My system worked once 
again. 

But Not Completely 

Next morning it was time to sit down 
and prepare this column. I finished a few 
hundred more words, brought the cursor 
back to the start, switched on the printer, 
and started the printing process. No reac- 
tion from the printer. "Aha," thought I, 
"press the print-select button." I pressed 
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it again. My computer was locked up, wait- 
ing for a response from the printer. I had, 
of course, neglected to save the text be- 
fore printing it. 

With a handy screwdriver, I shorted two 
pins on the Expansion Interface printer 
port edge card, pin 21 to pin 20. If you have 
an LPRINT hangup, you can short those 
pins as well. This sent an impostor 
acknowledge signal back to the computer 
while I held down the Break key. Text re- 
covered, but printer dead. 

All you who believe in optical isolators, 
hearken: They too can self-destruct. In 
this case, the optical isolator in my Cen- 
tronics 102 printer (vintage 1975 or so) had 
broken down, allowing 110 volts to flow 
throughout the circuitry. Disassembling 
the printer strained an elbow (it weighs 
143 pounds), finding the fried parts 
strained my brain. After two days and only 
two integrated circuits (anybody ever use 
a 7406?), the printer was running again. 
Relief. 

I powered up the system, and rebooted 
my lone disk drive. Nothing. What? Every- 
thing was on. The disk select indicator 
was lit, at least as long as it was supposed 
to be. Even the stepper motor moved to 
track zero. But nothing else. No spinning 
disk. A quick call to 80 Microcomputing 
got my deadline extended. 

Now, this disk drive (a Tandon Mag- 
netics 40-track number) has long sounded 
like a freight train, but I paid it no mind. I 
dug first into the Expansion Interface, 
turned my meter to its 10-volt scale, and 
stuck my probes into it— the black one to 
a ground, the red one to the "Motor On" 
signal output going to the drive cable. 
Reset. The voltage dipped to zero, then up 
again when the drive select indicator went 
out. That revealed that the correct signal 
was going to the drive, since the sche- 
matic showed that the "Motor On" signal 
is active low (zero volts). 

I pulled the cable from the drive, and 
tested it at the far end. Sure enough, the 
signal was there too. With the cover off 
the disk drive and the cable reattached, I 
used the schematic to follow the motor 
signal through each integrated circuit in 
its path, and found the signal present 
throughout. All that remained was to ex- 
amine the motor itself and the power 
leading to it. 

I looked for evidence of damage. There 
it was. The motor's power circuit trace had 
burned clean off the board— and yet the 
fuse remained intact! I gently moved each 
motor by hand, discovering resistance in 
both the servo motor (which spins the 
disk) and the stepping motor (which seeks 
the track). Metal and plastic parts were 
rubbing against each other with absolute- 
ly no evidence of lubrication, not even 



light silicone film. Turning to the Tandon 
Magnetics service manual, I found this 
disturbing information: minimum parts 
order, $50. Drive repair, $95. Module re- 
pair, $80. Circuit board repair, $40. Re- 
alignment and test, $50 extra. A footnote 
stated "excludes damage." I winced. Tan- 
don had convinced me to do the work 
myself. 

The burned power supply trace was 
repaired first by bridging it with a heavy 
wire; I then tested for damaged parts. All 
seemed okay (diodes showed current 
flowing only in one direction, capacitors 
and transformer showed no shorts), and 
applying power and a computer re-boot in- 
dicated everything was normal— except 
for the freight-train sound. 

The service manual had nothing to say 
about lubrication, so I had to decide 
whether to lubricate any parts of the drive. 
The considerations, which might be yours 
if faced with a similar electromechanical 
dilemma, were: 

• Jargonists might say something 
like, "the adjacent parts were contact- 
ing constrictively and impacting neg- 
atively upon their respective opera- 
tions, with untoward sonic emana- 
tions." That is, they rubbed and 
squeaked. Few other disk drives are 
quite as loud. 

• There was no evidence of lubrication 
on any part of the drive. 

• No added lubrication could be al- 
lowed to come into contact with the re- 
cording head, pressure pad, or any 
other parts which touch disks. 

• Fine silicone lubricants are general- 
ly used for delicate electromechanical 
systems because such lubricants 
don't spread, bleed, run, or attract dust 
and grit. 

I decided to lubricate with a Teflon-based 
product called "Break-Free CLP." One 
drop on the upper and lower stepper guide 
rails, one on the guide band, one on the 
pressure-pad guide cam, and one on the 
disk bearing. After allowing it to pene- 
trate, I wiped the surfaces with a photo 
chamois and restored the power. All the 
noises were gone, and my disks load more 
quickly with none of the "re-seeking" I had 
been experiencing. Once more I felt re- 
lieved. The deadline might be met. 

Curses 

I was, naturally, optimistic. The next 
morning, disk operation acted like my '64 
Valiant on a January morning here in Ver- 
mont. 

No signals were emanating at all from 
the disk drive cable, and none could be 
found at the edge connector. Inexplicably, 
my Percom Data Separator had failed. 
That gem, which had increased my disk's 



reliability tenfold, had itself given up the 
task. As many of S0's readers have discov- 
ered, the Percom board is a true all-Ameri- 
can value at only $30, and during the three 
(happy) months spent in my expansion 
box, it paid for itself in recovered disk data 
and mental collapse ten times over. 

But now the Separator was not working. 
And if there are any black marks for Per- 
com, it is that no schematic or service in- 
formation is provided with the board. Not 
having the patience to draw a schematic 
from the circuit board itself, I sent it back. 
(A full report on Percom's service policies 
and quality in a later column.) 

The disk controller chip was still in 
good shape, so I reinserted it in its socket. 
Once again, the disk system was in opera- 
tion ... for fifteen minutes, until the weak- 
est link in the chain broke for the second 
time. 

The cable to the disk units is driven by a 
type of integrated circuit which is capable 
of producing output only under certain 
conditions. It depends on a "pull-up" re- 
sistor external to itself; otherwise, there is 
no apparent output. Because the final 
transistor inside the IC is left unconnect- 
ed, these are called "open collector" cir- 
cuits, and are used where long or noisy 
lines must be powered. The circuit's pull- 
up resistors are found in disk drive zero, 
and are usually 150-ohm resistors in a 
single dual-inline (SIP) integrated-circuit 
style package. 

These circuits are sometimes electron- 
ically fragile. In the keyboard unit, open- 
collector ICs are used for the keyboard 
connections, and in the expansion inter- 
face they are found driving the disk cable. 
I have seen more than a half-dozen key- 
board failures and three disk failures due 
to breakdown in these circuits. 

Evidence of breakdown or marginal op- 
eration is: continual re-seeking in the disk 
system; no motion by the stepping motor 
at re-boot; consistent writing errors; fre- 
quent formatting and/or copy failure; and 
banging of the disk drive assembly 
against either end of its path of travel. In 
the keyboard, the failure will show up as: 
incorrect or unexpected characters; re- 
peating characters (where there's no soft- 
ware to do it); or multiple characters when 
only two keys are pressed. The only thing 
to do is replace the integrated circuit. That 
I did, and the system was (finally) running 
normally. 

Oh yes. The frying resistor in my printer 
was the result of a paper clip falling into 
the circuit board. The damage was light 
but the smell was heavy. One more thing. 
The first of these disasters happened 
Monday; today is Thursday. And Fred's 
broken TRS-80 just arrived in the mail . . . ■ 
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PRESENTS ACTION GAMES BY JOHN ALLEN 
NEW! ___ 
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By John Allen 

John Allen works his machine language magic 
again! With the realistic action and sounds 
made famous by his bestselling "PINBALL" 
and "BASKETBALL" arcade games, TENPINS 
now brings all the thrills of championship 
bowling to yourTRS-80* model I or III. 

From one to four players participate, and the 
program automatically senses the skill of 
each player. Beginners can simply position 
the ball and "roll" it while more skilled players 
can vary the force, roll a curve, and cause it to 
spin as it heads for the pins. All this— plus 3-D 
graphics and sound effects— adds up to a 
realistic and thoroughly challenging bowling 
game. 

Scoring, pinsetting and ball return are all auto- 
matic, and you can view the entire scoresheet 
at any time. TENPINS even has factors to sim- 
ulate the imperfections found in bowling 
lanes, adding even more realism— and some- 
times frustration— to the game. It's almost as 
hard to roll a perfect 300 score in TENPINS as 
it is in real bowling, but it sure is fun trying! 
Available for only $14.95 for 16K tape version, 
$20.95 for 32K disk. 



By John Allen 

Get your flipper fingers ready for action in this 
real-time, machine language game. 

Lots of sound and flashing graphics make this 
fast action game so much like the real thing 
that you'll have to remind yourself not to 
shake yourTRS-80*. Choose from five playing 
speeds to match your skill— but be prepared 
for a lot of practice if you ever hope to master 
the fastest speed. 

Can you beat your friends' scores? Will you 
avoid the dreaded "Bermuda Square?" Get 
PINBALL today and find out. Available for 
model I and III, $14.95 on tape or $20.95 on 
disk. 




By John Allen 



Fast machine language action game, with 
sound, from the author of the acclaimed 
"PINBALL"! 

Try to keep up with the action and outscore 
your opponent in five minutes of one-on-one 
basketball. Steal the ball, duck around your 
opponent and slant toward the basket for a lay 
up! The graphics are based on a 3-dimensional 
depiction of a basketball court, and ball drib- 
bling sounds add to the realism. Compete 
against a friend or your computer. 

It's all there but the cheers— for model I and III 
on tape for only $14.95, disk version for $20.95. 



Available now from Acorn dealers everywhere 



AUTHORS & DEALERS WANTED 




Acorn 

Software Products, Inc. 

(202) 544-4259 



^34 



ALL ACORN 

ENTERTAINMENT SOFTWARE 

IS NOW AVAILABLE FOR 

TRS80* MODELS I & /// / 



634 North Carolina Avenue, S.E., Washington, DC 20003 



* TRS-80 is a trademark of Tandy Corp. 



'See List of Advertisers on page 322 
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. the companies involved are too busy 

designing, writing and selling games 

to worry about what portion of 

the total market they have. . . " 



Micro Games Sell Like Hot Cakes, 
Suppliers Scramble to Keep Up 



International Resource Development 
(IRD) Norwalk, CT, estimates the soft- 
ware games market at $80 to $90 million 
retail last year and it is growing rapidly 
The market's suppliers often cannot 
define its size in numbers, but describe it 
as "very attractive" or "unlimited." 

This market is undoubtedly one of the 
fastest growing segments in the micro- 
computer field. In fact, it is changing so 
fast the companies involved are too busy 
designing, writing and selling games to 



worry about what portion of the total 
market they have or how big it will be in 
five years. 

Apparently IRD is the only firm to have 
researched this market. They recently 
completed a study of the related elec- 
tronic hand-held games market, which 
they predict will eventually be largely 
replaced by software games as micro- 
computers become more common in the 
home. 

According to an estimate supplied by 



Big Five Wants to Change 
Your Micro into an Arcade 



Most companies which make arcade 
games do not consider them their 
top products. Bill Hogue, president of Big 
Five Software, Van Nuys, CA, takes a dif- 
ferent view. His firm produces only arcade 
games, and he says quality is just as im- 
portant in them as in adventure games. 

A good arcade game has a high scorer's 
table, can count scores far beyond what 
anyone can achieve in the game, has a 
flashy beginning that does unusual things 
and attracts attention, and offers arcade- 
type sound without freezing the game ac- 
tion. 

Basically, he said, he tries for the feel of 
a true arcade, a thing which is hard to de- 
fine but which he feels most microcom- 
puter arcade games do not have. 

Good action graphics are the primary 
consideration, he said. His own favorite 
game is Galaxy Invasion because of the 
graphics. 

"It's almost as much fun to watch 
somebody else play it as it is to play it 
yourself," he said. 

Hogue said his original games did not 
have sound because he didn't like the way 
sound routines froze the game graphics 



every time they went into action. However, 
he said, he has since developed new rou- 
tines which don't effect the graphics at 
all. 

He said he plans to go further in his 
next games, using voice synthesis so the 
game can actually talk back. He is investi- 
gating two alternative methods— a true 
voice synthesizer, which would allow a 
large vocabulary, or a more limited voice 
process using the computer's cassette 
port. 

"Even with the cassette port I could 
come up with some real witty phrases," he 
said. 

Interestingly, Hogue says he is not a 
good arcade game player himself, al- 
though he obviously likes them. He also 
enjoys adventure games, but he sees ad- 
vantages to the arcade game for the buy- 
er. 

"Once you've solved an adventure, 
that's it," he said. "But an arcade game al- 
ways offers the challenge of getting a bet- 
ter score." ■ 

Bert Latamore 

80 Microcomputing staff 



IRD President Kenneth G. Bosonworth, re- 
tail sales of microcomputer software last 
year totaled $700 million, of which micro- 
computer games contributed $80 to $90 
million. 

Put in those terms, games hardly look 
like a significant force in the software field. 
However, games reach a much wider audi- 
ence than any other kind of program. Pro- 
fessional people play games on their 
lunch hours, their children play education- 
al games at school. People with no use for 
an accounting program buy games, and 
people who would never think of using 
word processing also play games. 

Dianne Asher, marketing director for 
Automated Simulations, Cupertino, CA, 
which specializes in fantasy/adventure 
software games, estimates that 90 per- 
cent of the TRS-80s in service see a game 
at least once or twice a month. While no 
one knows how many '80s have been sold, 
Asher expects at least 100,000 will be in 
operation by the end of the year. 

She estimates the games program mar- 
ket may become as large as half the total 
software market. 

Bob Bosen, head of Bosen Electronics, 
Provo, UT, estimates there are 150,000 to 
200,000 TRS-80 owners now, and that at 
least 30 percent of these are buying a 
game every one to three months, no mat- 
ter what they use their computers for 
most of the time. 

Other producers have less of an idea of 
the size of the market they are supplying. 
But they do know that if they produce a de- 
cent game— one with some interest and 
no major programming flaws— they can 
sell it as fast as they can manufacture 
copies. 

The games market gives plenty of other 
indications that it is large and growing 
fast, perhaps too fast for any one to count 
it accurately. 

One of the more recent indications has 
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been the entry of some traditional game 
companies into the software market. 
Avalon Hill Game Co., Baltimore, MD, a 
firm known for its high quality, complex 
strategy games, started putting out soft- 
ware games about a year ago, supporting 
three machines including the TRS-80. 

Avalon Hill entered the software market 
believing that many of its existing cus- 



11 We believe 
the future is 
in computerization 



tomers own or will soon own microcom- 
puters and will want to buy games for 
them. So far they have depended mostly 
on their own magazine, The General, for 
their publicity, and have marketed their 
software through the same toy stores that 
handle their board games. Recently, how- 
ever, they have started to reach a new 
market, people who may never have 
played their board games but own com- 
puters. 

Jackson Dott, marketing coordinator 
for Avalon Hill's microcomputer games, 
said they are still a small producer in this 
field and their main effort remains in 
board-based games. However, they have 
been pleased with the market response to 
their games and this summer have 
brought out several new, more ambitious 
games. They are marketing fantasy role- 
playing software, sports games, business 
games and war games and are consider- 
ing combination games in which the com- 
puter takes care of the paperwork but the 
player still uses a mapboard and playing 
pieces. 

"We believe the future is in computeri- 
zation," Dott said. 

Other very large companies agree with 
him. Mattel and Atari have both recently 
upgraded their video game modules for 
microcomputers, thereby entering the 
market from the other end. 

The other large game companies are 
not yet talking about their plans or lack of 
them. However, Dana Lombardi, editor of 
Game Merchandising Magazine, Clifton, 
VA, said several established game com- 
panies are working on microcomputer 
games. The market is big enough to at- 
tract them, and they expect microcomput- 
ers to be the new home utility of the 
1980's. 

The market also demonstrates its 



strength in the kinds of companies it sup- 
ports. Not only are there firms which spe- 
cialize in software games, many are spe- 
cialists in one particular kind of game or 
support only one or two machines. Big 
Five, for instance, is a prosperous, small 
firm which produces only TRS-80 arcade 
games. 

Even companies which make other 
kinds of software find games to be an im- 
portant part of their total product line. Wil- 
liam Denman, president of Med Systems, 
Chaple Hill, NC, said, "We make most of 
our money on games. I consider that to be 
a really growing market." 

Med Systems makes all kinds of games, 
although perhaps their best known are 
Labyrinth and Deathmaze. Denman said 
they have seen a large expansion in the 
market in the last few months. All kinds of 
games are selling well, although high 
speed graphics adventure games sell 
best. Besides the TRS-80 their games sup- 
port the Apple and they are considering 
the Atari. 

Damon Crumb, assistant to the presi- 
dent at Instant Software, Peterborough, 



NH, said his firm is the largest manufac- 
turer of software for microcomputers in all 
areas including games, with one of the 
largest inventory lines available. 

He said the ideal microcomputer game 
would be a fantasy game for Tandy's Col- 
or Computer with high resolution graph- 
ics, interactive capabilities and an adven- 
ture format. That, he said, would be an 



"Dana Lombardi. . . 
said established game 
companies are working 

on microcomputer 
games." 

automatic hit for at least six months. 

"We're all working on it," he said, refer- 
ring to the various game companies. "It's 
a race to see who gets it out first." ■ 

Bert Latamore 

80 Microcomputing staff 



Designer Took Five Years 
To Create Complex Game 



Space Raiders may be the ultimate 
Star Trek-type game and, possibly, 
the most complex microcomputer game 
ever attempted. It combines elements of 
flight simulation, including celestial 
navigation, tactical level war gaming and 
arcade gaming in a single package. All of 
this is packed into a 16K program for the 
Model I. 

Producing a program of that complexity 
takes time, and Bob Bosen took it. Con- 
structing the game has been a five-year 
hobby, and while it did not make him be- 
come a programmer, Bosen said it did 
greatly influence the kind of programmer 
he became. 

"I've had microcomputers for quite a 
few years," he said. "The first game I ever 
played was a Star Trek game, but I wasn't 
very happy with it." 

Bosen was one of those kids— he was 
still in school then— who has the need to 
change things he doesn't like. He decided 
to improve on that Star Trek game. 

"I started studying celestial navigation 
and spherical trigonometry to learn what 
the stars should look like as you fly past 
them," he said. After a great deal of re- 
search he developed a basic algorithm to 
duplicate the effects of traveling through 
the stars on the computer screen, but he 



found Basic just didn't give him enough 
speed. 

He tried the effect in compiled Fortran, 
but it was still too slow. Finally he found a 
way to speed it up enough to be success- 
ful. 

The game includes a full floating-point 
math system and a full trigonometric navi- 
gation package that allows the player to 
navigate among the stars and change the 
starfield patterns as he moves. It also in- 
cludes an animation package and a com- 
bat simulation module which allows you 
to shoot down Klingon patrol ships. 

Bosen runs his own firm (Bosen Elec- 
tronics) in his spare time and works full 
time as vice president of research and 
development for Computers International, 
Provo, UT. 

So far Space Raiders is his only game, 
although he has ideas for others. It is also 
his favorite game. Writing it was a large 
challenge, but he said his real reason for 
doing it was more personal. 

"We all like to live out a fantasy we 
can't do in real life," he said. "There's a lit- 
tle bit of Dr. Frankenstein, a little bit of 
Neil Armstrong in all of us."B 



Bert Latamore 

80 Microcomputing staff 



80 Microcomputing, August 1981 • 61 



SftNEWS 



Micros Invading Sports Arena 



Sports is one of the few areas that has 
been slow taking advantage of the mi- 
crocomputer's capabilities. A major rea- 
son for this is that software for sports ap- 
plications has been unavailable until re- 
cently. 

At least two companies are now pion- 
eering sports-based software and hard- 
ware development. Sports Stats U.S., 
Cupertino, CA, is currently marketing its 
SS100 Basketball Scoring System; and 
the Trinity Group, Newtown Square, PA, 
offers Procap, a program to predict foot- 
ball scores. 

SS100 

The SS100 system uses the TRS-80 
Model III and consists of the necessary 
software and a specially-developed key- 
board. It uses the Line Printer IV and 
Scripsit. The program takes up 6,000 bytes 
and is written in assembly language. 

According to Jim McCabe, a Sports 
Stats spokesman, the system was devel- 
oped over a two and one-half-year period, 



and was done "more as a hobby" than a 
business venture. At this writing, Sports 
Stats has sold three systems, all in the 
NBA. The Milwaukee Bucks are the only 
team to have used the SS100 during the 
past season, though the Phoenix Suns 
and the Golden State Warriors have both 

". . . coaches now get 

the first-half statistics 

at the beginning 

of half time. . ." 

installed the system in their arenas. 

Bucks Publicity Director Bill King is 
very pleased with the SSIOO's perfor- 
mance. "The software is limitless. . .and 
I'm very happy with the hardware," he 
said. 

An early version of the system used a 
Model I, which King claims had problems 
with microwave interference. However, 



the added shielding of the Model III has 
solved that problem. 

McCabe noted the same problem with 
the Model I but said, "The Model III has 
been extremely reliable for us." 

King said the only maintenance done 
so far has been a realignment of the disk 
drive. 

The SS100 keeps score, tallies indivi- 
dual and team statistics and provides a 
compilation in an instant. The keyboard is 
set up so the user merely punches in the 
number of field goals, fouls, etc. as they 
occur. This eliminates the need for pencils 
and paper. King said the coaches now get 
the first-half statistics at the beginning of 
halftime rather than at the end. 

This statistic-keeping efficiency does 
not give the Bucks a strategic advantage 
over other teams, according to King. In 
fact, the Bucks provide visiting teams with 
their data. King said the system's value is 
as a coaching tool and not as a game- 
winner. 

The few things the system does not do 



Frank Corr— Making the Ultimate Maze 

I don't want anyone to solve in eight 
hours what took me three months to 



write," Deathmaze 5000 author Frank Corr 
admits. Computer game aficionados 
would have to agree he got his wish. 

Corr, an 18-year-old freshman at MIT, 
didn't start out writing adventure games. 
His first commercial game program, Rat's 
Revenge, was simply a maze in which the 
player had to find the cheese. This Basic 
program provided the graphics for Death- 
maze. 

When Rat's Revenge was finished, Corr 
got an offer from Mike Denman of Med 
Systems Software, Chapel Hill, NC, to 
market the program. Corr said he hadn't 
planned to sell the game— he just wanted 
to play it. But he told Denman, "Fine, you 
can market it, but I want to learn machine 
language first." 

Corr wrote an English research paper 
on machine language, and Denman sold 
Rat's Revenge. Then, last June, when Corr 
was looking for a job and couldn't find 
one, he got the idea to use the graphics 
from Rat's Revenge in an adventure game. 

This was a challenge to Corr because 
he "never played an adventure game until 
I was halfway through Deathmaze." 
Deathmaze was written in machine lan- 
guage. Corr said the most difficult parts 



were the maze drawing routines. 

It is the graphics that separate Corr's 
games from the competition. The maze 
graphics were an inspiration to Corr to 
make Deathmaze as difficult as it is. Yet 
Corr said he gets a lot of fan mail; appar- 
ently Deathmaze entusiasts appreciate the 
challenge of the maze. As one fan put it, 
"Words are boring." Corr plans to provide 
more clues (the main complaint he re- 
ceives) in upcoming games. 

Labyrinth obviously grew out of Death- 
maze, but Corr gave Denman much of the 
credit for writing the program. Corr is 
proud, though, of his contributions to Lab- 
yrinth, and, as one could have guessed, 
those contributions intensify the frustra- 
tion level of the game. Corr called his tele- 
portation squares "a cute little stunt," 
which transport the player to another part 
of the maze with no indication of it being 
done. He is also fond of the man in the 
black cloak. 

Asylum was Corr's latest project, 
though Denman also worked on it. "Every- 
thing is twice as good as Deathmaze," 
Corr said. 

He attributes much of the improvement 
to a routine he discovered in January that 
allows graphics to be stored as data. This 
game accepts simple sentences, provides 



hints and has 135 bytes more of maze, yet 
the program is 22 bytes shorter than 
Deathmaze, Corr said. 

Anyone looking for a tougher chal- 
lenge, though, will be disappointed. 
"Asylum is by far an easier game," Corr 
said. 

What else is in store? Corr said he plans 
at least one more adventure game for the 
TRS-80. The graphics will be vastly im- 
proved, with octagonal rooms, and use a 
space station or similar setting, Corr said. 

After that, Corr wants to write real-time 
arcade-style games based on the Atari 
micro, whose graphics capabilities Corr 
prefers. He intends to stay with Med Sys- 
tems, however. 

Corr offered some interesting observa- 
tions on the future of microcomputers. He 
sees technology improving greatly but ex- 
pects prices to remain the same (not go- 
ing down as some people predict). He also 
expects nearly every household to have at 
least one or two micros to perform a vari- 
ety of functions. But perhaps the most re- 
vealing remark of all was, "Most people 
will be home playing games and not 
watching TV, which is good!"B 

by Mike Nadeau 
80 Microcomputing staff 
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Rose 



You've Got 

TOTAL ACCESS 

( specializing In TRS80 *) 

TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've Cot 

• Disk Drives 

TA400 ( 40-T ) $289 

TA800(80-T) $419 

TA400 Flippy $319 

TA800 Flippy $439 

All with sliver case and 
power supply 

• CABLES 

2-Drlve $23.95 

4-Drlve $33.95 

Extender cable $14.95 

• BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy $289 

TA800B Flippy $409 

• MODEL III DRIVE KIT 

includes dd disk controller, two- 
drive power supply, mounting 
towers, all connectors, cables & 
hardware and Instructions. 
DO it yourself & save $395 

• OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS $129.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3, 3.3D $89.95 

• IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive Case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
$25 

90 day warranty on drives. Add $5.00 freight per 
drive In Cont. US. UPS COO charge $1.40. There Is 
also a 1 5 day free trial on ta drives, if not com- 
pletely satisfied I'll refund your money ( less ship- 
ping ). I'll take exception to Improper use or 
mishandling. 

• USERS CROUPS 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 * COMPUTERS 
•COMPUTERS 

26-1061 Mod III, LI, 4K $595 

26-1062 Mod III, Lll, 16K $850 

26-1063 Mod III, 32K/2 DISk/RS232 

$2150 

26-4002 MOd II, 64K $3300 

26-3001 Color Computer, 4K. . . $330 
26-3002 color Computer, 16K. . $510 
26-3501 Pocket computer $212 

• DISK EXPANSION, MOD II 

26-4160 one Disk $977 

26-4162 Three Disk $1998 

LOBO drive units also available. 



• PERIPHERALS 

26-1140 0K Exp. interface $255 

26-1141 16K Exp. interface $305 

26-1142 32K Exp. interface $355 

26-1 1 72 D.C Modem II $135 

26-1206 CTR-80 Recorder $51 

26-3503 P.C interface $42 

• PRINTERS 

26-1165 Line Printer V $1581 

26-1166 Line Printer VI $986 

26-1158 Daisy Wheel ll $1694* 

• limited availability 



The complete line of Radio Shack 
products is available through ta 
with standard RS limited warran- 
ty, call me for price and delivery. 
Just cause you don't see It, don't 
mean we ain't got It. 

ROSE 



• SOFTWARE 

WE have Adventure, Big 5, Med 
Systems, SBSC, Snapp, Radio Shack 
and much more. Call or write. Do itl 



ROSES 
SPECIAL 
OF THE 
MONTH 

• PRINTERS • 

EPSON MX70. .. $369.00 

EPSON MX80. .. $475.00 

STARWRITER 45CPS 
DAISYWHEEL.. $1795.00 

Parallel Cable for TRS80 
for any of the 

above $29.95 

you can't live 

without a bunch 

of these! 



ROSe'S T-SHIRTS 

with any order of $1,000.00 or 
more, ill send you one of my 

"MINI-FLOPPY" T-Shirts! 

REAL TIME 

CLOCK 

CALENDER 

T-Timer© .... $89.95 

Clock continues to run no matter 
what mode you are In or when 
system Is down with battery back- 
up*. Not affected by disk I/O. Plugs 
Into screen printer port-has 
extender. 

Sec, mln, hr; day of week; 
Date, mo, yr. 
Mod. I only. 

ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll free at 
l-800-527-S582(Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. You can pay 
by visa or mastercard, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship COD's 
cash, certified check or money 
order only). Rose will take American 
money In Just about any form. Add 
freight (UPS where possible) on all 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the money! 



TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214-234-1770 

• TRS80 & Radio Shack are trademarks of 
Tandy Corp. 

Copyright 1981 TOTAL ACCESS ^6 

TOACC / 23 



**See Lis I ol Advertisers on page 322 
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If you're looking for y^ 



jT*5j 



NEWS 



in the U.S.A. on 




MICROCOMPUTERS 

We have consistently offered the 
TRS-80 line at savings up to 20%. You 
can save up to S1500 by buying 
from Computer Discount of America. 



ATARI 

MICROCOMPUTERS 




We have the full line of ATARI per- 
sonal computers and systems. 
Model II 

26-4002 64K, 1 disc $3385.00 

Model III 

26-1061 4K. Level I S 610.00 

26-1062 16K. Level III $ 845.00 

26-1066 48K. Level II 2-dnve/RS-232 S21 15.00 

Color Computer 

26-3001 4K S 329.00 

26-3002 16K w/Ext Basic S 499.00 

EPSON 

MX70 Printer S 375.00 

MX80 Printer S 485.00 

MX80FT Printer S 639.00 

Our savings are as big on expansion 
interfaces, printers, diskettes, Apple 
Computers, OKIDATA Microline. 
C-IT0H Starwriter, Lexicon Modems 
— everything for your computer. 
We have the largest inventory in the 
Northeast, and most models are in 
stock, for immediate delivery. 
Our full price catalog or a price 
quote is as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Computer 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480 
In New Jersey Call 201-728-8080 



(home versus road and bench versus start- 
ers statistics) are due to a lack of soft- 
ware, which King hopes to have soon. 
When the system is not being used for sta- 
tistics, King uses it for writing press re- 
leases, or compiling the season ticket- 
holder mailing list. 

McCabe believes that by next season 
about half the NBA teams will have the 
SS100. Considering the time saved, the 
$6,000 to $7,000 price tag for the SS100 
seems like a bargain to any NBA team. 

Sports Stats has several other projects 
in the works. Football and baseball statis- 
tics-keeping systems are in the develop- 
ment stage, according to McCabe. The 

"(The demand has) 
been fantastic. . . We 

hope to have 150 to 
200 systems installed 

within three years." 

San Francisco Giants and the San Fran- 
cisco 49ers are cooperating with Sports 
Stats on these projects. 

McCabe said they also hope to have a 
system for use in colleges soon that 
would come with several keyboards and 
different software for a variety of sports. 
With a change of a disk and a plug-in key- 
board, this TRS-80 based system could 
change from a baseball scoring system to 
one for track. 

McCabe is impressed with the demand 
for sports-based systems. "It's been fan- 
tastic," he said. "We hope to have 150 to 
200 systems installed within three years." 

Procap 

The Trinity Group calls its Procap pro- 
gram "a unique marriage of statistics and 
probability theory with the ever-increasing 
power and capabilities of personal com- 
puters." 

The TRS-80-based program computes a 
football team's offensive rating by com- 
paring its score with the relative defensive 
strengths of opponents played to date. It 
computes a team's defensive rating by 
comparing the team's score-limiting per- 
formance against the relative offensive 
strengths of opponents played to date. 

A team's overall power rating is calcu- 
lated by subtracting the defensive rating 
from the offensive rating. Average teams 
will have a power rating close to zero— the 
higher the rating, the stronger the team. 
Matching teams on any given week in- 
volves four separate computation meth- 
ods. These computations give two pos- 



sible point totals for each team which are 
arranged as best and worst case scores 
for the favorite. An average case is listed 
as the probable score. 

Terry Wright, a Trinity Group spokes- 
man, claims an 85 percent success rate 
for the program. He said the program's 
author, Joe Mascio, won $2,500 in bets us- 
ing Procap last year. Wright did offer one 
disclaimer, though. "No matter how good 
the (statistics/probability) program is, it 
can't predict upsets." 

Though the program can obviously be 
used for gambling purposes, that was not 
the main intent of the developers. Wright 
said, "We want people to have some fun 
making predictions." 

Wright believes the reason the software 
companies are just now bringing out 
sports-based programs is the trend 
towards a merging of the microcomputer 
as a personal and professional tool. "The 
hobbyist probably viewed the computer 
as a pastime. When the use of the product 
broadened, interests overlapped," he 
said. 

With the overlapping of interests and 
users looking for more varied applications 
of the micro, sports programs began to 
emerge, Wright said. One can imagine a 
football fan/computer hobbyist watching 
a Sunday game. His eyes wander from the 
action to his TRS-80. Suddenly, it dawns 
on him that there may be more to the '80 
than adventure games and home-budget- 
ing. He ignores the rest of the game to 
work on a football statistics program. This 
probably isn't how Procap was written, 
but it reflects the image Wright suggests. 

The Trinity Group has faith in the 
growth of the sports fan market for soft- 
ware. Wright estimates that 3.5 million 
homes will have microcomputers by 1984. 
He said his company hopes to get two to 
three percent of the market share this year 
with Procap— roughly 5,000 to 10,000 
users. 

"We want to capitalize on the fantastic 
growth of the personal computer market," 
he said. 

Wright wouldn't comment on plans for 
other sports software from the Trinity 
Group except to say they are in the early 
stages of a golf program. He said other 
projects were "too preliminary" to dis- 
cuss. 

Track-Scoring Program 

Another interesting sports program is 
not for sale; in fact, it has been used only 
once, but with great success. Calvin Perry, 
head track coach at Grambling University, 
Grambling, LA, borrowed a TRS-80 from 
the school's computer center, had a friend 
write the program he needed and scored 
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6 ways to give 
your TRS-80* a 



+ PLUS 



Exhaustive research and professional standards 
bring you the best in business software. 



EASYTRAK m 

KEEP YOUR SALES CURVING UP- 
WARD WITH EASYTRAK ,n \ a powerful, 
all-purpose activity tracking system. User- 
specified options enable you to monitor 
sales activity by territory, product line, 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shift, by 
product, by day, by team, 
etc.), spending or in- 
come activity are simple 
to set up with EASY- 
TRAK ,m . Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages, and percentage data all at the 
touch of a button. Gse of an 80-column 
printer is optional. 




MODEL I/III 
MODEL II 



$100 
*140 



+ GENERAL LEDGER 

SLICE OUT MORE PROFIT by using 
+ General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options, 
monthly and quarterly trial balances, man- 
ual and/or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 

nUmb6rS MODEL I/III *250 

MODEL II $300 





ACCOUNTS RECEIVABLE 

PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with +Account 
Receivables many col- 
lection/credit features, 
including average pay- 
ment days, aging 
schedule and statements. 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A/R adjustments feature exten- 
sive on-line validation. And, yes. +- Accounts 
Receivable handles the pesky new 9-digit 
zip code. Other optional features include 
service charges to selective customers; 
partial and "on-account" payments. Posts, 
at your option, to + General Ledger. 

MODEL I/III $250 
MODEL II $300 



+ FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc. Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments, buildings, 
groups or other categories. Handles seven 
depreciation methods. Can post to + Gen- 
eral Ledger for you. 

MODEL I/III $250 
MODEL II $300 




+ ACCOUNTS PAYABLE 

FUNNEL THAT STACK OF BILLS into 
+Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts, check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments. 
Pay by selected vendor, in- 
voice, due date, discount 
dates, and optionally post di- 
rectly to your +General 
Ledger. Supports 5-digit 
vendor numbers. 



MODEL I/III $250 
MODEL II $300 




$ 
$ 



+ PAYROLL 

KEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt, accurate and profes- 
sional payroll records. Will handle weekly, 
biweekly, semimonthly, monthly payrolls, 
produce checks, check 
registers, labor reports, 
earnings reports, Form 
94 Is, W2s, etc. Can 
handle fixed/voluntary 
deductions, hourly/ 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
+ General Ledger posting. 




MODEL I/III 
MODEL II 



$250 
$300 



SPECIAL! All of the above: MODEL I/III $1250 MODEL II $1500 

+PLUS SOFTWARE comes to you feature-packed from on-line validation to 
machine-language file handling. Extensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 



+ PLUS 



To order, call TOLL-FREE 24 hours 
1-800-528-6050 EXT. 1562 

(In Arizona, 1-800-352-0458 Ext. 1562) 



PLUS COMPUTER TECHNOLOGY. INC "131 

POST OFFICE BOX 115 2 

ANGLETON TEXAS 77515 (713)849 1108 



Dealer inquiries invited 

"TRS-80 is a registered trademark of Tandy Corp. 
"EASVTRAK is a trademark of Plus Computer Tech. Inc. 



■ See List of Advertisers on page 322 
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SO NEWS 



the South Western Athletic Conference In- 
door Track Meet in record time. 

The program, though it doesn't actually 
tabulate scores, "saves an enormous 
amount of time— about 10 minutes for 
each event," Perry said. 

At the end of each race, an operator just 
keys in the individual times. Each athlete 
(there were 260 at the meet) is a number to 
the computer, and the '80 tracks each one 



throughout the meet according to heats 
and place. 

When a coach wants to know the status 
of a particular athlete, that athlete's num- 
ber is keyed in and his activities to date 
are listed, Perry said. 

This system "knocked out three or four 
people copying information," Perry said. 

Each coach got a printout of the race re- 
sults immediately after its conclusion, 



and the day's final results were given to 
the coaches and the media soon after the 
end of the meet. That kind of speed is al- 
most unheard of in a meet that large. 

The program's author, Donald Lee of 
Tulsa, OK, could not be reached for com- 
ment, but Perry had much praise for his 
work. "The guy is really a wiz," he said.B 

by Michael Nadeau 
80 Microcomputing staff 



Small Ohio Paper Goes Electronic 



A small afternoon newspaper in Ohio 
may become the world's first pub- 
lisher of a local electronic newspaper this 
fall. 

The Tiffin, OH, Advertising-Tribune is 
going ahead with plans to put out an elec- 
tronic news service for its subscribers us- 
ing a TRS-80 Model II and Tandy's Com- 
munications Multiplexer as the host. 

The paper's publisher, Kaj Spencer, 
said the electronic service will supple- 
ment the 11,500 circulation evening daily, 
giving people news that needs to be up- 
dated more often than once a day or 
things that the small paper doesn't al- 
ways have room to publish, such as stock 
market reports. 

"We believe some form of electronic 
newspaper will emerge as an important 
medium in the near future," he said. "We 
want to be involved and have a hand in de- 
veloping the future landscape." 

Spencer said the concept is so new no 
one really knows yet what they will put on 
it. He said they had not received the equip- 
ment from Radio Shack at the time of this 
writing and they would have to play with it 
some before they decided just what form 
the electronic paper would take. 

Spencer said, however, that he envis- 
ioned it as a specialized service designed 
for the needs of some segments of the Ad- 
vertiser-Tribune's readership. It would 
carry news updates, sports scores and 
similar items. The service is designed to 
supplement the printed paper. He does 
not see it as replacing the newspaper. 

The service would be interactive, and 
Spencer said they plan to publish a daily 
menu in the printed paper. 

The Advertising-Tribune is a member of 
the Buckner News Alliance, a group of six 
small papers. While Spencer feels the 
electronic news experiment involves only 
his paper and he could not speak for the 
rest of the group, he did not rule out the 
possibility that other papers in the group 
would put out electronic editions if the 



Ohio experiment proves successful. 

Spencer said they had not decided on 
charges for the new service, but he thinks 
they will offer unlimited access for a 
monthly fee. They may have a second tier 
of more expensive information based on 
what it will cost them to buy that informa- 
tion. 

Organizing a project of this sort is com- 
plex, and they expect to spend about three 
months arranging things, working out 
technical problems and refining the pro- 
cess before "going to press." However, 
Spencer said, he hopes to have the service 
out in the fall. 

Spencer said they picked the Radio 
Shack machines for practical reasons. He 
had been watching developments in elec- 



tronic data base services for some time, 
but most videotex systems are either too 
large or too expensive for the Advertiser- 
Tribune's limited resources and needs. 
The Tandy equipment, including the multi- 
plexer originally developed for the experi- 
mental "Project Green Thumb", seems to 
him to offer a more practical alternative 
for a small newspaper. 

The electronic paper would be sent out 
over telephone lines to users with micro- 
computers or Radio Shack Videotex termi- 
nals. Radio Shack sells software allowing 
all its microcomputers to access the sys- 
tem and a program to allow "dumb termi- 
nals" to access it.B 

by Bert Lata more 
80 Microcomputing staff 



Model lis Talking to IBMs 
Thanks to New Programs 



Tandy/Radio Shack, Fort Worth, TX, is 
trying to beat IBM to the punch by 
making the TRS-80 Model II compatible 
with IBM equipment before the industry 
giant brings out its own micros. 

This move has been backed with the an- 
nouncement of the development of two 
special software packages, the Reformat- 
ter, which allows transfer of files between 
the Model II and IBM-format disks; and the 
Bisynchronous Communications pack- 
age, which allows the Model II to act as an 
IBM-compatible terminal for both on-line 
and batch processing. 

These moves come in the face of persis- 
tant rumors that IBM will soon be produc- 
ing its own microcomputers. IBM refuses 
to comment publically on these rumors, 
which assert that the computer giant has 
one or, possibly, two micros in production 
in a plant in its General Systems Divi- 
sion's Boca Raton, FL, plant. It has an- 
nounced, however, that it is producing 



five-inch floppy disks which would not be 
used in its mainframe machines. This an- 
nouncement only adds fire to these spec- 
ulations. 

Speaking of new Radio Shack pro- 
grams, Tandy President John Roach said, 
"These new software packages give sig- 
nificant new utility to the TRS-80 Model II 
computer by entering it into the IBM 
world. The Model II has rapidly become 
the leading unit-sales 'very-small-busi- 
ness computer', and each new capability 
gives it an even broader base." 

The Reformatter allows the Model II to 
read from, write to and work with IBM- 
compatible memory disks. According to a 
Tandy spokesman, programs and data 
can now be prepared on the Model II for 
use on IBM equipment, and most pro- 
grams and data can now be prepared on 
IBM equipment for use on the Model II 
and most programs and data prepared for 
IBM computers can be used by the Model 
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STEPWISE 

MULTIPLE LINEAR REGRESSION 

Fast Compiled Machine Language 
Comprehensive Data Base Manager 

• Transformations 

* Lags 

Designate Any Variable As Dependent 

At Run Time 
Descriptive Statistics 
Correlation Matrix 
ANOVA Table 

Partial Correlation Coefficients Each Step 
Future Releases Are Upward Compatible 
And Include: Factor Analysis, Time Series, 
Linear Programming 

For 2 Disk, 48K TRS-80"y, With Line Printer 
Write For Information On Other System 

Configurations 
Price $139.00— Documentation Only $20.00 
Visa And Master Charge Accepted 



Barstrann Corporation - Dept. A 
P.O. Box 265 Mid City Station 
Dayton, Ohio 45402 



• 201 




MORSE CODE, BAUDOT and ASCII RTTY 
FORTHETRS-80 MODELS I and III 

DISASSEMBLED HANDBOOK - VOLUME 4 

no RS-232C interlace is required 

Chapt 1 : 8 to 800 WPM Morse transmit pgm. 

Chapt. 2 Adding type ahead capabilities 

Chapt 3: Morse receive decoding program 

Chapt 4 Merging + 12 prepared messages 

Chapt 5: Baudot transmit 60-66-75-100 WPM 

Chapt 6: Baudot receive for above speeds 

Chapt 7: Merging + 22 prepared messages 

Chapt 8: ASCII transmit program 110 Baud 

Chapt 9: ASCII receive decoding program 

Chapt 10: Merging + 22 prepared messages 

S18 | US] per copy add S2 shipping 
($4.50 overseas airmail) 

-GERMAN & FRENCH LANGUAGE EDITIONS- 

Morse. Baudot & ASCII on disks $49 
| Vol. 4 required for instructions] 

RICHCRAFT ENGINEERING LTD. 
#1B Wahmeda Industrial Park 
Chautauqua, New York 14722 ^276 

COD orders | US only] |716] 753-2654 



— Protassional — 

Real Estate Software 

For Apple or TRS-80 

Property Management System 

(32K. 1 Disk Systems) 



• YTD 4 Monlhly Income • Vendor E»[ 

• Mjndles - • Income I»i Report 



Returned Checks • Comp 

HOvince Payments • Easy _... 

• Prints Receipts • 200 Units per File 

Price $225.00 
Real Estate Analysis Modules: 

(Cassette or Disk) 

ll Home Purchase Analysis 
2) tai Deterred Eichanrje 
3| Construction Cost/Piotit 
4| income Property Castillo* 
5| APR Loan Analysis 
6) Property Sales Analysis 
71 loan Amotlnation 

$35 Per Module 



oftware 




#16 SOFTWARE 



ULTIMATE SOFTWARE PLAN 
tS (New items or new prices) 



We'll match any advertised price Combine our price protection 

on any item that we carry. And if with the availability of full profes- 

you find a lower price on what you sional support and our automatic 

bought within 30 days of buying update service and you have the 

it, just show us the ad and we'll Ultimate Software Plan, 
refund the difference. It's a convenient, uncomplicated. 

It's that simple. logical way to get your software. 

£~.?'/<r / CP/M users specify disk systems and formats Most formats available 

«iflfe MICROSOFT PASCAL 

O-S/^O Basic-80 $289/530 Pascal/MT+ 5429/530 

n r,r-r,r.,., ,mtc. i m-»«m>b Basic Compiler $329/530 Pascal/Z $349/$30 

ARTIFICIAL INTELLIGENCE Fortran-80 5349/530 ^ Pascal/UCSD 5399/550 

Medical(PAS-3) "49/540 Cobol-80 S574/S30 Pascal/M 5149/520 

Dental (PAS-3, 5849/540 M . Sor , $124/ „o WORD PROCESSING 

ASYST DESIGN Macro-80 5144/520 ^vyordSearch 5179/550 

Prof Time Billing 5549/540 Edit-80 S84/S20 SpellGuard 5229/525 

General Subroutine $269/$30 MuSimp/MuMath $224/525 VTS/80 5259/565 

Application Utilities 5439/530 MuLisp-80 5174/520 Magic Wand 5289/545 

COMPLETE BUS. SYSTEMS ORGANIC SOFTWARE Spell Binder 5349/545 

Creator 5269/525 TextWnter III 5111/520 OTHER GOODIES" 

Reporter 5169/520 DateBook II 5269/525 The Last One 5549/595 

Both 5399/545 Milestone 5269/525 SuperCalc 5269/550 

COMPUTER CONTROL OSBORNE 5S9.fl. !]??/f?2 

Fabs(B-tree) 5159/520 General Ledger 5 59/520 BSTAM 5149/515 

UltraSortll 5159/525 Acct Rec/Acct Pay 5 59/520 Tiny C 5,22'itR 

..„..,„_„„..„,„«. Payroll w/Cost 5 59/520 Tiny C Compiler 5229/550 

COMPUTER PATHWAYS A |, 3 5129/560 CBASIC-2 5 98/520 

Pearldevel 1) 5 99/525 All 3 + CBASIC-2 $199/575 Nevada Cobol 5129/525 

Pearl (level 2) 5299/540 OCA - UTDCC . MicroStat 5224/520 

• Pearl (level 31 5549/550 PEACHTHEE „ OQ ,.. n Vedit 5105/515 

General Ledger 5399 540 ™JT ,n< Q/ ,c n 

DIGITAL RESEARCH Acct Receivable 5399/540 "0-1 'gSffiS 

CP/M 2 2 Acct Payable 5399/540 M ' n f ,M ° del |i 2 JS 

NorthStar 5149 '525 Payroll 5399/540 SSJ™£v liil/lia 

TRS-80 Model II I P + T)S 159/535 inventory $399/540 Mic '° .Soi/iSS 

Micropolis 5169/525 Surveyor $399/$40 ??'!,, m s R4/SP0 

Cromemco $189/525 Property Mgt $799/540 Stnng/»30 $84 $20 

PL/1-80 $459/$35 CPA Client Write-up $799/540 Stnng/80 (source] 5279. Sna 

BT-80 5179/525 Mailing Address 5349/540 

Sid' 5 65/515 SOFTWARE WORKS 

.SeLj • 90/515 Adapt (CDOS to CP/M) 5 69/Sna INFO UNLIMITED 

^Tex 5 96/5 ] 5 Rat.or 5 86/5na EasyWnter 5224 

DeSpool 5 50/510 SOHO GROUP Othlr less 15 1 

DMA MatchMaker 5 97/520 °.^ ' „„ ° 

Ascom 5149/515 Worksheet 5177/520 MICROSOFT 

DMA-DOS 5179/535 STRUCTURED SYSTEMS foS 5179 

CBS 5369/545 GL or AR or APor Pay 5599/540 Cobo , $499 

Formula 5539/545 Inventory Control 5599/540 

GRAHAM-DORIAN Magic Worksheet « 19/54° JggJ" 5269 

General Ledger 5729/540 Analyst 5 99/525 ™ ™ s ' «|| 

are nss& assr rase £sgr«* » 

ttSSffJ KS3S B5JSK 1 549/520 S NALSOFTWAR $ E 99 

sssr." asss gsRsr wis ™ M9f vi 

inventory "^'540 For ,h ,8080or Z80i 5149/525 S^too/Ran II 5159 

Cash Register 5493 '540 ForIran 5219-530 w",'T 529 

Apartment Mg. "93/*40 Fortran w-Ratfor 5289/535 V ' s term 5 29 

Bsssr 8 ssss o,her iess,o% ffis ::s 

Dental 5729/540 TCS Visitrend/Visiplot S229 

GLorARor APor Pay 5 79/525 Zork 5 34 

MI £Tc°/ AP 5269 525 A " 4 5269 599 REACHTREE" 

leTecorlV 5469/535 UNICORN General Ledge. ""'J* . 

oe eo Mince 5 99/525 Acct Receivable 5224-540 

MICRO DATA BASE SYSTEMS Scribble 5 99/525 Acct Payable 5224/540 

HDBS 5269535 | oth $189/550 Payroll 5224/540 

MDBS 5795/540 Amethyst 5299/575 Inventory 5224/540 

DRSor QRSor RTL 5269/535 nTHFR ROODIFS 

MDBSPKG 51295'$60 WHITESMITHS ^ dBASE I. 5329-550 

MICROPRO p C asc C a°:n P e 'c I SS83S VU «3 (use w/Visicalci 5 49 

WordStar 5319-560 Super-Text II 5127 

Customization Notes 5 89/Sna DATABASE Data Factory 5129 

Mail-Merge 5109525 FMS-80 5649,545 DB Master 5184 

WordStar Mail-Merge 5419585 dBASE II 5629/550 OEM (complete 

DataStar 5249/560 Condor 5599/530 acctingi 5399 
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II. This, he said, essentially makes the 
Model II the equivalent of an IBM work sta- 
tion at a much lower cost, while, of 
course, still handling all normal Model II 
functions. 

Reformatter automatically reorganizes 
data from the TRSDOS format to IBM 3741 
single-density format along with translat- 
ing character code from ASCII to EBCDIC. 
Disks are automatically initialized to the 
IBM format with all necessary fields, elim- 
inating the need for specially pre-format- 
ted disks. 

Nine specific functions are provided to 
create compatibility between the Radio 
Shack and IBM disks: 

• Initialize structures a disk in IBM 
3740 format. 

• Transfer permits direct data trans- 
fers between TRSDOS and IBM formats or 
between TRSDOS and an active data set. 

• Display presents the contents of ex- 
isting records of an active IBM data set. 

• Directory displays the directory con- 
tents of either an IBM or TRSDOS disk. 

• Edit modifies the contents of existing 
records in the IBM format or an active 
data set. 

• Dump displays the contents of spe- 
cific sectors of an IBM disk. 

• Identify displays and alters the 
volume of an IBM disk. 

• Redefine modifies parameters of an 
existing data set on an IBM disk. 

• Delete renames an active data set 
and resets it to inactive status. 

Reformatter requires a Model II with 
64K memory and two or more disk drives. 
It includes a non-exclusive paid-up license 
for use on multiple CPUs, to allow the pur- 
chaser to copy the program as required 
for his or her own personal or business 
use. 

The two Bisynchronous Communica- 
tions packages, expected to be available 
in the third quarter of 1981, allow binary 
synchronous communications in full com- 
pliance with IBM standards. They include 
both the software necessary to implement 
communications protocols, code conver- 
sions and a hardware conversion to modi- 
fy the Model II A serial port to meet IBM 
standards. 

The on-line standard Binary Synchro- 
nous Communications packages, expect- 
ed to be available in the third quarter of 
1981, allow binary synchronous communi- 
cations in full compliance with IBM stan- 
dards. They include both the software 
necessary to implement communications 
protocols, code conversions and a hard- 
ware conversion to modify the Model II A 
serial port to meet IBM standards. 

The on-line standard Binary Synchro- 
nous Communications 3270 program al- 



lows the Model II to communicate with 
IBM Systems 360/370 and 30-series cen- 
tral processing units or any other ma- 
chines equipped with remote BSC-3270 
communications capabilities. 

With it, the Model II can act as a 3270 
display station, giving screen formatting, 
polling responses, data-link control, time- 
out control and cyclic redundancy check. 
It makes the Model II fully interactive with 
IBM remote programs including TSO, 
CICS, VM/CMS, IMS, etc., a Tandy spokes- 
man said. 

The batch standard Binary Synchro- 
nous Communications 3780 program al- 
lows the Model II to work as an IBM-com- 
patible Remote Job Entry (RJE) terminal. It 
allows users to select from IBM 2770, 
2780, 3780 or 3741 terminal protocols for 
communications with IBM 360/370 or 
30-series host systems, with DEC PDP-11 
and VAX-11 host systems or with other 
machines equipped for binary synchro- 
nous communications. 



Both packages require a Model II with 
64K memory. Both are sold with non-ex- 
clusive paid-up licenses to allow the pur- 
chaser to reproduce as many copies as 
he/she needs for personal or business 
use. 

Synchronous communications through 
the computer's A serial port operate at a 
nominal 9600 baud data rate, or at data 
rates up to 19,200, depending on the 
length and type of communications con- 
nection used. The programs operate on 
either half- or full-duplex communications 
facilities. 

"It is our goal," Roach said, "to con- 
tinue to make computers and communica- 
tions more affordable for users. With our 
full services— leasing, maintenance and 
training— coupled with these new soft- 
ware packages, big computer users can 
now take advantage of the savings of- 
fered by microcomputers." ■ 

by Bert Lata more 
80 Microcomputer staff 



Program Tabulates Polls, 
Adds Up Senate Victory 



A psychologist— computer hobbyist 
has designed a poll tabulation pro- 
gram sparking an incorporated software 
business. Mark Stolzberg, whose program 
contributed to the US Senate victory of a 
little-known county supervisor, will soon 
market his software for broad use in mar- 
keting, research and the media. 

A clinical psychologist and statistician, 
he designed his program with help from 
Dr. Hubert Howe, a professional program- 
mer and music professor. It can handle up 
to 30 questions and tabulates data such 
as income, sex, religion and age. 

"I think it will help at a grass roots 
level," Stolzberg said of the poll's political 
significance. A poll done by Stolzberg for 
Alfonse Damato convinced Damato he 
could successfully run for Senate. Before 
the sample, "he would sometimes call a 
news conference and nobody would show 
up," Stolzberg says. The poll helped 
Damato define his constituency. 

Stolzberg used volunteers for the poll- 
taking, plus several consultants. Stolz- 
berg Research Inc., formerly M, M, & S 
Software, is run out of his home in Stony- 
brook, NY, where he is often assisted by 
Howe, who operates Howe Software. 

Designed it Himself 

Stolzberg designed the poll himself, 
and Howe did the programming. Stolzberg 
thinks it could be modified for a number of 



uses, such as consumer/market research, 
education and advertising. 

For instance, the software could easily 
compile test scores, and Stolzberg may 
use it for an evaluation of a math program 
in the Boston schools. It would assess dif- 

"Before the sample 

'he would sometimes 

call a news conference 

and nobody would 

show up. . .' " 

fering student skills according to items 
answered— an "items analysis." 

There's a possibility the software could 
tabulate data from psychology experi- 
ments, but only in the preliminary stages. 
The program is not sophisticated enough 
to handle the multi-variant analysis of 
most experiments, Stolzberg says. 

He and Dr. Alan Cullen are now using 
the program to tabulate a review of new 
eye charts by the New York State Opto- 
metric Association. He put the associa- 
tion's ten criteria in place of the demo- 
graphic variables, with each chart rated 
pass/fail. 

Stolzberg is no stranger to statistical 
analysis. When he found Radio Shack's 
statistical package (RS 4000) inadequate, 
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he designed his own, which Creative Com- 
puting promptly bought for distribution. It 
handles three T-tests, co-variants, correla- 
tion, linear correlation, mean variants and 
standardized deviation. Stolzberg sold 
about 75 copies himself, mostly to univer- 
sities and hospitals. 

With Howe's help he has also put to- 
gether an inventory program for a manu- 
facturer that allows the user to call up a 
list of available products, products on 
order, total cost and total labor. A billing 
program for a chemical distribution com- 
pany is currently being tested; it also car- 
ries accounts receivable, shipping, sales 
reports and marketing. 

Started with Calculator 

Stolzberg's computer hobby sprung 
from an interest in calculator program- 
ming. 

"I'm a self-taught nut on the 
calculator," he says. 

Then Howe introduced him to the 
TRS-80. Stolzberg needed a cheap way to 
store data for a dissertation, and Howe 
suggested the TRS-80. Now Stolzberg 
owns a Model I, a Model III and a Line 
Printer VI. 

His polling program can be used on 
either the Model I, II or III, and the Maine 
Radio Information Network has been us- 
ing it successfully on the Model II. Maine 
Radio Purchased it for their quarterly 
polls. Projects have included general is- 
sue polls and a nuclear referendum sur- 
vey. Business Manager Malcom Leary 
says it's made their tabulations quicker, 
easier and more accurate. 

Howe thinks Stolzberg's program is 
unique because he wrote it with the edu- 
cational and professional researcher in 
mind. For instance, it can handle up to 
nine subcategories for a single question 
and can be programmed to categorize 
open-ended questions. Yet it is also ac- 
cessible to the novice. 

"There's good documentation," Howe 
says, so the beginner could use the pro- 
gram, but "I don't think the average per- 
son would know how to interpret the sta- 
tistics," he added. For this reason the pro- 
gram is suited to the professional. 

Though the software has yet to be mar- 
keted, Stolzberg has received several in- 
quiries and plans to start advertising in 
the fall. Meanwhile his consulting work 
and other software projects keep him oc- 
cupied. 

He's also pursuing his doctorate in edu- 
cational psychology at Hofstra University. 
This leaves about 20 hours a week for the 
software company. ■ 

by Betty Thayer 
80 Microcomputing staff 



Writer Turns to Model I, 
Has Love-Hate Relationship 



When prize-winning novelist Ernest 
Hebert started his new book, A Lit- 
tle More Than Kin, he decided to trade in 
his typewriter for a TRS-80 Model I and 
Scripsit. A year later the novel is finished, 
but, while the word processor speeded up 
the writing, it introduced problems of its 
own. 

In the end, Hebert sold his machinery, 
replacing it with a much more limited IBM 
memory typewriter. Today, facing the 
prospect of starting a new novel, he isn't 
sure whether he wants to stay with the 
typewriter or buy a new microcomputer. 

Hebert's word processing saga began 
when the 15,000 circulation daily newspa- 
per he works for, The Keene (NH) Sentinel, 
went to a word processing system. At the 
time he was an editor, and he worked on 
the system eight hours a day. 

"The possibilities of word processing 
are so incredible," he said. "You can't go 
back and be satisfied with what you were 
doing before." 

At home, Hebert found he could not 
compose on a typewriter after using word 
processing. Fortunately, at about this 
time he received a grant from the National 
Foundation for the Arts. His first inclina- 
tion was to use it to let him write full time, 
but the Sentinel would not give him a 
leave of absence, and he didn't have 
enough money to quit. So, he said, he 
"blew the money on equipment." 

Besides refurnishing his study, he 
bought the Model I with two disk drives, 
32K memory and an inexpensive printer. 
Scripsit, he discovered, had more editing 
features than the system at his newspa- 
per offered. 

"I had a wonderful machine," he said. 
"It just released me." 

Hebert said word processing is "made 
for someone like me who is constantly re- 
writing, constantly revising, who is never 
satisfied." His writing method is to type a 
page, edit it, then retype. "I might do that 
anywhere from between 5 to 15 times be- 
fore I got the thing where I wanted," he 
said. "Then I would go on to the next 
page." 

The word processor eliminated the 
need for retyping. As a result, while Dogs 
of March, Hebert's last novel, took him 
four years to write, A Little More Than Kin 
took him one. 

Unfortunately, the story has an unhap- 
py side. First the printer broke down. The 
local Radio Shack manager loaned him 



another while his was sent out for repair. 
Then he started having disk problems. 

"I was always having little things go 
wrong with this machine— things I 
couldn't fix," he said. "I was always call- 
ing Doug (Scribner, the local RS store 
manager) to come and bail me out, which 
he would do all the time and never charge 
me." 

Being so totally and constantly depen- 
dent made Hebert increasingly nervous. 
On the other hand, he had no interest in 
making the machine into a hobby just so 
he could learn to repair it. While Hebert is 
fascinated with technology, the TRS-80 



"The possibilities of 
word processing are 
so incredible, you can't 
go back and be 
satisfied with what 
you were doing. . . " 



was solely a word processor. He never 
even bought any other software for it, 
much less learned to program. 

"The anxiety was increasing," he said, 
"and I said to myself, 'what if this guy dies 
or gets sick of me? I'll be out of luck. . .' 
So while I could still get some money for it 
I sold it— for the book price, which means 
I took about a $1,300 bath." 

The IBM, a surprisingly thin-looking 
black machine, was the replacement. It is, 
he says, only half as good as the micro- 
computer, with no screen and much more 
limited editing abilities. And it prints 
much more slowly. 

"The value of this machine is I can put it 
on the IBM service contract for only about 
$250 a year and they come and fix it or re- 
place parts if something goes wrong with 
it," he said. 

Hebert hasn't given up on micros yet, 
however. He said he is considering anoth- 
er try at word processing, with either a 
TRS-80 Model III or some competitive sys- 
tem. He would like to have both the type- 
writer and the word processor, but he's 
not really anxious to go back to the type- 
writer.! 

by Bert Lata more 
80 Microcomputing staff 
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Seminars Cover Color Computer Chip 



Motorola's Technical Training Group, 
headquartered in Phoenix, AZ, is of- 
fering a series of two and four-day semi- 
nars on their 6809 microprocessor chip 
(see Calendar). The 6809 chip is the 
brother of the powerful 6809E MPU which 
lies at the heart of Tandy's popular new 
Color Computer. 

Though 50,000 Color Computers are in 
user's hands, there is a paucity of detailed 
information about the 6809E chip's in- 
struction set, internal register structure 
and wide variety of addressing modes. 
The situation has resulted in a shortage of 
quality assembly language software for 
Tandy's new machine. 

The Motorola courses, while not aimed 
directly at Color Computer owners, are de- 
signed to get those conversant with as- 
sembly language programming and mi- 
croprocessor fundamentals familiar with 
the 6809E. 

Two versions of the course are offered: 
a two day "update," for those who are ac- 
quainted with Motorola's 6800 family of 
chips and a more detailed four day treat- 
ment that covers everything from number 
systems to 6809 linking loaders and relo- 
catable macro assemblers. 

The four day course (MTT-11) is a fast- 
paced tour-de-force that includes two lab 
sessions within its 32-hour instruction pe- 
riod. Students not familiar with the jargon 
and habits of microprocessors will have 
trouble keeping up. However, those with a 
working knowledge of other microproces- 
sors (such as the Z-80) will be provided 
with the information they need to write 
assembly programs that exploit the power 
of Motorola's 6809E. 

That power is derived from the wide 
variety of addressing modes available in 



the 6809E (nine) and an instruction set 
that allows all registers to be pushed to 
the stack with one command (PSHU/ 
PSHS), A and B accumulators combined 
for 16-bit operation (LDD) and the pointer 
register loaded with an effective address 
in the indexed addressing mgde (LEAX, 
Y,S,U). 

In an interview with 80 Microcomputing, 
course instructor Ray Doskocil outlined 
the design philosophy Motorola adopted 
for the 6809: "Everything that connects to 
this MPU looks like memory as far as the 
chip is concerned. Thus, we are dealing 
with memory-mapped I/O. The advantage 
of this is that it is easy to hack chip func- 
tions up and make the chip perform." 

Doskocil also indicated that the 6809 
was the end of the line for eight-bit tech- 
nology as far as Motorola was concerned. 
When queried about the chip's lack of 
popularity in the personal computer mar- 
ket, Doskocil cited Motorola's lack of ag- 
gressiveness in this segment of the mar- 
ketplace as the reason. 

Though not specifically about the E ver- 
sion of the 6809, MTT-11 covers all as- 
pects of 6809E operation and outlines the 
differences between the 6809 and its E 
version. These differences are few, the 
most obvious being the lack of internal 
clock circuitry in the 6809E. While the 6809 
requires only an external crystal for its 
system clock, the E version requires exter- 
nal clock circuitry. 

Other differences include three control 
pins unique to the 6809E. The TSC (Tri- 
State Control) pin allows the address lines 
and data bus to be put in a high imped- 
ance state. The LIC (Last Instruction Cy- 
cle) pin is used for diagnostic purposes 
and signals that the next processor cycle 



will be an op code fetch. The Busy pin pro- 
vides a common bus lockout signal for the 
MPU. 

Course content is strictly Motorola, and 
when hardware add-ons like RAMs, ROMs 
and PIAs (Peripheral Interface Adapters) 
are discussed, all design examples fea- 
ture Motorola chips. From a System de- 
sign point of view this approach is logical, 
but Color Computer hardware hackers will 
undoubtedly shop around when modifica- 
tion time comes. 

While not suitable for the rank begin- 
ner, Motorola's 6809 course will provide 
experienced assembly language software 
authors with everything they'll need to 
know in order to write code that will make 
the Color Computer perform. 

Course costs range from $250 to $430 
and discounts are available based on 
course location and number of students 
involved. Additional information may be 
obtained from: Mr. Ron Bishop, Motorola 
Technical Training Headquarters, P.O. 
Box 2953, Phoenix, AZ 85062. Tel: 602- 
962-2345. 



Course 


Dates 


Location 


MTT-11 


July 21-24 


Phoenix, AZ 


Four day course 


Sept 29-Oct 2 


Phoenix. AZ 


MTT-3 


July 7-8 


Los Angeles, C 


Two day course 


July 9-10 


San Diego, CA 




Aug 18-19 


San Jose, CA 




Aug 20-21 


Portland. OH 




Sept 29-30 


River Edge, NJ 




Oct 1-2 


Rochester, NY 




Oct 20-21 


Houston, TX 




Oct 22-23 


Dallas, TX 




Nov 10-11 


San Jose, CA 




Nov 12-13 


Denver, CO 



by Chris Brown 
80 Microcomputing staff 



Features off the FATIGUE FIGHTER 

REDUCES OPERATOR FATIGUE THEREBY ALLOWING MORE EFFI- 
CIENT USE OF THE COMPUTER. 

INSTALLS EASILY WITH PRESSURE SENSITIVE ADHESIVE. NO 
SCREWS, CUPS, OR DRILLING TO DAMAGE MONITOR. 

DESIGNED TO MATCH TR8-S0* STYLING FROM THE BLACK AND 
SILVER BORDER TO THE LETTERING TYPE FACE. 

MADE OF TOUGH 1/8 INCH THICK ACRYLIC SHEET FOR DURABIL- 
ITY, EASE OF CLEANING, AND A QUALITY APPEARANCE. 

FITS BOTH THE MODEL I AND THE MODEL II. 

DOES NOT VOID THE COMPUTER WARRANTY. 

__ _ -»—. — -» Sand Nam* & Addrasi Typad or Clearly Printed with 

TO ORDER '. Crwck or Morwy Ordw lor S12.95 Each, Including Ship- 

ping. COD'a are 12.50 Additional Par Ordar a are Ac- 
cepted by Mall or by Calling 904-378-2494 9-5 M-F. 
Florida Raaldanta Add 4% Salaa Tax. 



TRS-80 18 A TRADEMARK OF TANDY 

LS3 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^373 



This product r*sul ted fro* the 
following Psychological studiec 
show 9i~*»rt to be »ost pi ••sari t 
for extended viewing. Eye wnii- 
tiuity peaks in th* areen band 
of the spectruai. Contrast is en- 
hanced by reducing th* aafeient 
li^ht falling on a CRT. Th*se 
three factors combine to fight 
operator fatigue. Finally, u* 
wanted »or» than just function. 
Ue wanted a filter that visually 
Hatched TRS-8e styling. Pictured 
here is proof of our success, a 
t>r oduc t ue are proud o I . 



■ See List ol Advertisers on page 322 



80 Microcomputing, August 1981 • 71 



I 



1WVH0 IMOKMA1ION M Hit s Villi Ml III 



I ti- ii ii is I to f ho 11/ iiitsz 

THE CUSTOM TB&SO 

«fc OTHER MYSTERIES 








; 




'software 



If the thought 
of using a screwdriver 
gives you the shivers 
then you can turn to 
the software 



Ever wanted to do 

things to your TRS-80 that Radio Shack 
said couldn't be done? How about upper/lower 
case, reverse video, high-resolution graphics, a 
high-speed clock, audible keystrokes, an extra 
keyboard, and a real-time clock? Still not enough? 
How about using an 8-track as a mass storage device, 
making music, controlling a synthesiser, monitoring 
your data bus, and individual reverse characters? All 
these hardware modifications, plus lots more, are in 
The Custom TRS-80 and Other Mysteries, 
by Dennis Bathory Kitsz - the latest book 
from IJG Computer Services. 




section. 

In this you learn how 

to make BASIC programs auto-execute, 
reset the memory size, patch into the interpreter, 
test memory with machine-language, pack program 
lines with machine code, and generate sound effects. 
The Custom TRS-80 and Other Mysteries is more 
than 300 pages of practical information, and tested 
software, for $29.95. Order your copy now, and start 
turning your TRS-80 into a five-hundred-dollar 
^ . supercomputer! Pick one up at your local IJG 
^^— dealer or use the coupon on the opposite page. 



TRS-HO is a trademark ofTandj 



^37 



'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




OTHER 
MYSTERIES 



312 page; 
$29.95 



Get them at your local I JG dealer! 



'It has twelve thousand one-liners 
in it, and every one is great!' 
- Dennis Kitsz. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Writen 
by Harvard Pennington it has more than 
130 pages of easy to read, entertaining and 
immensely useful information - find out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions . . . the list goes on! 

Many readers have saved days of work 
by recovering files that had been unread- 
able. Now in its fourth updated printing, 
TRS-80 Disk and Other Mysteries has 
been getting rave reviews in several mag- 
azines. Yours for only $22.50 (plus $1.50 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and Other 
Mysteries is the complete guide to your 
Level II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
II ROMs available. 

Exploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $2.00 shipping, CA residents 
add $1.80 sales tax). 

rH IJG Computer Services, ^37 
0± 1260 West Foothill Blvd., 
y. Upland, CA 91786 

Please send me a copy of TRS-80 Disk 

and Other Mysteries for $22.50 plus $1.50 
shipping. D 

Please send me a copy of Microsoft BA- 
SIC Decoded and Other Mysteries for 
$29.95 plus $2.00 shipping. □ 
Please send me a copy of The Custom 
TRS-80 and Other Mysteries for $29.95 
plus $2.00 shipping. □ 
OK, send me all three IJG books for 
$82.40 plus $5.00 shipping. □ 
Overseas add $8.00 per book airmail. 

Name 

Address 



Phone orders (714) 946-5805 

TKS-SO is u trademark of Tandy, Microsoft is trademark of Microsoft. 



City 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

□ Visa Expiration Date 

Card No 

D Check enclosed for 

□ Ship COD ($2.00 extra) 
Signature 



News From 

KITCHEN TAB1E SOFTWARE, INC. 

by David Busch 




That team of unknown geniuses at 
Kitchen Table Software, Inc., makers 
of DROSSDOS 1.1, at last report were 
flushed with success. Even though only 34 
disks of the DOS have been sold, Kitchen 
Table has distributed more than 120,000 
copies of the mandatory correction ZAPs 
at $4.95 each. Following this new influx of 
capital, the company has redoubled its ef- 
forts at writing and marketing innovative 
programs for the TRS-80. As the only re- 
viewer willing to keep DROSSDOS 1.1 long 
enough to check out all its functions, I 
was selected by Kitchen Table to look at 
advance copies of these soon-to-be re- 
leased gems. Here are some capsule com- 
mentaries on each. 

Ready for 120,000 Baud? 

Are you ready for 120,000 baud? This 
machine language program, Superfast- 
lode, allows cassette-based systems to 
load Basic or System programs using the 
fast forward setting on the Radio Shack 
CTR-41 or CTR-80 recorders. 

The program is supplied on cassette. 
Using the System command, the user first 
loads a short bootstrap program, which 
automatically slows down the TRS-80 cas- 
sette input speed to 10 baud. Kitchen Ta- 
ble says that this clever step ensures a 
good load of the speedup program which 
follows. The main program loads from 
tape in just under 17 minutes. Superfast- 
lode resides in the top two bytes of memo- 



ry, and automatically protects itself. To 
activate the program, the user merely hits 
/Enter, and CLOADs other programs in the 
normal manner, but using fast forward in- 
stead of play. Superfastlode has a built-in 
routine which overloads and burns out 
Radio Shack's XRX cassette loading mod- 
ification, so there are no hardware modifi- 
cations to worry about. 

In benchmark testing, we were able to 
load a 16K program in under a tenth of a 
second. A friend brought over a program 
he had written containing more than 700 
data lines which normally takes up 36K of 
memory. Superfastlode was able to suck 
up this prodigious code in less than a 
quarter of a second! A quick check re- 
vealed that this system is more than 99 
percent reliable, an enviable record. For 
you mathematical types, that translates 
into only 360 bad bytes in a 36K program. 

The only drawback I have been able to 
pin down is the lack of a correspondingly 
fast CSAVE function with Superfastlode. 
In fact, once the program has been run, it 
is impossible to CSAVE at all. Kitchen Ta- 
ble helpfully notes in the documentation 
that it will be necessary to purchase a sec- 
ond TRS-80 for program dumps if the user 
wishes to get the maximum benefit from 
Superfastlode. 

Out of Sorts 

This machine language bubble sort 
may be incorporated into any Level II or 
Disk Basic program and accessed 
through the USR routine. Numeric values 
or strings to be sorted should be first load- 
ed by the user's program into an appropri- 
ate array. When the USR call is invoked, 
Out of Sorts quickly checks the array to 
make sure that the list is not already in the 
proper order. If so, the program punishes 
the operator by locking up the keyboard. 
Otherwise, a painstaking bubble sort is 
commenced. 

For the neophyte, the bubble sort is the 
most popular, and therefore the least effi- 
cient, of all sorting routines. Even though 
Out of Sorts is a machine language pro- 
gram, it still required almost 1 1 minutes to 
sort a list of ten names. We felt compelled 
to ask Kitchen Table just how this pro- 



gram was developed. A company spokes- 
person explained that the programmer re- 
sponsible for Out of Sorts had only fin- 
ished reading the Level I manual the week 
before the program was written. Originally 
coded in Basic, Out of Sorts was later 
compiled because Kitchen Table felt that 
they could charge more for a 14K machine 
language program. 

I can't recommend this program 
(though at $4.95 it is a bargain), but it may 
be of some interest to those connoisseurs 
of the various permutations of bubble 
sorts. 

Fast Food Restaurant 
Accounting Package 

Kitchen Table reports that this series of 
programs was prepared in response to lit- 
erally hundreds of requests from micro 
users for a good, complete general led- 
ger/accounts-payable/accounts-receiv- 
able package suitable for use by fast food 
franchises. This version is one of the most 
complete I've seen. 

Ffrap has many special features which 
lend themselves to fast food operations. 
For example, the modules are remarkably 
friendly and commendably interactive, 
which makes them especially suitable for 
use by the typical 17-year-old fast food 
store assistant manager. The general led- 
ger program guides the user through the 
required input at the end of each day. Spe- 
cial categories have been set up, with en- 
tries for overcooked burgers, over-rings 
and cashbox shortages. Accounts pay- 
able features allow the franchise owner to 
keep track of costs by category, so that 
all-beef-patties can be kept separate from 
the special-sauce-on ion-cheese-pickles- 
ketchup-on-a-sesame-seed-bun ex- 
penses. 

The package issues many reports. One 
tracks usage of straws on a month-by- 
month, year-to-date and comparable-peri- 
od-last-year basis. Trial balances may be 
generated hourly, and there is a provision 
for using any TRS-80 as a stand-alone, 
point-of-servlce sales register. In this 
mode, the CRT is placed behind the Ex- 
pansion Interface, and the cavity provided 
for the RS-232 board used as a cashbox. 
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Color computer owners 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron, fsoo 

181 Commercial Street, 

Sunnyvale, CA 94086 



D Please send a 32K Color Computer 
Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

□ Please include CCDOS and manual 
for $29.95 

□ Also include a ROM Backup adaptor 
for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



•32K RAM plus Disk Interface 



TRS-HIl is u trademark of Tandy 



Chess Handicapper 

This is a fiendishly complex program, 
which aids in predicting the winner of any 
given chess match. The user inputs data 
about opponents of an upcoming match, 
such as results of last encounter, favorite 
gambits, most frequent opening moves, 
strength of end game, etc. The computer 
uses this data with a copyrighted algor- 
ithm to generate a random integer larger 
than zero, but less than three. The result- 
ing figure will indicate whether player 
number one or player number two is des- 
tined to win. 

This program also has a routine that 
will accept the status of a chessboard 
near the end of any given game and pre- 
dict the winner with 50 percent accuracy 
no later than two moves before the losing 
player resigns. This program impressed 
me, a non-chess player. I used it prior to 
several matches I recently had with 
Sargon II. I lost every single game, and 
Chess Handicapper predicted this cor- 
rectly more than 80 percent of the time! 
When used in the end-game mode, for ex- 
ample, I had two pawns and a king to Sar- 
gon ll's King, Queen, two bishops, two 
knights, two rooks and six pawns. My 
downfall was forecast even before I was 
aware of the impending doom. 

Program Packer 

This machine language program se- 
lects the most interesting portion of any 
Basic program and compresses it in three 
or four multi-statement lines. The rest of 
the program is deleted entirely. It will 
reduce a 16K program down to less than 
500 bytes. It's useful for those of you who 
invariable write long, useless programs. 
You can save disk space, but still have 
something to show for your programming 
efforts. 

Flochart 

This program takes any Basic program 
and outputs a concise flowchart to a print- 
er or graphics plotter. It's very useful for 
college computer science courses, as well 
as for spotting bugs in an unusable pro- 
gram. Blocks of code that are never called 
are highlighted. Variables that are used 
for different purposes by different mod- 
ules are listed in alphabetical order. Stan- 
dard flowchart notation is used. 

Paper, Rock, Scissors Adventure 

This popular old-time game has a new 
twist. It's a fast, machine-language pro- 
gram with incredible graphics and sound 
which held my attention for nearly two 
weeks. In fact, I was nearly fired from my 
job when I didn't report to work for five 



days in a row. 

I can't reveal the details of this game 
without spoiling the fun, but I can tell you 
that the adventure involves traveling 
through a mystic land in the guise of 
either a sheet of paper, a rock or magical 
scissors. You may encounter other paper, 
rocks or scissors along the way, each with 
unique attributes that give them invincible 
powers over the other players. 

The object is to accumulate points by 
killing as many other players as possible. 
This game should be rated R for violence 
alone because of the possible demises 
which include smothering, crushing or 
hacking to pieces. Good, clean, adult fun. 

Dice Simulator 

One of the nice things about having a 
microcomputer is being able to computer- 
ize time-consuming tasks that once could 
be done manually. Dice Simulator is a 
clever application of this concept. This 

Paper, Rock, Scissors 

"should be rated R 
for violence alone 

program realistically simulates the actual 
rolling of electronic dice. Without getting 
too technical, this is accomplished by 
having the computer select two random 
numbers with values between one and six. 
The total of these two number pairs is con- 
sidered to be the total of the two dice. 

Dice Simulator has to be one of the 
most useful Basic programs I have ever 
run across. I sat down and compiled a list 
of literally hundreds of day to day applica- 
tions which can be speeded up by com- 
puterized dice rolling. For example, do you 
find that a good game of Monopoly can 
squander several hours of your time? Dice 
Simulator can trim 10 percent of the time 
ordinarily needed to roll the dice. 

One nice touch was a printout feature 
that allows the users to take advantage of 
the computer's unimpeachable random- 
ness even if a game is going to be played 
outside the computer room. Dice Simula- 
tor will, on command, roll any number of 
die pairs and output the resulting totals to 
a printer. This printout can be stored and 
taken along to the game site. When each 
player's turn to roll comes up, he or she 
can simply check the listing for the next 
number supplied by the computer and use 
that instead. 

Program Evaluator 

This program saves the user time by let- 
ting him or her know instantly whether or 



not a newly purchased program is any 
good. Instead of having to run the pro- 
gram serveral times and judge individual- 
ly, Program Evaluator can do this chore 
automatically. 

Unfortunately, this version works only 
with Disk Basic programs. The code to be 
evaluated is first loaded into the TRS-80 
and then saved to disk in noncompressed 
(ASCII) format. Then Evaluator is loaded, 
run, and the file name of the test program 
entered. Each line is examined, and one of 
the following messages delivered: 

• Excellent program. You really got your 
money's worth. (This message also dis- 
played if program bears Kitchen Table 
copyright notice.) 

• Worthwhile program and should be very 
usable. 

• Several bugs spotted. You may be able 
to fix them yourself. 

• You got gypped. This program does 
absolutely nothing. 

• This program is worse than useless- 
it may damage neighboring disk sec- 
tors. 

• Please contact Kitchen Table Software. 
If you paid money for this program, we 
have a sorting routine you'll be thrilled 
with. 

Far Eastern Hardware 

Please don't write to me asking when 
these software items will become avail- 
able. I only review programs, I don't mar- 
ket the stuff. Keep reading 80 Microcom- 
puting for constant updates on the doings 
of the Kitchen Table Software crew. I'm 
eagerly awaiting receipt of their latest de- 
velopments, Word Winder (a word pro- 
cessing program), Space Shuttle Simula- 
tor and within a few months, their most 
ambitious hardware offering, the TLS-8E. I 
don't have any details yet, but I have been 
told that the TLS-8E is a 100 percent 
TRS-80 Model I compatible microcomput- 
er, designed and built in Sri Lanka. ■ 
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$9 CALENDAR 




ri. t^vMsM^ 



August 



Aug. 28-29 the International Micro- 
computer Fine Arts Festival will com- 
bine artists using or interested in using 
microcomputers with programmers 
and other technical people who have 
done work applicable to the needs of 
artists at the Teela-Wooket Camp, 
Roxbury, VT. 



Worcester Polytechnical Institute 
will run a series of two-day seminars for 
dataprocessing professionals through 
March 1982 at their Worcester, MA, 



campus and other Boston area loca- 
tions. Interested parties can contact 
WPI for information. 



September 

Wentworth Institute of Technology, 
Boston, MA, will sponsor a course de- 
signed to lead to a BA in Computer 
Science on Saturdays starting in Sep- 
tember. Students with at least 60 credit 
hours of higher education including 
prerequisites will be able to earn the 
degree which qualifies them as com- 
puter programmers. 



October 

Oct. 2 and 3 A two-day conference 
on "Classroom Applications of Com- 
puters" will be conducted at Indepen- 
dence High School, San Jose, CA, by 
Computer-Using Educators and Santa 
Clara Valley Mathematics Assn. The 
conference will cover mathematics, 
science, business, music, special 
education, language arts and admin- 
istrative applications of computers at 
levels ranging from pre-school through 
college. Information is available from 
Computer-Using Educators, Indepen- 



dence High School, 1776 Educational 
Park Dr., San Jose, CA 95133. 



Oct. 24 and 25 The second annual 
New Jersey Microcomputer Show and 
Fleamarket is scheduled at the Holi- 
day Inn North Convention Center, 
Newark, NJ. The show will feature 75 
commercial exhibitors and more than 
100 outdoor fleamarket vendors and 
user-group meetings for TRS-80s. Ad- 
mission for both the show and flea- 
market is $5; for the fleamarket only, 
$3. It is sponsored by Kengore Corp., 
3001 Rte. 27, Franklin Park, NJ 08823. 



Oct. 26-Nov. 4 Virginia Polytechnic In- 
stitute and State University will con- 
duct three workshops in October and 
November. Digital Electronics for 
Automation and Instrumentation will 
be Oct. 26-28; Microcomputer Design 
Interfacing and Programming using 
Z-80/8085/8080 will be Oct. 29-31; and 
Scientific Instrument Automation, In- 
terfacing and Programming using the 
TRS-80 microcomputer will be Nov. 2-4. 
Information is available from Dr. Lindy 
Leffel, CEC, Virginia Tech, Blacksburg, 
V A 24061. 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a sin- 
gle issue of 80 Microcomputing. 

Attach old label where indicated and print new address ^ city, 
in space provided. Also include your mailing label ^ 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



If you have no label handy, print OLD address here. 



cq Name. 



.Call 



Address , 



State. 



Zip. 



print NEW address here: 



□ Address change only 
D Extend subscription 

□ Enter new subscription 

□ 1 year $18.00 



□ Payment enclosed 

(1 extra BONUS issue) 

□ Bill me later 



Name 



an 



Address. 
City 



State. 



Zip. 



80 MICROCOMPUTING PO Box 981 • Farmingdale NY 11737 



• See List of Advertisers on page 322 
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NEW PRODUCTS 



Edited by Janet Fiderio 



Volume I Issued 



Volume I of the Encyclopedia for the 
TRS-80, a library of useful information for 
TRS-80 users, has been issued by Wayne 
Green Books. 

Volume I includes articles on graphics, 
producing custom invoices and methods 
of developing timing loops and a simula- 
tion game which makes you president of 
the US. 

The Volume costs $19.95 for hardcover 
and $10.95 softbound, or you can sub- 
scribe to the 10 volume set for $164 hard- 
cover or $83 softbound, from Wayne 
Green Books, Attn: Pauline Johnstone, 
Rte. 101 and Elm St., Peterborough, NH 
03458. 

Reader Service v* 325 

Inventory Your Music 



Record and Tape Collection Inventory 
catalogues, manipulates and searches 
your music collection, doing alphabetical 
sorts and alphabetical or numerical 
searches. 

The program is for a 16K Level II Model I 
or III with cassette tape storage. It costs 
$15; the more sophisticated version for 32 
or 48K disk machines costs $25, from 
Ozark Mountain Software, PO Box 2945, 
Fayetteville, AR 72701. 

Reader Service s 345 

Alarm Signals 
Programming Errors 

The Audio Alarm Device for the TRS-80 
Model III plugs into the cassette port and 
gives a two-second beep when it detects 
errors in entering programs or data. 

It comes with a cable and cassette port 
plug and is powered by a nine-volt battery. 
It requires one additional line of coding in 
your Basic program. 

The cost is $36.70 (Ohio residents add 
$2.10 tax) from RSI, 231 Green St., Dayton, 
OH 45402. 

Reader Service ^170 



Program Analyzes National 
Football League Matchups 



Procap analyzes National Football 
League contests to predict the outcome 
of weekly games, probable scores and 
point spreads, evaluate team offensive 
and defensive strengths, review division 
standings, and team and division power 
ratings and scores of previous games. 

Procap is available from Trinity Group, 
829 Malin Road, Newtown Square, PA 
19073 for $49.95. 

Reader Service ^ 162 



Low Cost Modem 



Radio Shack is now marketing a low 
cost modem to connect the TRS-80 and 
similar computers directly to standard 
single-line telephones. 

The TRS-80 Modem I gives computer 
users an inexpensive way of enjoying the 
many over-the-phone services now avail- 
able. The modem is FCC approved and 
Bell 103 answer/originate compatible. 
Connection to standard RS-232 connec- 
tors may require a connecting cable. 
Model I systems using the cassette port 
require a cable and cassette software. 

The TRS-80 Modem I is available for 
$149 at Radio Shack stores, computer 
centers and participating dealers. 

Reader Service ^ 179 




The TRS-80 Modem I 



Micro Software Directory 



The International Microcomputer Soft- 
ware Directory is a reference source of 
microcomputer software for all applica- 
tions and systems. 

The Directory, which has 5000 pro- 
grams and 15,000 entries, has three main 
sections: system classification, for the 
user limited to a particular system; sub- 
ject classification, for the user who can 
use any system or who has not yet pur- 
chased a system; and software house 
classification, for the user wishing to buy 
from a particular software house. 

System-specific directories for the 
TRS-80 and other micros are available for 
$14.95. The complete directory is avail- 
able for $28.95. For further information 
contact Imprint Software, US, 420 South 
Howes, Ft. Collins, CO 80521. 

Reader Service ^176 

New Business 
Analysis Programs 



Capital Investment analysis is a pro- 
gram which makes capital spending deci- 
sions such as: automatic depreciation, 
calculation of IRR and NPV, optional infla- 
tion adjustments, and the ability to handle 
multiple assets in one analysis. 

The Internal Rate of Return/Present 
Value Calculator program calculates typi- 
cal profitability measures from a cash 
flow and the IRR user-specified reinvest- 
ment rate, and plots net present value vs. 
discount rate. 

The Depreciation Calculator program 
offers eight straight-line and accelerated 
methods. Options allow switching from 
declining balance to straight line at the 
optimal point. 

A Level II Model III with 16 or 32K is re- 
quired; a printer is optional. The cost for 
the Capital Investment program is $39.95; 
the second two programs combined are 
$19.95, or $49.95 for all three, from Jenson 
Associates, 59 Oak Drive, Ancient Oak, 
Macungie, PA 18062. 

Reader Service ^ 180 
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Assembly 
Developer Loads High 



Intasm is an assembly language 
development system which loads into 
high memory and accepts assembly lan- 
guage source instructions entered as 
Basic-format lines, so both the interpreter 
and source are in memory at the same 
time. 

This is very convenient for development 
and debugging, and Intasm accepts Z-80 
register and flag display, display of next 
instruction, break-pointing and single- 
stepping. 

Intasm costs $20 on machine language 
cassette, for 16K, 32K and 48K Model I 
systems, from Singular Systems, 810 
Stratford, Sidney, OH 45365. 

Reader Service ^ 332 

Utility Automates 
Land Sales 



The settlement package for Models I 
ind II for real estate oriented law firms 
and title companies does amortization 
schedules, maintains information for 300 
settlements, performs all necessary 
computations and pro rations, outputs 
RESPA statements, does disbursements 
and all other functions needed to auto- 
mate a real estate closing department. 

It eliminates forgotten steps or charges 
by taking the user through the process in 
an orderly manner. 

It is available for $3,000 from Scorpion 
Systems, 120 N. Court St., Federick, MD 
21701. 

Reader Service s 331 

A Project Management 
Support System 



Target, marketed by the System Re- 
search Services organization (SRS), is a 
complete project management support 
system. 

Based on the critical path method, 
Target can schedule and allocate real or 
hypothetical resources, as well as devel- 
op starting/ending dates for interdepen- 
dent project activities, identify the critical 
path, compute time slack and tabulate re- 
source requirements by type and cost 
over the life of the project. 

Target is available from System Re- 
search Services, 1800 Old Meadow Road, 
Suite 1413, Mclean, VA 22102. 

Reader Service ^ 175 




The Lynx Modem 

Modem Compatible with 
Both Model I and III 



The new Lynx telephone modem is com- 
patible with both the Model I and Model III 
and replaces the original Lynx which was 
usable with the Model I only. 

The Lynx has auto-dial and auto- 
answer, originate/answer, programmable 
word length, parity, active Clear and Break 
keys and control, programmable I/O ports 
and either keyboard dialing or stored num- 
ber selection operation. 

Lynx is $299.95 from ESI Lynx, 123 
Locust St., Lancaster, PA 17602. 

Reader Service ^173 



QuicKeys Label Keyboard 



QuicKeys are clear, pressure-sensitive 
labels which mount on the face of key 
caps and include more than 425 com- 
monly used words, commands and sym- 
bols, including those used by Level II and 
Disk Basic, popular word processing and 
communications programs commands. 

Different command categories are 
color-coded so more than one label can be 
put on a key. 

QuicKeys cost $9.95, from Pairr Prod- 
ucts, PO Box 817, Montrose, CA 91020. 

Reader Service ^ 336 



Computer 
Telephone Directory 



The Online Computer Telephone Direc- 
tory (OLCTD) is a quarterly newsletter re- 
porting on microcomputer electronic mes- 
sage systems. 

The newsletter contains information on 



accessing bulletin boards such as ABBS 
4.0, CBBS, Networks, Peoples Message 
System, Connection-80, FORUM 80, Net- 
Works and remote Northstar. OLCTD also 
contains a directory of free-access sys- 
tem telephone numbers. 

Subscription rates are $9.95 per year, 
$15.95 for two years, from On-Line Com- 
puter Telephone Directory, P.O. Box 
10005, Kansas City, MO 64111. 

Reader Service s 178 



TRS-80 Versions of 
Chemistry Programs 



J & S Software has released TRS-80 ver- 
sions of 15 high school and junior college 
chemistry programs originally written for 
the Apple computer. 

The programs are available on cassette 
for the Model I Level II and Model III 
microcomputers for $19.50 for one, $75 for 
a set of six and $150 for all 15 from J & S 
Software, 140 Reid Ave., Port Washington, 
NY 11050. 

Reader Service s 171 

MX-100 Dot Matrix Printer 



The MX-100 is a 136-column dot matrix 
printer with matrices from 9 x 9 to 18 x 18 
providing letter-quality print in 12 different 
character weights and sizes. 

It accepts 15.5 inch wide paper and can 
print 233 columns of information in con- 
densed print mode. It prints bidirection- 
ally at 80 CPS. It comes with both friction 
paper feed and adjustable tractors stan- 
dard, and uses the Micro-Nine disposable 
print head and Graftrax high resolution 
graphics capability. 

It costs $995 from Epson America Inc., 
23844 Hawthorne Blvd., Torrance, CA 
90505. 

Reader Service ^ 166 




MX-100 Dot Matrix Printer 
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Term in all 



Convert Micro into 
Communications Terminal 



Terminall is an integrated hardware and 
software system which converts a Model I 
or III TRS-80 into a communications termi- 
nal. 

It includes all necessary computer in- 
terfacing, audio demodulating, AFSK 
tone generation and transmitter keying 
hardware in one cabinet, and will transmit 
Morse or RTTY and Baudot codes. 

Terminall is available for $499 from 
Macrotronics Inc., 1125 N. Golden State 
Blvd., Turlock, CA 95380. 
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Educational 
Software Exchange 



Softswap, an educational software ex- 
change project, offers approximately 240 
public domain instructional programs col- 
lected for the TRS-80 and other microcom- 
puters. 

Most of the Softswap programs are 
short, stand-alone instructional units. 
Each disk contains from five to 28 pro- 
grams for various subjects and grade 
levels, all for one microcomputer system. 

If you are interested in donating a pro- 
gram to Softswap or would like to pur- 
chase one of the program's disks or tapes, 
contact: Softswap, San Mateo County Of- 
fice of Education, 333 Main St., Redwood 
City, CA 94063. 
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Fantasy 
Role-Playing Game 



Empire of the Overmind is a fantasy 
role-playing game with a literary twist. The 
object is to defeat the evil Overmind and 



restore the kingdom to its rightful rulers. 

To accomplish this, you must first 
study "The Rhyme of Overmind," which 
tells the story of the conquest of the king- 
dom of the Overmind and contains vital in- 
formation to help you in your quest. You 
then venture forth into a world described 
by the manufacturer as a blend of Tolkien, 
Babylonian mysticism and science fic- 
tion. 

Empire of the Overmind is available for 
$30 on cassette and $35 on disk from 
Avalon Hill Game Co., 4517 Harford Road, 
Baltimore, MD 21214. 
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Lease Accounting 
System Released 



Leasing is a lease accounting system 
for equipment leasing firms. It maintains 
files on lessees, leases, assigness and 
vendors; generates bills; processes pay- 
ments; and prepares vouchers for autho- 
rizing payments to vendors and as- 
signees. 

It also provides audit trails and can as- 
sign late charges. 

It runs on a Z-80 system using CPM. It 
costs $3,500 from COM Business Com- 
puter Systems Inc., 551 E. Genesee St., 
Fayetteville, NY 13066. 
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Marck's Lists 
School Software 

Marck's spring catalog lists tested 
educational programs and related pro- 
ducts for the TRS-80, Apple II, Atari and 
PET computers. 

Programs cover all age levels and in- 
clude traditional and innovative subjects. 

Cost is $4.95 ($5.32 for CT residents) 
from Marck, 290 Linden Ave., Branford, CT 
06405. 

Reader Service ^ 167 



Pascal Disks Offered 



The Pascal/Z Users Group is offering 10 
disks of public domain software ap- 
plicable to Z-80 micros using Pascal/Z. 

The programs include tutorials, utilities 
and practical applications. 

They cost $10 each from the Pascal/Z 
Users Group, 7962 Center Parkway, Sacra- 
mento, CA 95823. 
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The Omni Flip/Floppy Disk 

Flip/Floppy, 

A Reversible Disk 



The Omni Flip/Floppy is a dual-sided 
reversible 5 'A -inch disk. 

The manufacturer certifies that each 
disk is error-free at more than twice the er- 
ror threshold of many disk drives and is 
rated at more than 12 million passes 
without disk-related errors or significant 
wear. 

The cost: five disks for $21 and 10 for 
$40 from Omni Resources, 4 Oak Pond 
Ave., Millbury, MA 01527. 
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Financial 
Reporting Package 



T/Maker II is a financial reporting pack- 
age combining word and numerical data 
processing on one disk. 

Compatible with all CP/M microcom- 
puters, it includes automatic functions 
such as transcendentals and logrithms 
and is designed for professional offices 
and small businesses. 

It costs $275, from Lifeboat Assoc, 
1651 Third Ave., New York, NY 10028. 
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Gosub Friction Feed Kit 



The Gosub Friction Feed kit for the Ep- 
som MX80/70 printers allows you to use 
single sheet or roll paper, your own letter- 
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Most people just sell disks. 

I sell you a complete system, and then 
I help you make it work. 



It's called support, and it's a rare commodity 
in the microcomputer world. 

It's also one big reason why they call my programs 
"the standard of the industry." 

I'm Irwin Taranto, the one who changed the 
TRS-80* into a serious business computer. When you 
buy my TRS-80 systems (or, for that matter, one of 
my own computers that says "Taranto" on it), you 
buy me. 

You buy my experience in making TRS-80 systems 
work in thousands of businesses around the world. 

You buy the corrections, modifications and 
upgrades I constantly make on my TRS-80 systems. 

And you buy my telephone number. You see, most 
of those thousand businesses needed a little help 
getting their systems up and going, and they called. 
We answered all their questions, and talked them 
through their problems. Every time the questions 
got really tough or really unusual, I'd answer them 
myself, on the phone, right then and there. I still do. 

That pays off in two ways. It makes sure you get 
your systems working. It also alerts me to any little 
operating inefficiencies I might have designed into 
my systems. If there are any general business pro- 
grams anywhere in the world, of any kind, that are 
checked out any better than my TRS-80 systems, 
I'd like to know about them. 




I turned the TRS-80 into a serious computer. 

'A trademark of the Tandy Corporation 

^See List ol Advertisers on page 322 



The Model I, II and III business systems. 

So far, I have six systems for the Model I, 
at $99 each: 

Accounts Payable General Ledger 

Accounts Receivable Payroll 

Invoicing Inventory Control 

For the Cash Journal option on the General Ledger, add $50. 

I also have six systems for the Model II : 

General Ledger/Cash Journal $ 299 

Accounts Payable/Purchase Order 349 

Open Accounts Receivable/Invoicing 349 

Additional for Sales Analysis 100 
Balance Forward Accounts Receivable 399 

Payroll, without Job Costing 299 

Additional for Job Costing 100 

Inventory Control 399 

For the Model III, we offer expanded versions 
of the six Model I systems, at $199 each. 

Just call the number below and I'll send you any 
or all of the Model I or Model III systems by return 
mail. If you call about the Model II, I send you 
a questionnaire before I'll send you any systems. 
That lets me individualize the programs to your 
specific applications. 

Why I call them "systems," not "programs!' 

There's a one- word answer: interaction. Each 
of the three sets of programs links to the General 
Ledger, and wherever it's useful, they cross-link 
to each other. For instance, "Sales Analysis" figures 
in a salesman's commission rate, so it links to 
"Payroll." Since it computes profitability within 
product categories, it links to "Invoicing." 

That's what a system is. And that's one big 
difference between the Taranto TRS-80 business 
systems and somebody else's collection of business 
program disks. 

If you like, I'll sell you the hardware, too. 

I offer the TRS-80, Model II , along with selected 
peripherals. If you buy the computer from me, 
you get some extra advantages — hardware that's 
absolutely tailored to the programs, plus even 
more hand-holding from Taranto & Associates. 
The equipment won't cost you any more. 

I can sell you a truly serious, completely supported, 
thoroughly proven business computer system for 
as little as $8000, hardware and software both. 

There's nothing else like it in the market. Believe 
me, it's a far cry from that collection of program 
disks they're selling down the street. 

-« Taranto 

& ASSOCIATES, INC 

The Total System Store. 

121 Paul Drive, San Rafael CA 94903. 

Outside California, toll free (800) 227-2868. In California, (415) 472-2670. 

Authorized dealers throughout America. 
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head, personal checks or non-tractor 
feeding labels. 

The kit comes with a paper-roll rack for 
8 1/2-inch teletype rolls. It utilizes "pres- 
sure feed," an opposing roller system, to 
pull the paper through. 

The price is $49.95 from Gosub Interna- 
tional Hardware Division, P.O. Box 275, 
Witchita, KS 67201. 
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Educational 
Software Library 



Educational Software Library Inc. (ESL) 
is a nonprofit organization which provides 
a mail order library of educational pro- 
grams for the Models I and III. 

ESL publishes a bimonthly newsletter 
describing the expanding selection of 
software available, which ranges from 
preschool to high school levels. 

A one-year membership for $20 entitles 
you to the newsletter, two educational 
tapes, the opportunity to trial-test pro- 
grams and purchase them at discount 
prices. For more information write to: 
Educational Software Library 262 Park 
Lane, King of Prussia, PA 19406. 
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Plug 'N Power Controller 



TheTRS-80 Plug 'n Power Controller will 
allow your Model I, III or Color Computer 
to turn your lights and electrical appli- 
ances on and off, either in response to im- 
mediate commands typed into the com- 
puter or at preset times. 

The Controller comes with its software 
for $39.95 from Tandy/Radio Shack. 
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Centronics-type Printer Port 



Cprint is a Centronics-type printer port 
for the TRS-80 Color Computer which con- 
nects to all parallel Radio Shack, Cen- 
tronics, Epson, etc., printers. 

It automatically reroutes all LList and 
Print#2 output; it has a screen-print func- 
tion which can be started at any time; line 
width and page width can be set; the LPVII 
graphics can be used and blank lines are 
inserted between pages. 

Cprint costs $49.95 from Micro-Labs 
Inc., 902 Pinecrest, Richardson, TX 75080. 
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The MDX-2 



Expansion 
Interface Announced 



The MDX series expansion interface 
boards for the Model I upgrade your com- 
puter to 32K memory. They also provide 
for a 2K or 4K EPROM, a direct-connect 300 
baud phone modem, serial port, parallel 
port, dual-cassette option and hardware 
for a real-time clock. The MDX-2 also has a 
floppy disk controller. 

The MDX-1 is $64.95 and the MDX-2 
$74.95, from Micro-Design, PO Box 748, 
Mancanca, TX 78652. 
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Design Your Forms 



Video Manager lets you design forms 
on your monitor using any combination of 
80 and 40 character formats with both ver- 
tical or horizontal printing. You may then 
reproduce it exactly on your printer. 

It also allows creation of graphic de- 
signs. It is written in assembly language 
and resides in high memory, so it is ac- 
cessable from TRSDOS. 

Available for the TRS-80 Model II, it 
costs $29.95 plus $2 postage and handling 
from Carl Larsen, Softwarehouse Interna- 
tional, 5070 N. Sixth St., Suite 1038, 
Fresno, CA 93710. 
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Business 

Data Base Program 



Business Data Base is a TRS-80 Model I 
and III package combining a worksheet- 
type program and a general purpose data 
base and storage system. 

It is easily programmed for inventory 
control, payroll, accounts receivable, ac- 



counts payable, and general ledger appli- 
cations. 

It costs $89.95, from Charles Mann & 
Assoc, Micro Software Division, 55722 
Santa Fe Trail, Yucca Valley, CA 92284. 
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Hear What You Type 



Type-'N-Talk synthesizes English 
speech from typed input in much the 
same way as a typewriter for the blind 
works. 

It requires an RS-232-C interface and 
handles an unlimited combination of 
English words and phrases. Its 750-char- 
acter buffer will hold words until prompt- 
ed or will echo words as they are typed. 

It costs $345 from Votrax, 500 Stephen- 
son Highway, Troy, Ml 48084. 
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Cheaptalk 
Vocalizes TRS-80s 



Cheaptalk gives a Level II TRS-80 with 
at least 16K RAM the ability to talk 
through any small audio amplifier con- 
nected to the cassette output plug. It also 
allows you to digitalize your own voice for 
reproduction. 

It costs $19.95 on cassette from Alan 
Saville, PO Box 5190, San Diego, CA 
92105. 
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Program 

Creates Data Tables 



Electric Spreadsheet is a utility for the 
Model I or III which creates tables of data 
or spreadsheets on the computer screen, 
using a fast cursor to enter data or labels 
at the desired locations. 

The program does calculations and 
presents the results in professional-look- 
ing tables, and can print these and save 
them to disk or tape. 

Electric Spreadsheet is available on 
tape for the 16K Model I or III for $34.95 or 
for the 32K and 48K machines for $64.95 
and on disk for the 48K Model III for 
$67.95, from Dan G. Haney & Assoc. Inc., 
PO Box 687, San Mateo, CA 94401. 

Reader Service • 330 
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Model 



SAVE UP TO, $459.00 NOW 

(Jm) 

on TRS-80 Computers 

Now you can own a great little computer at a great big dis- 
count off the manufacturer's list price. For home or office use, 
the Radio Shack line of computers is first in quality, perfor- 
mance and price: 

• FREE SHIPPING in the 48 continental contigious states. 

• NO SALES TAX collected on out-of-state orders. 

• CHARGE it with your MasterCard or Visa card. 

• CONVENIENT ORDERING Call us TOLL FREE. 



Catalog 
Number 



Description 



List Price 



Cashier's 

Charge Check Or 

By Phone Money Order 



Radio Shack' TRS-80 Model II 

26-4002 64K 1-Disk Model II 

Radio Shack' TRS-80 Model III 

26-1061 Model III 4K Level-I 

26-1062 Model III 16K 

26-1063 Model III 32K 

Radio Shack - TRS-80 Color Computer 

26-3001 4K Color Computer 

26-3002 16K Color Computer 



3,899.00 3,579.30 3,440.00 



699.00 

999.00 

2,495.00 

399.00 
599.00 



629.10 

865.00 

2,243.50 

359.10 
539.10 



629.10 

865.00 

2,199.00 

359.10 
539.10 



CASH PRICE 
YOU SAVE 



459.00 

69.90 
134.00 
296.00 

39.90 
59.00 



Pan American Electronics 

CALL TOLL FREE 800-531-7466 • Texas & Principal Number 512/581-2766 • Telex 767339 
Dept 28 • 11 17 Conway Avenue • Mission, Texas 78572 

NEW BRANCH 

2912 N. Main, Fort Worth, Texas 76106 • Phone Number 81 7-625-6333 • Telex 794836 



I 



TRS-80 is a Trademark of Tandy Corp^ 



T 




PRESTO! A direct mail system 



EPSON not only gives correspondence quality 

printing, but is an ideal label printer. Tell us 

about your computer. We'll furnish the printer, 

interfaces, cables, and the rest, so you will have 

an instant, low-priced, working system. We 

carry all accessories, printheads and ribbons. 




EPSON MX-80 

9x9 Head 
80 Column 



(£& EPSON MX-1 00 

9x9 Head 

233 Column 

CUnder $1,000) 



EPSON MX-70 

5x7 Head 

80 Column 

(Under $500) 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 

U.S.A. 

1-800-521-2764 

MICHIGAN 
1-800-482-8393 



Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 




No Credit 
Card Penality 



WRITE TO: -43s 
"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 



GAMES 



A short history of games and game development. 



A Walk on 

The Monster Side 



by Bert Latamore 

80 Microcomputing staff 



Games have been around at least as 
long as Homo sapiens. No one knows 
when dice were invented; chess, checkers 
and parchlsi go back into the dim times 
before written records. A couple of years 
ago S and R Games developed a game 
based on a board dug up in a Sumerian 
grave site by a group of British archeolo- 
gists. The board is estimated to be 4,500 
years old. 

Today games are going through a dis- 
tinct evolution under the influence of two 
separate forces. Near the end of the 19th 
century a group of free thinkers in England, 
including some of the most creative minds 
of the times, began experimenting with 
complex game forms. Alternative chess 
rules became popular, and rules were devel- 
oped allowing simulations of historic bat- 
tles using military miniatures. Incidently, 
one alternative chess game found its way 
into literature and can be read today at the 
beginning of Lewis Carroll's classic 
Through the Looking Glass. 

This movement came of age in the 1960s 
and 70s with the appearance of games 
which allow you to fight whole battles or en- 
tire wars either with miniature figures or 
with cardboard counters on game boards 
which show all terrain features. At the same 
time, the concept of the fantasy-role-play- 
ing game, in which the player takes the part 
of a character and fights in hand-to-hand 
combat, explores mazes and interacts with 
other characters in fantasy-based situa- 
tions appeared. 

The latest major influence on games has 
been the computer. Games have been put 
on computers since Eniac, and, as com- 
puters become more common, more games 
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are made and more people play them. The 
two movements came together early, prob- 
ably because programmers were also play- 
ers of the new kinds of game. The first com- 
puter games were war games, and fantasy- 
role-playing found its way onto the main- 
frame very early. "Adventure" is probably 
on every university and college mainframe 
system in the nation; people are playing it 
cross-country on electronic mall systems. 
Most microcomputer game designers are 
heavily influenced by it. 



'The most important 

concern of manufacturers 

is to produce a game 

which challenges the 

player, takes advantage 

of the computer's 

graphics capability and 

provides an escape from 

the real world. " 



At first, microcomputer games were fairly 
unsophisticated. Hangman and other sim- 
ple ideas predominated, and the major con- 
cern was to write a program that worked as 
planned without bugs. Many game writers 
lacked knowledge of game design, and as a 
result many early microcomputer games 
were less than fascinating to play. 

Things have changed, however. As the 
market grows, programmers learn more 
about games and more game players learn 
to program. Today bug-free operation is 
often guaranteed by the game supplier, and 



the emphasis is on developing more sophis- 
ticated games. Professional game design- 
ers are working with programmers, and 
their products are attracting serious game 
players. 

The most important concern of manufac- 
turers is to produce a game which chal- 
lenges the player, takes advantage of the 
computer's graphics capability and pro- 
vides an escape from the real world. They 
measure their success as much against 
board and arcade games as against their 
competition in the microcomputer market. 

Defining what makes a good game from 
an esthetic point of view is hard. One major 
issue that has emerged, however, is better 
graphics in adventure games. 

"When I get enough memory I want to do 
much better graphics," Dianne Asher, 
marketing director at Automated Simula- 
tions, Mountain View, CA, said. "There 
should be a way to get joystick operation in- 
to adventure games, smooth, consistent 
movement like aircraft simulators give." 

Game Development 

Game development for a company like 
Automated Simulations or the Avalon Hill 
Game Company, Baltimore, MD, is nearly 
identical to the process of developing a 
board game. These firms do most of their 
work in-house, seldom buying ideas or pro- 
grams from the outside. 

A game starts with an idea from a game 
designer. He works out the game mechan- 
ics so it will do what he wants it to do on 
paper. Then he takes it to the programmers. 

Once the programmers are satisfied with 
their work, the game is extensively play 
tested. This is generally done at least partly 
out of house by serious game players who 
have contacts with the company. They 
make suggestions on how to improve the 
game, both from a design and a technical 
point of view. In the process, the company 




Each time we do a game it gets better. 
We handle the graphics better, we get things to fit better." 



hopes they catch any bugs or other prob- 
lems. Since they have no prior knowledge of 
the game, the play testers are a good check 
on whether the documentation is adequate. 

Game Companies 

Avalon Hill is unusual because it was a 
strategy board game company first and has 
only started into microcomputer games in 
the last year. So far its evolution has been 
the opposite of that of the typical micro- 
computer game company— they already 
had a sophisticated game outlook and the 
mechanism for developing a good game. 

Their first games were designed to fit into 
16K machines, according to Jackson Dott, 
marketing coordinator for Avalon Hill. As a 
result, he said, "Our first five games were 
mostly text. In other words, they were not 
graphically oriented. The reader feedback 
has been. 'The game is great but I want 
graphics.' " 

At the same time, Dott said, they found 
many serious game players were expanding 
their machines to maximum memory. 
Therefore, their new releases, such as Em- 
pire of the Overmind, use much larger mem- 
ories and provide much more in graphics 
and complexity. 

Avalon Hill produces war, business, 
sports and fantasy games, and they are 
following this same pattern with their 
microcomputer games. 

They originally decided to avoid comput- 
erizing successful Avalon Hill board games, 
and their first five releases were totally new 
designs. They have since adopted a more 
mixed strategy. Their releases have includ- 
ed new games, particularly new fantasy 
games, and computerized versions of pro- 
ven Avalon Hill products. 

Their first business game, an area which 
is almost totally neglected by everyone 
else, was a computerized version of their 
hotel chain game, Acquire. Dott said they 



hope to follow it with a computerized ver- 
sion of Rail Baron, Avalon Hill's most popu- 
lar business game and a strong competitor 
with Monopoly for most popular business 
game on the market. 

They are also working on computerizing 
some of the modules of one of their more 
popular tactical battle games. 

However, their most ambitious computer 
project so far is to computerize Diplomacy, 
the classic WWI game. In it each player 
takes a major European power starting with 
the year 1900. Each wants to grow to domi- 
nate Europe. The game is unique because 
no one country can win on its own, each 
must make alliances to gain specific ends. 
Yet ultimately, each is playing on its own, 
no alliance lasts through the game. The 
successful player must know just when to 
stab his companion in the back. 

Computer Diplomacy has not yet ap- 
peared on the market, but Avalon Hill does 
have the game running on a TRS-80. 

Ed Friedland, head of Krell Software, 
Stony Brook, NY, is looking for modern 
classics to put on the computer. 

"I try to concoct a game like Go. A very 
young child can learn the rules and play it 
but on the highest level it demands great ex- 
pertise," he said. "I also want something 
that instructs the player in some way." 

Friedland said his method of developing 
a game is very simple. 

"I sort of sit around and ask what I would 
like to play," he said. "If nothing like it is out 
there I sit down with my programming staff 
and cook it up." 

Med Systems, Chaple Hill, NC, produces 
some of the most elaborate maze games. 
This may be a direct result of part of the 
firm's philosophy. William Denman, Med 
System president, said they want a game 
"someone can play for weeks, with fast 
graphics and reasonably different from 
other games." 



Anyone who has tried to find his way 
through Labyrinth knows what Denman 
means. 

"Each time we do a game it gets better," 
he said. "We handle the graphics better, we 
get things to fit better. Asylum, our newest 
release, is a 1,200-location maze. A pro- 
grammer would find it elegant, a game play- 
er will find it devastatingly interesting." 

He said he is still writing most of his 
games for 16K memory because a lot of his 
customers, particularly overseas, are own- 
ers of 16K machines. 

Curiously, while his company does not 
handle arcade games, he admits the ar- 
cades are his favorites, and he admires Big 
Five Software's products. 

Another Approach 

While most game producers develop 
their ideas in-house, Instant Software, Inc. 
(ISI), Peterborough, NH, does no initial de- 
velopment on any programs. 

Of about 135 total programs on ISI's list, 
about 65 are games. 

ISI is known for its flight simulation pro- 
grams. They are about to release a new 
space shuttle program that lets the player 
fly and land the shuttle. 

They are also involved in education 
games and have a hangman-type spelling 
game which speaks to the player instead of 
using text written on the screen. 

One area ISI is not interested in is com- 
bination board and computer games. 
Avalon Hill has been experimenting with 
this concept in which the microcomputer 
keeps track of the paperwork of a game but 
your still move pieces around a physical 
board. Damon Crumb, assistant to the pres- 
ident, said he does not think that kind of 
hybrid will be successful. 

"You are either visually oriented or textu- 
ally oriented," he said. "There is little 
crossover among players." ■ 
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GAME 



Klingons in space. 



Startrek 4.0 




ft.IZuLlUU, 



by Jake Commander 



No games issue would be complete with- 
out some sort of star trek. This is an 
addictive version, providing over an hour's 
playing time to zap those meanies (the 
Klingons) out of the galaxy. 

This version is not programmed for 
sound, but a small transistor radio next to 
the keyboard adds to the effect. The pro- 
gram fits into 16K with no problem and 
works as printed on the Model I. Model III 
users should change the Out commands in 
line 5010 from: OUT255,8:OUT255,0 to 
OUT236,4:OUT236,0. 

One extra feature missing from most star 
trek games is a real-time operating environ- 
ment while you are at the helm of the Enter- 
prise. This means that valuable stardates 
will tick away even as you peer at the 
screen. Also, as commander of the ship, the 
risk increases the longer you take to react 
to situations. Failure to take some sort of 
action will result in discovery of your ship's 
location by the enemy. As soon as you're 
spotted, they'll be in your quadrant, phasers 
ready. Don't just sit in space or you'll be a 
sitting duck. 

Another interesting feature is the menu 
operation. Instead of a menu being dis- 
played in typical list-like fashion, each com- 
mand in the menu is called up by its com- 
mand number. The command itself won't be 
executed until you hit (enter). As an exam- 
ple, say you hit the number two on the 
keyboard; this will display the command 



"Short-Range Visual Scan" at the bottom 
right hand corner of the display. If you then 
hit the number four, you will see "Fire 
Phasers" displayed. Neither command will 
be obeyed until it is entered, which allows 
you to change your mind, scan commands, 
and so on. 

One tip to the neophyte starship com- 
mander: The more energy you place on your 
shields in defense of the ship, the greater 
your fuel consumption as you move around 
in space. This tempts you to leave your 
shields low in order to conserve fuel. The 
optimum shields-versus-fuel ratio will be 
determined by experience. You should ex- 
pect, however, to be blown out of the sky 
the first couple of runs. The whole scenario 
appears very real and in fact, when I first 
wrote the program, I suffered quite a lapse 
into fantasy. 

When I was close to completing the pro- 
gram and had thoroughly debugged it I 
thought about the real-time option and add- 
ed that. Everything checked out. Finally I 
decided I didn't like the coordinate system, 
whereby a course of vector one headed the 
ship eastward; I preferred that the ship 



head northward for that vector. I changed 
the array that performed this calculation 
and tested it. I ran the program and tested 
the ship for correct movement. I found 
myself in the position of a test pilot running 
a new steering mechanism through its 
paces! 

The ship moved to the four points of the 
compass with no difficulty. However, vector 
two moved the ship the wrong way. I real- 
ized I'd made a mistake with the vector ar- 
ray and had to correct the bug. I stared at 
the screen pondering what I needed to do. I 
decided a mere juxtaposition of two digits 
in the program would probably cure the 
fault. Without warning, out of nowhere, 
three Klingons appeared. What was I to do? 
Nothing was going to convince me to hit 
Break and shirk my responsibility as com- 
mander of the ship. I energized shields, and 
maneuvered into striking distance of the 
first Klingon. From there on I limped 
through the galaxy with a faulty steering 
mechanism and saved humanity from an 
awful fate. 

You should have no problem with the 
thoroughly debugged ship provided. ■ 



Program Listing 

10 CLEAR150:DEFINTA f D-H,K-T:DIMS(8,8) f G(8,8) ,Z(8 f 8) ,C(9 f 2) ,K(3,3 
),D$(8),B$(30) ,C$(3) 

35 Z$=STRING$(24," ") :Y$=" " :X$=STRING$(1 

4," ") :W$=CHR$(30) :V$="ENTERPRISE":US"="FEDERATION":CO$="## ,##" 
120 CLS:PRINTTAB(25)"STAR TREK 4.0 
"TAB (23) "BY JAKE COMMANDER 

":INPUT"DO YOU WANT INSTRUCTIONS "7 AS: IFA$="YES"GOSUB3460 

160 FORX=0TO3:READC$(X) :NEXT:F0RY=1T02:F0RX=1T09:READC(X,Y) :NEXT 

X f Y:FORX=0TO5:READA$(X) :NEXT:FORX=lT08:READD$(X) :NEXT:FORX=1TO30 

:READB$(X) :NEXT 

180 GOSUB5030:GOSUB5200:T=(RND(20)+19)*100+RND(100):T0=T+1:TT=32 

:GOSUB5170:L=RND(8) :M=RND(8) :U=RND(8) :V=RND(8) : PRINT§6 40 f " AWAIT 

FURTHER ORDERS." 

260 DATADOCK ED, "GREEN ", YELLOW, "RED ", ,1 ,1,1, ,-1,-1,-1, ,-1,-1, 

,1,1,1, ,-1,-1," ",+++," ",<+>," . ",>K,WARP ENGINES, S. R. S 

CANNER,L. R. SENSORS, PHASER CONTROL , PHOTON TUBES, SHIELD CONTROL, 

DAMAGE CONTROL, COMPUTER,, SET COURSE, SHORT-RANGE, VISUAL SCAN 

270 DATALONG-RANGE, SENSOR SCAN,, FIRE PHASERS, FIRE PHOTON , TORPEDO 

,, SHIELD CONTROL, DAMAGE CONTROL, REPORT, CALL ON-BOARD, COMPUTER, ,F 

INISHED, COMPUTER, GUIDANCE, STATUS, REPORT, PHOTON TORP-,EDO DATA, CO 

URSE, CALCULATOR, GUIDED-PHOTON, TORPEDO, CUMULATIVE GA-, LACTIC RECO 

RD 

290 FORJ=1TO8:FORI=1TO8:R=RND(100) : IFR>98K=3ELSEIFR>95K=2ELSEIFR 

Program continues 
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Program continued 

>80K=1ELSEK=0 

370 KT=KT+K:R=RND(100) : IFR<97THENB=0ELSEB=1:BT=BT+1 

380 S=RND(8) :G(I, J) =K*100+B*10+S: Z (I , J) =0:NEXTI,J 

420 K7=KT:IFBT=0ORKT=0THEN290ELSEPRINT@640,"YOU MUST DESTROY" ;KT 

;"KLINGONS WITHIN" ; TT; "STARDATES, 

THERE ARE";BT;U$;" STARBASES IN THIS GALAXY. 

450 CL=0:K=0:B=0:S=0:S(U f V)=3:IFL<lORL>8ORM<lORM>8THEN760 

480 X=G(L,M) :K=INT(X/100) :X=X-K*100:B=INT(X/10) :S=X-B*10 

490 IFK=0THEN700ELSEIFG>200THEN660ELSEIFZ9=1ORZ7=1THEN550 

500 PRINT"YOU HAVE ENTERED A COMBAT AREA WITH YOUR SHIELDS LOW." 

;W$;" 

THIS TIME THEY DIDN'T SHOOT FIRST. YOU HAVE BEEN WARNED. ...": Z9= 

1:GOTO660 

550 PRINT"COMBAT AREA .. CONDITION RED - SHIELDS ARE DANGEROUSL 

Y LOW. 

660 GOSUB4900 

700 IFBO0FORI=1TOB:GOSUB3350:S(X,Y)=5:NEXT 

710 IFSO0FORI=lTOS:GOSUB3350:S(X f Y)=4:NEXT 

720 ST=4:GOSUB5120 

760 PRINT@204,USINGCO$jL;M;:PRINT@332,USINGCO$;U;V;:PRINT§640 r ;: 

IFCL=1PRINT"SENS0RS DETECT KLINGONS CLOAKING - PHASERS NECESSARY 

";W$ 

770 IFD ( 2) <0O=0 : A=2 : GOTO850ELSEO=1 : Z=81 : F0RY=1T08 : F0RX=1T08 : PRIN 

T@X*3+Z f A$(S(X,Y) ) ;:NEXTX:Z=Z+64:NEXTY 

780 IFKO0IFZ7=1IFRND(2) >1GOSUB2230ELSEELSEZ7=1 

830 A=0:GOSUB860:PRINT@580 r X$+CHR$(29)+"COMMAND?";:M2=0 

835 11 = 

840 H=H+1 : IFH=350THEN870ELSEA$=INKEY$ : IFA$=""THEN840ELSEH=0 : IFAS 

C(A$)=13THENPRINT@640,CHR$(31)ELSEGOSUB860:A=VAL(A$) :PRINT@590,A 

; : IFA=0ORA>8THEN840ELSEPRINT@494 , B$ ( A*2-l) ; : PRINT0558 , B$ ( A*2) ; : G 

OTO840 

845 IFA<3ORD(A)>=0PRINT@576 ,"#################"; :PRINT@640 , ; :ONA 

+1GOT083 0,960, 760, 1460, 1560 ,1740 ,2030, 2090 ,2770 ,830 

850 PRINTDS(A);" - INOPERATIVE" ; W$ : IFA=4ANDCL=1PRINT" ILLOGICAL T 

REMAIN HERE, KLINGONS CLOAKING" :GOTO830ELSE830 

860 PRINT@591," "; :PRINT@494,X$; : PRINT@558,X$; : RETURN 

870 GOSUB5170:PRINT@640,;:GOSUB1100:IFKO0IFRND(2)>1GOSUB2230:GO 

TO835ELSE835ELSEIFRND(10)<9THEN835ELSEGOSUB5170:IFL<1ORL>8ORM<1O 

RM>8THEN835ELSEFORN=1TO8:FORQ=1TO8:X=INT(G(N,Q)/100) :IFX=0NEXTQ, 

N 

890 G(N,Q)=G(N,Q)-X*100:G(L,M)=G(L,M)+X*100:K=X:PRINT"KLINGONS H 

AVE JUST ENTERED THIS QUADRANT" ;W$:GOSUB4900:GOSUB5120:GOTO760 

960 PRINT8640 , t : INPUT"COURSE (1-9) " jC: IFC=0THEN830ELSEIFC<1ORC>9 

THEN960ELSEPRINT@569, USING"*. #";C;:IFC=9C=1 

980 PRINT@640,;:INPUT"WARP FACTOR (0-8) ";W: IFW=0THEN830ELSEIFW<0 

ORW>8THEN980 

1020 IFD(1)<0ANDW>.2PRINTD$(1) ;" DAMAGED, MAX. SPEED IS WARP 0.2 

" : W= . 25ELSEIFW< . 9W=W*1 . 25 

1040 GOSUB1100:GOTO1200 

1100 IFST=0RETURNELSER=0 : F0RI=1T08 : IFD ( I ) >=0NEXTELSED ( I ) =D ( I ) +1 : 

IFD ( I ) =0R=I : 1=8 : NEXTELSENEXT 

1110 IFD(7)<0RETURNELSEPRINT@640,;:IFRO0PRINTD$(R) ;" NOW FUNCTI 

ONING CORRECTLY"; :GOT011 90 

1130 IFRND(10)<9RETURNELSER=RND(8) :ONRND(2) GOTO1150,1180 

1150 D(R)=D(R)-RND(5) :IFD(R)<0PRINTD$(7) ;" REPORT - ";D$(R);" OU 

T"; :GOTO1190ELSERETURN 

1180 D(R)=D(R)+RND(5) :PRINTD$(7) ;" REPORT - ";D$(R);" - REINFORC 

ED"; 

1190 PRINTW$;:GOSUB5000:GOTO5150 

1200 GOSUB2230:N-W*8:F=E/(5*(G/100+1)) :IFN<=FTHENF=0ELSEN=F:F=1 

1210 X=U:Y=V:S(X,Y)=0 

1230 GOSUB1320:FORH=1TON:GOSUB1330:ONZGOTO1270,1275,1340 

1270 NEXT:IFF=0THEN1310ELSEH=H-1:GOTO1290 

1275 IFM2=1PRINT"SERI0US DAMAGE HAS OCCURRED - CHECK ";D$(6):FOR 

I=1T08 : D ( I ) =D ( I ) -RND ( 5) +1 : NEXT 

1280 PRINT"NAVIGATIONAL ERROR - ";:GOTO1300 

1290 GOSUB5128:PRINT"ENERGY DEPLETED - "; 

1300 X=X-X1:Y=Y-Y1:N=H-1:PRINTUSINGD$(1)+" SHUT DOWN AT SECTOR" + 

CO$+W$;X;Y 

1310 U=INT(X+.5) :V=INT(Y+.5) :S(U,V) =3:GOSUB5095: IFW<1THEN760ELSE 

GOSUB5170:GOTO760 

1320 D=C:X1=C(D,1)+(C(D+1,1)-C(D,1))*(C-D) :Y1=C(D,2) +(C(D+1 ,2) -C 

(D,2))*(C-D) : RETURN 

1330 X=X+Xl:Y=Y+Yl:C=INT(X+.5) :D=INT(Y+.5) : IFC<10RO80RD<10RD>8Z 

=3 :RETURNELSEIFS(C,D)O0Z=2:RETURNELSEZ=1: RETURN 

1340 FORJ=1TO8:FORI=1TO8:S(I,J)=0:NEXTI,J:U=L*8+U+X1*N:V=M*8+V+Y 

l*N:L=U/8:M=V/8:U=INT(U-L*8+.5) :V=INT(V-M*8+.5) : IFU=0L=L-1:U=8 

1350 IFV=0M=M-1:V=8 

1360 GOSUB5170:GOSUB5095:GOTO450 

1460 0=0 : A=84 : PRINT6A , Y$ ; : F0RJ=M-1T0M+1 : F0RZ=1T03 : N ( Z ) =0 : NEXT 

1480 FORI=L-1TOL+1:IFK1ORI>8ORJ<1ORJ>8THEN1510 

1490 N(I-L+2)=G(I,J) :IFD(8) <0THEN1510 

1500 Z(I,J)=G(I,J) 

Program continues 



New 
Products 

For the TRS-80* 

MODELS 1*1 



Digital I/O Pert 

♦ teaching newsletter 

Control the outside world from Basic 
or machine language: 8 TTL outputs. 
6 inputs, assembled and tested PC 
Board to simplify construction Helpful 
newsletter teaches beginners interface 
techniques All necessary hardware, 
custom front panel, and reference 
manual included (order connector 
below) $47.00 newsletter $2.50 




T T Y- interface 

_____ -fTf) ,ow cost printout 

■1 ^ "^ ^ Convert any ASCII or Baudot teletype 
_ #* •© ^T lo a TRS-80 printer: no expansion 
C " * interface needed $62.00; optional loop 

- T " supply $30.00; write for more info. 



Radioteletype 























RTTY 
80 


CSS 









wireless computerhnk 

The lowest cost way to get into the 
world of "RTTY" Shortwave listeners 
can now use their TRS-80 to monitor 
foreign and domestic news services 
Amateur radio operators can also 
transmit to their RTTY friends Simple 
to install hardware, easy to use soft- 
ware (with many features not found on 
most teletype systems) . . $95.00; for 
detailed information request our flyer 



LIGHT* PEN 

with sophisticated software 

Add excitement to your software, 
LTPEN-80 adds five new functions to 
Basic, in an instant, pick any (X.Y) 
point or character position on the 
screen simply by pointing the pen 1 : 
enhance games . simplify user entry 
$27.00; (all software included) 




Phone-HODEH 

RS-232 not needed! ! 1 1 

The low cost alternative to buying 
an expensive RS-232 interface and 
modem The PHone mODEM emulates 
these functions in software, greatly 
reducing the amount of hardware 
needed. The PHODEM connects di- 
rectly to your phone line and can even 
dial directly from the TRS-80 key- 
board Get in touch with the informa- 
tion services at a price anyone can 

a "" rdl M50 ° 




the 

CUSTOM 

TRS-80! 

a gold mine of information on TRS-80 interfacing, 
especially helpful to APIO-80 users, innovative new 
mass storage systems, and many other projects to 
expancUheuseso^ou^T^S^Oanowcos^MjOp^ 



J3 



CONNECTORS 

MODEL I (40 pin) ft MODEL I (SO pin) 

. . . allows the user to connect to the expansion 
port of the TRS-80; included is an information sheet 
describing the signals available on the buss and 
how to use them; also a special section revealing 
the secrets necessary to use the M odel 3 buss. 
(order 1 connector tor each APIO-80 ■■^■■H 
P^^^^ByOu purchase) specily model 1 or 3. $7.50 



PosHg^paidvvithinUS^^^ToreTgn orders remit 
U.S. funds plus extra postage. For instant informa- 
tion on our products call our recording phone 
line (or write) for our new flyer. 



S^^^TWm^^T Q for more info, call O 

.5irill=A 717/733-47E9 
a-i electronic innovations 

^** ■ Box 4Q34 LANCASTER PA 17604 



^139 



■ See List of Advertisers on page 322 
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MICRO-80™ CASSETTES— 
100% ERROR-FREE 




LENGTH 

C-10... 
C-20. . . 



PACK PACK 

.69c 59c 
.89c 79c 



• Fully Guaranteed! 

• Premium 5-Screw Construction 

• Used By Software Firms Nationwide 

• Custom Cases, Add 19$ Each 

• Shipping, Add $1.50 Per Pack 

COD HOT LINE 
1-<206)-675-6143 



^476 



MICRO-80™ INC. 

E-2665 NO. BUSBY ROAD 
OAK HARBOR. WA 98277 



m sick ac 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated initialization 

• EDIT & LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or hourly 

• SPECIAL PAY— special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation or dept. 

• PAYSTUB shows Year-to-Date 

• STATE— FICA— FED. TAXES— SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $10.00 
Disk & Documentation $95.00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list of all property 

• PRINTOUT shows— I. D. Number— description— 

• Yr. purchased — life— method— 
1st yr. additional depreciation— 

• Reg. deprec— deprec. prior yrs.— balance 

• SUMMARY— total value prop.— additional 1st yr. 

• REGULAR deprec— deprec. prior yrs. 

• PERMANENT records for your taxes 

Documentation $15.00 
Disk & Documentation $195.00 

MIN: 32K-1 DISK-PRINTEFU132 CPI 

TERMS: Personal checks require 3 weeks to clear. 

USE-VISA-MASTER CHARGE-MONEY ORDERS 

TEL 7 PM-9:30 PM EASTERN— (617) 359-2364/6370 

SEND: SASE for additional information 

MEDFIELD " 421 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD, MA 02052 



Program continued 

1510 NEXT 

1520 A=A+64:PRINT@A, USING" : ### : ### : ### : ";N(1) ;N(2) ;N( 

3) ; :A=A+64:PRINTgA,Y$; :NEXT: A=A+64:PRINT@A, Z$; :GOTO830 

1560 IFST=0PRINTC$(0) ;" - "; :GOTO850ELSEIFK=0GOSUB5250:GOTO830 

1590 GOSUB5150:Z7=1:IFD(8)<0PRINTD$(8);" FAILURE. MANUALLY "; 

1610 PRINT"LOCKED ON. ENERGY=";E; ". . . "; 

1620 INPUT"UNITS TO FIRE" ;F: IFF<=0THEN830ELSEIFF>ETHEN1590 

1640 E=E-F:GOSUB5100:IFD(8)<0F=RND(F) 

1650 R=640 : FORI=lT03 : IFK ( I , 3) <0THEN1710 

1670 H=F/K:J=.98:GOSUB4800:K(I f 3)=K(I f 3)-H:PRINT" KLINGON - "+W$ 

;:IFK(I,3)<0X=K(I,1) :Y=K(I,2) :GOSUB5195ELSEPRINTUSING"AT SECTOR" 

+CO$+" (### LEFT)";K(I,1);K(I,2);K(I,3) :GOSUB5000 

1710 NEXT:GOSUB2230:GOTO830 

1740 IFP>0THEN1760ELSEPRINT"ALL PHOTON TORPEDOES EXPENDED .": GOTO 

830 

1760 IFCLO0GOSUB5260:GOTO830 

1780 PRINT@640,B$ (10);: INPUT" COURSE (1-9) " ;C: IFC=0THEN830ELSEIF 

C<10RO9THEN17 80ELSEIFC=9C=1 

1800 Z7=1:GOSUB5180:GOSUB1320:X=U-X1:Y=V-Y1:GOTO1830 

1810 PRINTf3Q,"+";:GOTO1830 

1820 PRINT§Q," "; 

1830 GOSUB1330:IFZ=3THEN2020ELSEIFY=INT(Y)ANDO=1THENGOSUB5230:PR 

INT@Q f ".";:ONS(C f D)+lGOTO1820 ,1900 ,1820 ,1810, 1970, 1990ELSEONS(C r 

D)+1GOTO1830, 1900, 1830, 1830, 1970, 1990 

1900 FORI=1TO3:IFC=K(I,1)ANDD=K(I,2)K(I,3)=-1:X=C:Y=D:R=640:GOSU 

B5195 

1920 NEXT:GOTO2025 

1970 PRINT@640,USINGB$(10)+" CAPTURED BY STAR'S GRAVITY AT SECTO 

R "+CO$;X;Y:GOTO2025 

1990 GOSUB5210:PRINT@640,"*** STAR BASE DESTROYED *** ... CONG 

RATULATIONSll":B»B-l:BT=BT-l:M2=l:X=C:Y»D:GOSUB5190:PRINT@704,"R 

ESULTING EXPLOSION HAS BLOWN YOU OFF COURSE" :C=RND(8) :W=RND( 8)/2 

:GOTO1200 

2020 PRINTS660," - ";B$(10);" MISSED." 

2025 GOSUB2230:GOTO760 

2030 IFST=0PRINTC$(0) ;" - ";:GOTO850 

2040 PRINT@6 40,;: INPUT" TOTAL UNITS ON SHIELDS" ;X:IFX<0ORX>E+GTHE 

N2040ELSEE=E+G-X:G=X:GOSUB5100:GOSUB5110:PRINTg704, "ENERGY CONSU 

MPTION IS NOW";5*(G/100+1) ;" UNITS PER SECTOR" ;W$; :GOTO830 

2090 R=0:PRINT@576," NEXT... HIT •[• "; 

2100 A$=INKEY$:IFA$=""THEN2100ELSEIFASC(A$)=13THEN830ELSEIFA$<>" 

[ "THEN2100ELSER=R+1 : IFR>8THEN830ELSEGOSUB5160 :GOTO2100 

2230 IFK=0RETURNELSEIFST=0Z7=0:PRINT@76 8, "STAR-BASE SHIELDS PROT 

ECT THE ";V$; : RETURNELSER=640:FORI=1TO3:H=K(I ,3) : IFH<1NEXTELSEJ» 

1:GOSUB4800:PRINTUSINGV$+" FROM SECTOR"+CO$+W$;K(I ,1) ;K(I,2) :G=G 

-H:GOSUB5010:NEXT 

2310 GOTO5110 

2330 PRINT"THE "V$;" IS DEAD IN SPACE. YOU ARE AT THE KLINGONS* 

MERCY" :FORZ=1TO6:GOSUB5000: NEXT 

2350 IFK=0THEN2390ELSEGOSUB2230:GOTO2350 

2360 PRINT"IT IS STARDATE " ;T;W$:GOTO2390 

2380 PRINT@768,"THE "+V$+" WAS DESTROYED, THE ";U$;" WILL BE CON 

QUERED 

2390 PRINT"THERE ARE STILL" ;KT; "KLINGON BATTLE-CRUISERS SURVIVIN 

G.":END 

2410 PRINT"THE LAST KLINGON BATTLE-CRUISER IN THE GALAXY IS DEST 

ROYED 11 

THE ";U$;" IS SAVED 11 YOUR EFFICIENCY RATING =";K7/(T-T0) *1000: 

END 

2770 CD=0 

2780 A=0:GOSUB860:PRINT@580,X$+CHR$(29)+"OPTION?"; 

2790 A$=INKEY$: IFA$=""THEN2790ELSEIFASC(A$) =13PRINT8576 , :ONA+lGO 

TO830, 3320, 2960, 3060, 3080, 3300, 2890ELSEGOSUB860:A=VAL(A$) : PRINTS 

590,A;:IFA>6A=0:GOTO2790ELSEF=A*2+17:PRINT§494,B$(F);:PRINTe558, 

B$(F+1);:GOTO2790 

2890 O=0:A=84:FORJ=1TO8:PRINT@A,;:FORI=1TO8:PRINTUSING"###";Z(I, 

J) ; :NEXT:A=A+64:NEXT:GOTO2780 

2960 0=0 :FORA=84T0532STEP64:PRINT@A,Y$;: NEXT: PRINT884," STAT 

US REPORT: ";:PRINT@212," KLINGONS LEFT=";KT; :PRINT§276 ," STAR 

DATES LEFT=";T0+TT-T;:PRINT@340," STARBASES LEFT=" ;BT; :GOTO2780 

3060 IFK=0GOSUB5250:GOTO2780ELSECC=U:A=V:FORF=1TO3:IFK(F,3)<0THE 

N3290ELSEW=K(F,1) :X=K(F,2) :GOTO3110 

3080 INPUT"START AND END CO-ORDINATES ARE (X,Y f X,Y) " ;CC,A,W,X 

3110 PRINT@704,;:X=X-A:A=CC-W:IFX<0THEN3200ELSEIFA<0THEN3230ELSE 

IFX>0THEN3140ELSEIFA=0THEN3210 

3140 CC=5 

3150 IFABS(A) <=ABS(X)THEN3180ELSECC=CC+( ( (ABS(A) -ABS(X) ) +ABS(A) ) 

/ABS(A)) :GOTO3280 

3180 CC=CC+ABS(A)/ABS(X) :GOTO3280 

3200 IFA>0CC=7 :GOTO3240ELSEIFX=0THEN3230 

3210 CC=1:GOTO3150 

Program continues 
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The MX-100. Not just better. Bigger. 



Epson. 



Our MX-80 was a pretty tough act to follow. I mean, 
how do you top the best-selling printer in the world? 

Frankly, it wasn't easy. But the results of all our 
sleepless nights will knock your socks off. 

The MX-100 is a printer that must be seen to be be- 
lieved. For starters, we built in unmatched correspon- 
dence quality printing, and an ultra-high resolution bit 
image graphics capability. Then we added the ability to 
print up to 233 columns of information on 15" wide 
paper to give you the most incredible spread sheets 
you're ever likely to see. Finally, we topped it all off 
with both a satin- smooth friction feed platen and fully 
adjustable, removable tractors. And the list of standard 
features goes on and on and on. 

Needless to say, the specs on this machine — and 
especially at under $1000 — are practically unbelievable. 
But there's something about the MX-100 that goes far 



beyond just the specs; something about the way it all 

comes together, the attention to detail, the fit, the feel. 

Mere words fail us. But when you see an MX-100, you'll 

know what we mean. 

All in all, the MX-100 is the most remarkable printer 

we've ever built. Which creates rather a large prob- 
lem for those of us at 
Epson. 

How are we going to 
top this? 

Your next printer. 




EPSON 

EPSON AMERICA, INC. 



23844 Hawthorne Boulevard • Torrance, CA 90505 • (213) 378-2220 
See the whole incredible Epson MX Series of printers at your Authorized Epson Dealer. 



• 404 



^See List ol Advertisers on page 322 
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**SPECIAL**SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



9 INTERFACE, INC '™ 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



KEEPIT 3.0 

Enhances Level II Basic 
Written by Dennis Bathory Kitsz 

KEEPIT performs these functions: 

• Single-step a Basic program 

• Reset Memory Size from Basic 

• Save a running program with variables 

• Save machine code or a memory block 

• Restore an accidentally deleted program 

• Observe & change memory locations 

KEEPIT also features: 

Keyboard debounce, audible beep, and auto- 
repeat! KEEPIT 3.0 is written in machine 
language and resides in less than 1,000 bytes of 
high memory. EDTASM source code is supplied 
so the user can relocate KEEPIT to any conven- 
ient location. 

How to order KEEPIT: 

Level II users will wonder how they ever 
lived without it! KEEPIT 3.0 is extremely 
valuable as a time and frustration saver! To 
receive your copy, send your name, address 
and just 89.95 to: 

(■■I]]! " 138 1806 Ada Street 

fllaiSJr Lansing, MI 48910 

\ W' Ph - 5 17/435-0344 

'C^' 1 or 487-3358 



Visa & Master Charge add 4%. 
C.O.D. add SI. 50. 
Add 75c for First Class Delivery- 
All orders shipped within 24 hours! 



Program continued 

3230 CC=3 

3240 IFABS ( A) >=ABS (X) CC=CC+ABS (X) /ABS ( A) ELSECC=CC+( ( ( ABS (X) -ABS ( 

A))+ABS(X))/ABS(X)) 

3280 PRINT0704, "COURSE ■" ;CC; :CD=INT(SQR(X[2+A[2) ) tPRINT" , DISTA 

NCE =";CD:GOTO27 80 

3290 NEXT:GOTO2780 

3300 IFD(5)<0THEN850ELSEIFP<1ORCL«1THEN1740ELSEIFCDO0THENC=CC:G 

OTO1800ELSE3330 

3320 IFCDO0C=CC:W=CD:GOTO1020 

3330 PRINT"N0 DATA AVAILABLE FOR GUIDANCE SYSTEM" :GOT027 80 

3350 X«=RND(8) :Y-RND(8) : IFS(X,Y) O0THEN3350ELSERETURN 

3460 PRINT" 

YOU ARE THE COMMANDER OF THE STARSHIP 'ENTERPRISE'- YOUR MISSION 

TO DESTROY KLINGON BATTLE-CRUISERS THREATENING THE FEDERATION - 



"TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE' 



; 



3465 PRINT" 

YOU MUST DO THIS WITHIN 32 STARDATES."; 

3470 PRINT" 

THE GALAXY IS REPRESENTED AS A 64 BY 64 MATRIX MADE UP FROM 8 
8 BY 8 QUADRANTS - EACH CONTAINING 8 8 BY 8 SECTORS. 

THE FOLLOWING OBJECTS ARE GRAPHICALLY REPRESENTED"; 

3475 PRINT" 

<+> - THE ENTERPRISE. 

+++ - KLINGON BATTLL CRUISER. 

>I< * STARBASE. 

. * STAR. 
3480 GOSUB4790 
3485 PRINT" 

STARS ( . ) ... THESE ARE OBSTACLES. KLINGONS CAN HIDE BEHIND 
THEM. IF YOU BUMP INTO THEM, YOU MAY DAMAGE YOUR SHIP."; 
3495 PRINT" 

STARBASES ( >1< ) ... REFUGE AND REFUELLING POINTS. TO DOCK WITH 
A BASE, YOU MERELY NAVIGATE TO EITHER SIDE OF IT. REFUELLING IS 
DONE AUTOMATICALLY - YOU MAY USE A BASE ANY NUMBER OF TIMES."; 
3505 PRINT" 

KLINGONS ( +++ ) ... THE ENEMY. THEY OFTEN SHOOT FIRST AND ASK 

QUESTIONS NEXT. THEY ARE ARMED WITH PHASERS AND DEFLECTOR"; 

3515 PRINT" 

SHIELDS, BUT SOME ARE ARMED WITH CLOAKING DEVICES WHICH MAKE 

THEM INVISIBLE AND IMMUNE TO PHOTON TORPEDO ATTACK."; 

3520 PRINT" 

THE ENTERPRISE ( <+> ) ... THAT'S YOU. A MODERN POWERFUL WARP- 
DRIVE SHIP, WITH ALL THE LATEST DEVICES, SUCH AS; SCANNERS, 
PHASERS, PHOTON TORPEDOES, DEFLECTOR SHIELDS, AND AN ON-BOARD 
COMPUTER. THESE ARE DESCRIBED NEXT."; 
3525 GOSUB4790 
3530 PRINT" 

COMMAND 1 .... WARP ENGINE CONTROL. IT IS IMPORTANT TO KNOW THE 
CIRCULAR VECTOR ARRANGEMENT AS SHOWN. INTEGER AND REAL VALUES 
MAY BE USED. E.G. 1.5 IS HALFWAY BETWEEN 1 AND 2."; 
3540 PRINT" 



1 WARP FACTOR 
MOVES EXACTLY 
1 QUADRANT, 
.1 WARP FACTOR 
MOVES 1 SECTOR 
3545 PRINT" 



VECTOR OF 9 IS UNDEFINED 
BUT VALUES MAY APPROACH 9 



7. 



, .3 
4"; 



TO MOVE FROM QUADRANT 5,5 TO 6,5 YOU WOULD USE COURSE 3, 

WARP FACTOR 1. USE WARPS LESS THAN 1 TO MOVE SECTOR TO SECTOR."; 

3550 PRINT" 

COMMAND 2 .. SHORT RANGE SENSOR SCAN. DISPLAYS ON THE ENTERPRISE 

SCREEN THE IMMEDIATE QUADRANT, SHOWING POSITIONS OF ANY OBJECTS 

IN THAT GALACTIC QUADRANT."; 

3555 GOSUB4790 

3560 PRINT" 

COMMAND 3 .. LONG RANGE SENSOR SCAN. SHOWS CONDITIONS IN SPACE 

FOR 1 QUADRANT EACH SIDE OF THE ONE YOU ARE IN, WHICH IS DISPLAY 

ED IN THE CENTRE. THE SCAN IS IN THE FORM XXX , WHERE THE UNITS 

DIGIT IS THE NUMBER OF STARS, THE TENS DIGIT IS"; 

3570 PRINT" THE NUMBER OF 

STARBASES, THE HUNDREDS DIGIT IS THE NUMBER OF KLINGONS."; 

3575 PRINT" 

Program continues 
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Program continued 

COMMAND 4 .. PHASER CONTROL. THIS ALLOWS YOU TO AIM PURE ENERGY 
AT ANY KLINGONS IN THE VICINITY. EACH PHASER BURST WILL DEPLETE 
HIS SHIELDS AND REDUCE HIS PHASER CAPABILITY - AND YOUR ENERGY." 

3580 PRINT" 

COMMAND 5 .. PHOTON TORPEDO CONTROL. ENABLES YOU TO COMPLETELY 
DESTROY A KLINGON WITH A SINGLE HIT. TORPEDO COURSE IS THE SAME 
VECTOR ARRANGEMENT AS ALREADY DESCRIBED. 

":GOSUB4790 

3585 PRINT" 

COMMAND 6 .. SHIELD CONTROL. ALLOWS PROTECTION OF THE ENTERPRISE 

BY PLACING SHIP'S ENERGY ONTO THE DEFLECTORS - INCREASES FUEL 

CONSUMPTION THOUGH."; 

3595 PRINT" 

COMMAND 7 .. DAMAGE CONTROL REPORT. SHOWS STATE OF REPAIR OF ALL 

DEVICES. A STATE OF LESS THAN ZERO MEANS THAT DEVICE IS 

TEMPORARILY DAMAGED."; 

3605 PRINT" 

COMMAND 8 .. ON-BOARD COMPUTER - CONTAINS FOLLOWING OPTIONS: 
OPTION 0. FINISHED WITH COMPUTER, RETURN CONTROL TO CONSOLE. 
OPTION 1. COMPUTER GUIDES YOU ON THE COURSE FROM OPTION 4 
OPTION 2. STATUS REPORT - SHOWS HOW FAR THE MISSION HAS GONE 

3610 PRINT" OPTION 3. GIVES BEARING OF ANY KLINGONS IN THE QUAD 

RANT 

OPTION 4. SHOWS VECTOR NEEDED TO TRAVEL BETWEEN INPUT CO-ORDS. 
OPTION 5. GUIDED PHOTON TORPEDO ON COURSE FROM OPTION 3."; 

3615 PRINT" 

OPTION 6. CUMULATIVE RECORD OF ALL LONG RANGE SENSOR SCANS. 

3620 GOSUB47 90: RETURN 

4790 PRINT@999, "PRESS ENTER TO CONTINUE:"; 

4795 A$=INKEY$:IFA$<>""THENRETURNELSE4795 

4800 H=(H*2/SQR((K(I,1)-U) [ 2+ (K (I ,2) -V) [ 2) ) * ( J*RND( 0) +.2) :R=R+64 

:PRINT@R f USINGW$+"### UNIT HIT ON ";H;:RETURN 

4900 IFKO3IFRND(10) >7CL=1 

4910 F0RI=1T03 : K ( I , 3) =-1 : NEXT: FORI=lTOK : GOSUB3350 : S (X ,Y) =CL+1 : K ( 

1 , 1 ) =X : K ( 1 , 2 ) =Y : K ( 1 , 3 ) =20 : NEXT : RETURN 

5000 F0RZZ=1E3T01.8E3: NEXT: RETURN 

5010 FORZZ=0TOH*.25:OUT255,8:ZZ=ZZ+.1:OUT255,0:ZZ=ZZ-.1:NEXT:RET 

URN 

5030 CLS:FORA=1TO28STEP27:Z=3:FORX=40TO87:SET(X,A) : Z=Z+1 : IFZ=6TH 

ENZ=0:SET(X,A-1) :SET(X,A+1) :NEXTELSENEXTX,A 

5040 FORA=38T089STEP51:Z=2:FORX=lT028:SET(A,X) : Z = Z+1 : IFZ03NEXTE 

LSEZ=0:SET(A+1,X) :SET(A-1,X) :NEXTX,A 

5045 X=1:Z=25:GOSUB5050:X=88:Z=19:GOSUB5050:FORX=88TO126:SET(X,2 

8) : NEXT :GOT05 090 

5050 FORX=XTOX+38:FORY=lTOZSTEP6:SET(X,Y) :NEXTY,X : RETURN 

5090 PRINT@66 , "STARDATE" ; : PRINT@194 , "QUADRANT" ; : PRINT@245 , "ENERG 

Y" ; : PRINT@322 , "SECTOR" ; : PRINT@373 , "SHIELDS" ; : PRINT@450 , "PHOTON T 

."; :GOTO5150 

5095 E=E-((N*5)*(G/100+1)) 

5100 PRINT@238,USING"####";E;:GOSUB5120 

5110 PRINT@366,USING"####";G;:GOSUB5150:IFG<0THEN23 80ELSERETURN 

5120 FORZ=U-lTOU+l:IFZ<10RZ>8NEXTELSEIFS(Z,V)=5THENZ=U+l:GOSUB52 

40:NEXT:GOTO5130ELSENEXT 

5122 IFK=0THEN5126 

5124 IFSTO3ST=3:GOTO5140ELSE5130 

5126 IFE>300ST=1:GOTO5130ELSEIFE>5*(G/100+1)IFSTO2ST=2:GOTO5140 

ELSE5130 

5128 PRINT@640,;:IFG=0THEN2330ELSEPRINT"YOU HAVE" ;E; "UNITS OF EN 

ERGY. SHIELDS ARE TAKING" ;G; "UNITS" :GOSUB5000: IFD (6)<0PRINT"BUT, 

";D$(6);" IS OUT. SITUATION IRRECOVERABLE. " :GOTO2330ELSE5124 
5130 PRINT@110,C$(ST) ;:GOTO5150 
5140 FORFL=1TO4:PRINT@110,C$(ST) ; :FORZZ=1TO50 :NEXT: PRINT@110 , " 

"; :FORZZ=1TO50:NEXTZZ,FL:GOTO5130 
5150 PRINT@640,;: RETURN 

5160 PRINT§576,X$;:PRINT@576,D$(R) ; :PRINT@590 ,D(R) ;:GOTO5150 
5170 T=T+1 : PRINT@77 , T; : GOSUB5150 : IFT>T0+TTTHEN2360ELSERETURN 
5180 IFST=0P=10ELSEP=P-1 
5185 PRINT@462,P; :GOTO5150 

5190 GOSUB5210:S(X f Y)=0:G(L,M)=K*100+B*10+S:RETURN 
5195 K=K-1:GOSUB5190:GOSUB5120:PRINT@R+28,USING"KLINGON AT"+CO$+ 
" DESTROYED"+W$;X;Y:KT=KT-1:IFKT=0THEN2410ELSEGOSUB5000:IFK=0CL= 

: RETURNELSERETURN 

5200 ST=0:FORZ=1TO8:D(Z)=0:NEXT:E=5000:PRINT@237,E;:GOSUB5180:G= 

0:GOTO5110 

5210 IFOO1RETURNELSEGOSUB5230:FORZ=1TO30:PRINT@Q+RND(3)-2,CHR$( 

128+RND(62) ) ; :NEXT 

5220 PRINT@Q-1," ";:GOTO5150 

5230 Q=18.5+X*3+64*Y:RETURN 

5240 IFST=0RETURNELSEPRINT@640, "SHIELDS DROPPED FOR DOCKING PURP 

OSES";W$:GOSUB5200:GOTO5140 

5250 PRINT"SENSORS DETECT NO KLINGONS IN THIS QUADRANT" : RETURN 

5260 PRINTD$(5);" WILL BE OF NO USE - " ;B$( 8) ;W$? .-RETURN 




It lilt!! »n la.tnlur. «hlc N Ilka 1 flick INIn«l»i l»t llrltl|>' 
Different from fixed adventures 

• Suptr inpftlct iwith comprehensive map on screeni 

• litiricllirt Sun* (directions included tor use) 

• Um lalift proiriramlni ticliniqiiii (Machine routines, 
etc i 

• Fitt PacK 

the creator s ghost has sensed an intruder and he 
is determined to hunt you do*n (His intelligence in 
tracking was set Dy youl This feature makes this 
simulation unlike others tor you're always ' on the 
go 

• Wrlttin If in iiparlincirJ fimir ill tantasy role-playing. 
Cased on the game Dungeons 4 Oragons. 

Oblictivi Vour character begins on the lust ol a three level 
dungeon, searching lor magical stones which permit you 
to descend to the next lower level 

Thl »dvtnluri There are numerous traps and over a 
dozen hostile monsters that come in various sizes shapes 
and degrees ol nastmess It has various treasures and 
magic items iweapons. einers. cloaks, scrolls, etc l You 
can become one ol three classes, a lighter, a theil or a 
magic-user Each class has its own advantages and dis- 
advantages Each time you play you get a totally different 
and exciting game 

This short description only begins to ten you of the many 
adventures and some of the features ol this exciting game 
This will be your favorite adventure game 1 
Complete documentation included 
You must specify Model I or Model III Avialable on 
Tape. 16K $14 50 

Diskette. 32K S1950 

Please include SI 50 shipping, handling Send your address, 
specifications, and check or money order to 



lUarlnrU lUatrluuisr 

1691 Eason • Pontiac. Ml 48054 

(3131673-2224 • (3131673-8700 

Dealer Inquires Invited' 



^433 



PPI-80 



PARALLEL I/O 
FOR THE TRS-80 

3 socketed parallel ports with +5 and 
ground at each socket. Switch selectable 
address decoding handshaking and kluge 
area. For a complete description see article 
September 1980. 
Bare board & assembly manual $ 26.00 

Kit of parts $ 94.00 

Assembled and tested $127.00 

ACCESSORIES 

8 channel A/D assembled & tested $45.00 

Music synthesizer board for the AY3-8910 

(3 voices) & software $35.00 

EPROM Programmer EP-2A-79 by Optimal 
Technology $169.00 

OTHER 

Power supply circuit board ±5, ±12 pro- 
vides a total of 3 amps $1 5.00 
Lower case modification — 
Kit of all parts $19.95 

To order, send payment plus $2.00 shipping 
and handling 

Quant Systems ^271 
P.O. Box 628 
Charleston, S.C. 29402 
803-571-2825 

S.C. residents add 4% sales tax 
Overseas orders add $7 for shipping 



-See List ol Advertisers on page 322 
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GAME 



Three word games in one. 



Frankenstein 




Robert A. Nicholas 
2-B Lennox Heights 
Lenox, MA 01240 



Playing word games on the computer is 
fun. Using the machine to select a ran- 
dom word from a large word pool eliminates 
the need for another person to pick words 
for the player. There is one hassle involved, 
however, particularly when you use tape 
rather than disk— it takes a long time to 
load a game. When you get tired of one 
game and want to move on to another, you 
have to wait a few minutes while the new 
one is loaded. 

Frankenstein eliminates that problem by 
providing three word games in one program: 

•Frankenstein-hangman. 
•Jumbles— unscrambling words. 

•Guess-a-word — a tougher word game! 

Be sure to connect the auxiliary jack (the 
large gray plug leading to your tape record- 
er) to an amplifier or speaker so you can en- 
joy the sound effects while playing. A little 
animation has been added to Frankenstein 
to heighten your playing enjoyment. 

The program requires Level II Basic with 
at least 16K and Disk Basic with 32K. There 
is a machine language sound routine, but 
you are not to reserve memory size for it— 



the program does that by itself! In fact, if 
you have set a specific memory size, you 
better reboot your system before loading 
Frankenstein or you may drive him crazy. 
(This is done in lines 30 to 70.) 

A brief set of playing instructions is con- 
tained within the program itself. 

Frankenstein 

The object is to guess the computer's 
chosen word one letter at a time before the 
monster comes alive. Simply press the key 
for the letter you wish to try next— do not hit 
Enter. The computer will only accept upper- 
case letters, the asterisk and a slash. 

If your guess is contained in the mystery 
word, the computer will put it in its correct 
position(s) and remove it from the alphabet 
list appearing at the bottom of the screen. If 
it isn't used in the word, the monster ac- 
quires another body part (recently removed 
from some grisly graveyard). If you enter a 
letter you've already guessed, the computer 
will inform you of your error and let you try 
again. 

You may decide you know what the word 
is and would like to guess it right away. 
Press the slash key instead of a letter and 
you will be offered the opportunity to guess 
the unknown word. If you are correct you 
win but if you're wrong the monster gets 
another body part. 

Frankenstein makes losing fun. Electric 
sparks zap his head from the two power 
generators on either side of him, he comes 
to life and waves his arms up and down in 
joy. He won't reach out and crush you, he 
just asks if you want to play again. 

If you decide at any time that you want to 
give up and return to the menu, enter the as- 
terisk as your response. 

Jumbles 

Examine the jumbled word the computer 
gives you and try to figure out what it 
should be. Type your corrected version and 
see if you were right: If you are, you get an 
ascending whoop and your score goes up. If 
not, a descending sound is played and your 



score plummets. If you decide to quit and 
return to the menu to try another game, 
press the asterisk as your response. 

Guess-a-Word 

This one isn't easy. The computer will 
show you how many letters are in the mys- 
tery word; your task is to discover what the 
word is. You can enter a guess word con- 
taining fewer than or as many letters as are 
in the word itself. If your guess is too long, 
the computer will ignore the extra letters. 

After each guess, those letters will be 
eliminated from the alphabet list at the bot- 
tom of your screen. If any of your letters 
were in the word but not in their correct po- 
sitions, they will be indicated beside the 
phrase "Correct but wrong place." Any cor- 
rect letters in your entry that were correctly 
positioned are placed in the blanks on the 
screen. 

This will be changed every time you make 
a guess, so be sure to keep a record of any 
information you receive. 

For example, suppose the mystery word 
is "beast". It will be shown to you on the 
screen as five blanks ( — ). If your first try 
was AEIOU, the computer will analyze your 
entry, and give you the following response: 

-E — 

CORRECT BUT WRONG PLACE-A 

You know that E is the second letter of 
the word, A is contained in the word but not 
in the first position (which is where it was in 
your guess) and that I, and U are not con- 
tained in the word. 

Either A or E could be in the word more 
than once. You must enter those letters 
more than once in your guess words to dis- 
cover this. 

Now suppose your second guess is 
RSTMN. The screen will read: 



CORRECT BUT WRONG PLACE-ST 

What happened to the E and A we already 
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Games from BIG FIVE will turn your computer into a 

TRS-80 HOME ARCADE 



SUPER 

NOVA- 




GALAXY 
INVASION® 



******* 

* ** * 



ATTACK 
FORCE 



COSMIC 
FIGHTER® 




METEOR 
MISSION II 



a 




NEW 
JOYSTICKS! 



If you and your TRS-80 have longed for a fast-paced arcade-type game that is 
truly a challenge, then SUPER NOVA is what you've been waiting for. In this 
two player machine-language game, large asteroids float ominously around the 
screen. Suddenly your ship appears and you must destroy the asteroids before 
they destroy you! (But watch out because big asteroids break apart into little 
ones.) The controls that your ship will respond to are thrust, rotate, hyperspace, 
and fire. All right! You've done it! You've cleared away all the asteroids! But what 
is that saucer with the laser doing? Quick! You must destroy him fast because that 
guy's accurate! As reviewed in May 1981 Byte magazine. 

The sound of the klaxon is calling you! Cruel and crafty invaders have been 
spotted in battle formation warping toward Earth at an incredible speed. Suddenly, 
your ship materializes just below the huge flock of invaders. Quickly and skillfully 
you shift right and left as you carefully fire your lasers at them. But watch out! A 
few are breaking out of the convoy and flying straight at you! As the whine of their 
engines gets louder, you place your finger on the fire button knowing all too well 
that this shot must connect — or your mission will be permanently over! With 
sound effects! 

Your TRS-80 screen has been transformed into a maze-like playfield for this 
game. As your ship appears on the bottom of the screen, eight alien ramships 
appear on the top. All of them are traveling at flank speed directly at you! Quickly 
and boldly you move toward them and fire missiles to destroy them. But the more 
aliens you destroy, the faster the remaining ones become. If you get too good you 
must endure the wrath of the keeper of the mazefield: the menacing "Flagship". 
You must destroy him fast because, as you will find out, that guy's accurate! With 
sound effects! 

With thousands of stars whizzing by you, your SPACE DESTROYER ship 
comes out of hyperspace directly under a convoy of aliens. Almost effortlessly, 
you skillfully destroy every last one. But before you can congratulate yourself, 
another set appears. These seem to be slightly more intelligent than the first set. 
Quickly you eliminate all of them, too. But your fuel supply is rapidly diminishing. 
You must still destroy two more sets before you can dock with your space station. 
All right! The space station is now on your scanners! Oh no! Intruders have 
overtaken the station! You must skillfully fire your neutron lasers to eliminate the 
intruders from the station before your engines run out of fuel and explode! With 
sound! 

As you look down on your space viewer you can see the stranded astronauts 
that are crying out for you to rescue them. But first you must maneuver your 
shuttle down through the asteroids & meteors before you can reach them. Great! 
You've got one! But now can you get back to the space station to save your fellow 
shipmate or will you crash and kill both of you? You can fire your lasers to destroy 
the asteroids, but watch out, because there could be an alien FLAGSHIP lurking 
behind! Includes sound effects! 

For S39.95 it's now possible to have the famous ATARI joystick interfaced 
with your Model 1. All of our tapes are now completely compatible with the 
joystick. Packaged with complete instructions, you can even use it with your own 
programs! If your old tapes do not say "Joystick Version" on them and you wish 
to exchange them for new Joystick versions, enclose S2 and your old tape. (Call 
or write for info on Mod 3 joysticks. 
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P.O. Box 907B-I85 • Van Nuys, CA 91409 • (213) 7B2- 6B61 



^357 



Prices per game: Level 2, 16K Cassette Mod 1/Mod 3— $15.95 
Level 2, 32K Diskette Mod 1/Mod 3— $19.95 
10% discount for 2 items, 15% for 3 or more (excludes upgrades). 
Please add $1 .50 per order for postage & handling, Calif, residents add 6% sales tax. 
Outside USA please add S3. 00 per order for postage & handling. 
We accept checks, money orders, and MC/Visa orders ($2.00 extra for COD). 



All games 1980 by Bill Hogue & Jeff Konyu. 

Programs are written in machine language for high quality graphics. 

Disk versions are self-booting and compatible with Mod 1 and Mod 3 disk systems. 

High scores are automatically saved after each game on disk versions. 

TRS-80 is a trademark of Tandy Corp. 

Dealers: All games now available in full color packaging, please inquire. 



BLACKJACK PLAYERS 

A YEARS INCOME IN 4 MONTHS. 

Bojic Strategy Tutors, for ths novic* I •»p«rt alike. 
Ui. our Tutor. S quickly I. am how to become A WINNER. 
Earn $40 hour. Learn the tecrett of our tuccett. Our Tutors 
will teach you how to: 

•• KT YOU« MONEY •* 

*• PlAY IACH HAND •* 

" NOT OH tAMCD ** 

"MA BUSINESS *• 

*•** UWAIE "" 



Our Tutors are not games! 1 1 They are serious* tools to 
moke winners out of you. The authors have spent 7 years 
playing A being winners. Now so can you, with the aid 
of our Tutors. Our Tutors af based on the strategies 
developed by Lawrence Revere. More advanced strategies 
are available call for info. Consultation is available 
for you by moil or phone. From 12pm 12om M.S.T 

PKG. 1 contains 10 Basic Tutors for Atlontlc City, or Neveda 
Rush $25 for 16K Mod I or Mod III. cass. (30 for 32K disk 
Please odd $2.00 for shipping. 

^205 
MICRO BLAJAK SYSTEMS INC. 
2800 NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA 86001 
(602) 774-5723 or (602) 774-7561 




For TRS-80* Color Computer. PET. Apple II 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write for FREE Catalogue 
MICRO LEARNING WARE ^ss 

BOX 2 I 34. N. MANKATO MN 56001 
507-625 2205 



VISA «. MASTER CHARGE ACCEPTED 

We p^y I V' loyally to' tclucit'Onrtl 

ProiSMrns listed with us 

Apple is a trademark of Apple Computer Co. 

TIS-SO Is a registered tradenuufc of TANDY CORP. 

Pet Is * tradcmarii of Commodore >us. Machines. 
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V HYPERLIGHT PATROL -*• +■ 
I the ultimate in space games 
f «*' »"*• «"° N 

* MAPMICS 
. 3D SIMUIAIION 
. SOUND 

» VOICE it yov Ko.f i t nlh.tn.i I 
$ I9 ' IB K DISK ONIY 

, 23 CREATURES 




"Frankenstein makes losing fun. 

Electric sparks zap his head. . . 

he comes to life and waves his arms. 



knew about? Because we didn't guess them 
this time, the computer doesn't show them. 
That's why you have to keep a record of 
what's going on. 

Since we already know that E is in the 
second place and A, S and T are in there 
somewhere, it shouldn't take too many 
more guesses to find that the answer is 
beast. 

If you decide to give up on this word but 
want to continue playing Guess-a-Word, 
enter / as your response. If you want to 



throw in the towel completely and go back 
to the menu, enter an asterisk. 

Typing the Program 

None of the remark statements are re- 
ferred to by the program. If you wish to 
eliminate them, feel free to do so, making 
sure the rest of the lines are numbered cor- 
rectly. 

Blank spaces have been eliminated to 
allow more memory space for the word list. 
If you want to create your own list of words, 



Program Listing 

10 REM FRANKENSTEIN 

20 REM ROBERT F. NICHOLAS 

30 POKE16561,150:IFPEEK(16562) >19lTHENPOKE16562 f 191 

40 CLEAR2000:DEFINTA-Z:IFPEEK( 16562 )<191THENML=32664:POKE16526 ,1 

52:POKE16527,127:GOTO60 

50 ML=-16 487 :IFPEEK( 14305 )<255THENDEFUSR0=ML:CMD"T"ELSEPOKE16526 

,152:POKE16527,191 

60 FORX=MLTOML+23 : READN: POKEX , N:NEXT:ML=ML+1 : POKE16553 , 255 :RAND0 

M:NW=300 

70 DATA 14,0,62,8,211,255,65,16,254,62,9,211,255,65,16,254,13,32 

,238,62,8,211,255,201 

80 CU$=CHR$(143) :CB$=CHR$(32) : ZP$=STRING$ (12,94) +STRING$(11, 93) 

90 CLS:PRINT@452,CHR$(23) ;"I'M THINKING UP SOME W0RDSI "; :PRINT@0 

, "CONNECT SMALL AMPLIFIER/SPEAKER TO AUXILLIARY PLUG FOR SOUND. 

100 DIMH$(NW) ,H(NW) ,A$(90) ,A(90) ,W$(90) ,W(90) ,U$(50) ,U(50) 

110 REM READ WORD LIST 

120 F0RN=1T0NW:READH$(N) :PRINT@660,H$(N) ;CHR$(30) ;:NEXTN:CLS 

130 INPUT-WOULD YOU LIKE DIRECTIONS" ;Y$:Y$=LEFT$ (Y$,l) :CLS: IFY$= 

"N"THEN310 

140 PRINT" YOU WILL BE ABLE TO PLAY THREE WORD GAMES WITH T 

HIS 

150 PRINT "PROGRAM: FRANKENSTEIN, JUMBLES AND GUESS-A-WORD! 

160 PRINT" THE OBJECT OF FRANKENSTEIN IS TO GUESS THE C0MPU 

TER'S WORD"; 

170 PRINT"0NE LETTER AT A TIME. BUT YOU BETTER GUESS IT BEFORE 

THE 

180 PRINT"MONSTER COMES ALIVE1 TO GUESS THE FULL WORD, PRESS •/ 

1 AS YOUR 

190 PRINT"LETTER GUESS." 

200 PRINT" IN JUMBLES, YOU WILL BE ASKED TO UNSCRAMBLE THE 

WORDS. 

210 PRINT"SIMPLY ENTER IN YOUR ANSWER AND THEN PRESS <ENTER>." 

220 PRINT" GUESS-A-WORD IS A LITTLE TRICKIER. IF YOU HAVE 

A FIVE 

230 PRINT"LETTER WORD, GUESS A FIVE LETTER ANSWER. THE COMPUTER 

WILL TELL"; 
240 PRINT"Y0U HOW MANY OF YOUR LETTERS WERE USED IN THE WORD AND 

WILL" 
250 PRINT"PRINT THOSE THAT WERE IN THE RIGHT PLACE. PRESS '/' m 
O GIVE 

260 PRINT"UP ON A WORD. 

270 PRINT: INPUT" HIT ENTER WHEN READY TO CONTINUE. " ;Y$:CLS:G 
OTO310 
280 REM MENU 

290 CLS:PRINT@0,CHR$(23) ; "THE WORD WAS " ;H$ (H) ; " 1 " :FORTI=1TO500 : 
NEXTTI 

300 PRI NT "********************************"• 
310 PRINT@128,CHR$(23) ; "MENU OF WORD PUZZLES: 
320 PRINT@260," 1 - FRANKENSTEIN 

Program continues 
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"See if you were right: if 

you are, you get an ascending 

whoop and your score goes up. " 



Program continued 

330 PRINTG324," 2 - JUMBLES 

340 PRINT@388," 3 - GUESS-A-WORD 

350 PRINT: PRINT: PRINT: PRINT" ( '*' TO RETURN TO THIS MENU) 

360 PRINT: INPUT" ENTER THE # OF YOUR CHOICE" ;CH: IFCH<10RCH>3THEN 

310 

370 CLS:R=0:W=0:ONCHGOTO390, 1070, 1310 

380 REM========== GAME OF FRANKENSTEIN ====================== 

390 GOSUB410:GOTO490 

400 REM FIND A WORD NOT USED YET 

410 PRINTCHR$(23) ; :FORX=lTONW: IFH (X) =0THEN430ELSENEXTX 

420 FORX=1TONW:H(X)=0:NEXTX:H=RND(NW) :GOTO440 

430 F0RT=1T05:H=RND(NW) : IFH(H) =0THEN440ELSENEXTT:H=X 

440 H$=H$(H) :H(H)=1 

450 REM BREAK WORD DOWN INTO LETTERS 

460 L=LEN(H$) 

470 FORX=lTOL:W$(X)=MID$(H$,X,l) :W(X) =0:NEXTX: RETURN 

480 REM PRINT BOARD AND BUILD LAB 

490 Z=0:GOSUB810:PRINT@576,STRING$(32,191);:PRINT@640,STRING$(32 

,143); 

500 P=610-L:IFP/2OINT(P/2)THENP=P-1 

510 PRINT@P-2 r STRING$(L+2,32) ; 

520 PRINT@P,CHR$(23) ;STRING$(L,"-") ; 

530 REM BEGIN GUESSING LETTERS 

540 FORX=65TO90:A$(X)=CHR$(X) :NEXTX 

550 PRINT@704, "WHAT'S YOUR LETTER?"; 

560 PRINT@898,STRING$(30,176) ; 

570 REM PRINT ALPHABET 

580 PRINT@964,"";:FORX=65TO90:PRINTA$(X) ;:NEXTX 

590 CU=744:PRINT@768 ,"('/' TO GUESS WORD)"; 

600 A$="":PRINT@CU,CU$; 

610 A$=INKEY$:IFA$=""THEN610 

620 IFA$="*"THEN290 

630 IFA$="/"THEN980 

640 A=ASC(A$) 

650 IFA<65ORA>90THEN600 

660 PRINT§CU,A$; 

670 IFA$(A)=" "THENPRINT@768,"YOU ALREADY USED ";A$; " 1 "; :GOSUB96 

0:GOTO590 

680 S=0:NC=0:FOR X=1T0L 

690 IFW$(X)=A$THENW(X)=1:S=S+1 

700 IFW(X)=1THENNC=NC+1 

710 NEXTX 

720 IFNC=LTHEN740 

730 IFSO0THEN740ELSEIFZ>=7THEN900ELSEPRINT@768,CHR$(30) ; :PRINT@ 

768, "THE MONSTER GETS " ; : POKEML,0: POKEML+15 ,12: Z8=USR(0) :GOSUB81 

0:GOSUB960:A$(A)=" ":GOTO580 

740 PRINTeP,""; 

750 FORX=lTOL 

760 IFW(X)=1THENPRINTW$(X) ;:GOTO780 

770 PRINT"-"; 

780 NEXTX:A$(A)=" " : IFNC=LTHEN1010 

790 POKEML,0:POKEML+15,13:Z8=USR(0) :GOSUB960:GOTO580 

800 REM LAB AND BODY PARTS 

810 Z=Z+1:ONZGOTO820,850,860,870,880,890,840,900 

820 PRINT@0,STRING$(32,131) ; : PRINT@512,STRING$ (32 ,176) ;:FORX=0TO 

8:PRINT@64*X,CHR$(191);:PRINT@64*X+62,CHR$(191);:NEXT:PRINT@72," 

FRANKENSTEIN"; 

830 FORX=260TO516STEP64:PRINT@X,STRING$(4,191);:PRINT@X+48,STRIN 

G$(4,191);:NEXT:PRINT@198,CHR$(170);:PRINT@246,CHR$(149);:PRINT6 

332,CHR$(133);:PRINT@370,CHR$(138) ;:RETURN 

840 PRINT'HIS HEAD!";:FORX=64TO68:FORY=8TO10:SET(X,Y) :NEXTY,X:SE 

T(65,ll) :RETURN 

850 PRINT"HIS BODY1";:FORX=61TO70:FORY=12TO14:SET(X,Y) :NEXTY,X:F 

ORX=63T068:FORY=15T016:SET(X,Y) :NEXTY,X:FORY=17T018:SET(65,Y) :NE 

XT: RETURN 

860 PRINT "HIS ARM1";: FORX=71T074:SET(X,12) :NEXT:FORY=12T015:SE 

T(76,Y) : NEXT: RETURN 

870 PRINT"HIS OTHER ARM! " ; : FORX=57T061:SET(X,12) : NEXT:FORY=12T01 

5:SET(56,Y) :NEXT:RETURN 

880 PRINT"HIS LEG1";:F0RY=19T024:SET(61,Y) : NEXT: FORX=60TO63: SET ( 

Program continues 



MMSFORTH VERSION 2.0: 
MORE FOR YOUR RADIO SHACK 
TRS-80 MODEL I OR MODEL III ! 

• MORE SPEED 

10-20 limes lasler than Level II BASIC 

• MORE ROOM 

Very compact compiled code plus VIRTUAL 
MEMORY makes your RAM act larger. Variable 
number ol block bullers. 31 char unique word- 
names use only 4 bytes in header! 

• MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARD-plus 

instruction set! 

Far more complete than most Forths: single & 

double precision, arrays, string-handling, clock. 

more. 

• MORE EASE 

Excellent full-screen Editor, structured & 

modular programming 

Word search utility 

NOTEPADS Letter writer 

Optimized tor your TRS-80 with keyboard 

repeats, upper'lower case display driver, full 

ASCII, single- & double-width graphics, etc. 

• MORE POWER 
Forth operating system 
Interpreter AND compiler 
8080 Assembler 

(Z80 Assembler also available) 

Intermix 35- to 80-track disk drives 

Model III System can read, write & run Model I 

diskettes! 

VIRTUAL I/O for video and printer, disk and tape 

<10-Megabyte hard disk available) 




FORTH 



THE PROFESSIONAL FORTH 
FOR TRS-80 

(Over 1,500 systems In use) 

Prices: 

MMSFORTH Disk System V2.0 (requires 1 disk drive & 

16K RAM, 32K for Model III) $129.95* 

MMSFORTH Cassette System V2.0 (requires Level II 
BASIC & 16K RAM) $89.95" 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Programming staff can provide advice, modifications 

and custom programs, to fit YOUR needs. 

MMSFORTH UTILITIES DISKETTE: Includes FLOATING 
POINT MATH (L.2 BASIC ROM routines plus Complex 
numbers, Rectangular-Polar coordinate conversions. 
Degrees mode, more), plus a full Forlh-style Z80 ASSEM- 
BLER; plus a powerful CROSS-REFERENCER to list 
Forth words by block and line. All on one diskette 
(requires MMSFORTH V2.0, 1 drive & 32K RAM) . $39.95* 

FORTHCOM: communications package provides RS 232 
driver, dumb terminal mode, transfer of FORTH blocks, 
and host mode to operate a remote TRS-80 (requires 
MMSFORTH V2.0, 1 drive & 32K RAM) $39.95* 

THE DATAHANDLER V1.2: a very sophisticated data- 
base management system operable by non-pro- 
B rammers (requires MMSFORTH V2.0, 1 drive & 32K 
AM) $59.95* 

MMSFORTH GAMES DISKETTE: real-lime graphics & 
board games w/source code. Includes BREAKFORTH, 
CRASHFORTH, FREEWAY, OTHELLO & TICTACFORTH 
(requires MMSFORTH V2.0, 1 drive & 32K RAM) . $39.96* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MIcroFORTH PRIMER • comes with MMSFORTH; 

separately $15.00* 

USING FORTH - more detailed and advanced than 

above $25.00* 

INVITATION TO FORTH - detailed beginner book on 

llgFORTH $17.50* 

THREADED INTERPRETIVE LANGUAGES • advanced, 
excellent analysis of MMSFORTH-like lan- 
guage $18.95* 

PROGRAM DESIGN & CONSTRUCTION - Intro, to struc- 
tured program, good for Forth $8.95* 

FORTH -79 STANDARD MANUAL - official reference to 

79-STANDARD word set, etc $10.00* 

CALTECH FORTH MANUAL - good on Forth internal 

structure, etc $10.00* 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1980) - 
we stock this collector's Item for Forth users and begin- 
ners $4.00* 

* - ORDERING INFORMATION: Software prices include 
manuals and require signing of a single system, single- 
user license. SPECIFY for Model I or Model III! Add 
$2.00 S/H plus $1.00 per additional book; Mass. orders 
add 5% tax. Foreign orders add 20%. UPS COD. VISA & 
M/C accepted: no unpaid purchase orders, please. 

Send SASE tor tree MMSFORTH information 
Good dealers sougm 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (M8) ^112 

61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 



sSee List ot Advertisers on page 322 
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"Guess-a-Word isn't easy. The 

computer will show you how many letters are in the 

mystery word; your task is to discover the word." 



the data begins at line 1780 and runs to the 
end. The number of words is determined by 
the value of the variable NW at the end of 
line 60. If you decrease the list or change it, 
count your words and set the value of NW 
accordingly. 

When creating your own list, be very care- 
ful. Since the list is used for all three games, 
you must be sure that only one word can be 
spelled using those letters. For example, 
you can't use the word live because you can 
also spell evil using those letters. 

The Machine Language Sound Routine 

Machine language sound routines 
normally send the values 1 and alternately 
out the cassette port (255) with a vibration 
count to create sound. This program uses 
double size characters— CHR$(23); as soon 
as you send the 1 or out that port, it flips 
the double size characters to single size 
and wrecks the screen image. 

However, if you send 8 and 9 instead of 1 
and 0, the double size stays double size: 





LD 


CO 


;VIBRATION COUNT 
POKED BY PROGRAM 


SOUND 


LD 


A,8 






OUT 


(255),A 


;ON TO SPEAKER 




LD 


B,C 


;THE VIBRATION COUNT 


TON 


DJNZ 


TON 


;B = B-1 IFBXDTHEN 
REPEAT THIS LINE 




LD 


A.9 






OUT 


(255).A 


;OFF TO SPEAKER 




LD 


B,C 


;VIBRATION COUNT 
AGAIN 


TOFF 


DJNZ 


TOFF 


;B = B-1 IFBXUHEN 
REPEAT THIS LINE 




DEC 


C 


;C = C-1 LOWER VI- 
BRATION COUNT 




JR 


NZ.SOUND 


;IFCX) VIBRATE AT NEW 
VALUE OF C 




LD 


A,8 






OUT 


(255),A 


;RESET PORT VALUE 




RET 




;RETURN TO BASIC 
PROGRAM 



By continually lowering the value of the C 
register, we create an ascending whoop. 
The starting value of the whoop gets 
POKEd by the Basic program where need- 
ed. When we want a descending whoop, 
change DEC C in line 10 to INC C. One curi- 
ous note: using 8 and 9 for sound rather 
than 1 and means we have to send 8 out 
the port again or there is a faint clicking 
sound shortly after the regular tone. 

Whenever you're entering a program with 
machine language routines in it, it's a good 
idea to save partially completed copies be- 
fore running the section with the user calls. 
If you entered anything incorrectly, you just 
might lose the program completely! ■ 



Program continued 

X,24) :FORX=61T064:SET(X,18) :NEXT:RETURN 

890 PRINT-HIS OTHER LEG1 " ; : FORY=19T024 :SET(69 , Y) :NEXT: SET(72, 24) 

: FORX=66TO70 : SET (X , 18) : NEXT: RETURN 

900 FORX=1TO15:PRINT@200,ZP$;:POK 

EML,30:POKEML+15,13:Z8=USR(0)::PRINT@200,STRING$(23,32);:POKEML, 

240:POKEML+15,12:Z8=USR(0) : NEXT: FORX=64TO68:FORY=8TO10: SET (X,Y) : 

NEXTY,X:PRINT@1022,"";CHR$(23);:SET(65,11) 

910 PRINT@704,CHR$(30);:PRINT@768,CHR$(30);:PRINT@704,"THE WORD 

WAS ";H$;:FORTI=1TO250:NEXT:PRINT@72," THE MONSTER LIVES1I1 

920 F0RTI=1T06:F0RY=9T012:RESET(76,Y) :RESET(56,Y) :NEXTY:FORY=12T 

015: SET (76, Y) :SET(56,Y) :NEXTY:POKEML,230:POKEML+15 ,12: Z8=USR(0) 

930 FORY=12T015:RESET(76 r Y) :RESET(56,Y) :NEXTY:FORY=9T012:SET(76 , 

Y) :SET(56,Y) :NEXTY:POKEML, 100:POKEML+15 ,13: Z8=USR(0) :NEXTTI 

940 PRINT@832,"PLAY AGAIN (Y) OR GO TO MENU (*) "; :GOTO1020 

950 REM CLEAR MIDDLE SECTION OF SCREEN FOR INPUT 

960 FORTI=1TO300:NEXTTI:FORCL=768TO832STEP64:PRINT@CL,CHR$(30) ; : 

NEXTCL : RETURN 

970 REM GUESS WORD 

980 PRINT@768,"WHAT IS THE WORD" ; : INPUTW$: IFW$="*"THEN290 

990 IFW$=H$THEN1010 

1000 POKEML,0:POKEML+15,12:Z8=USR(0):PRINT@832, "WRONG! THERE GOE 

S ";:GOSUB810:GOSUB960:GOTO590 

1010 POKEML,0: POKEML+15, 13 :Z8=USR(0) :PRINT§832, "CORRECT! PLAY A 

GAIN (Y) OR":PRINT"GO TO MENU (*)"; 

1020 Y$="" 

1030 Y$=INKEY$:IFY$=""THEN1030 

1040 IFY$="*"THENCLS:GOTO310 

1050 IF Y$="Y"THENCLS:GOTO390ELSEPRINT@832,CHR$(30);:GOTO1010 

1060 REM ========== GAME OF JUMBLES =========================== 

1070 J$="":GOSLJB410 

1080 FORX=lTOL 

1090 Q=RND(L) :IFW$(Q)=""THEN1090 

1100 J$=J$+W$(Q) :W$(Q)="" 

1110 NEXTX:IFJ$=H$(H)THEN1070 

1120 REM UNSCRAMBLE WORD 

1130 PRINT@340,CHR$(23);J$; 

1140 PRINT@448,"WHAT IS THE WORD 

1150 F0RX=1T09:U$(X)="":NEXT 

1160 CU=596:PRINT@CU,CU$; 

1170 A$="" 

1180 A$=INKEY$:IFA$=""THEN1180 

1190 IFA$="*"THEN290 

1200 A=ASC(A$) :IFA=13THENPRINT@CU,CB$;:GOTO1250 

1210 IFAO8THENl230ELSEPRINTA$;:IFCU>596THENX=X-l:CU=CU-2 

1220 PRINT @CU, CU$;:GOT01 170 

1230 IFA<65ORA>90THEN1170 

1240 X=X+1:PRINT@CU,A$;:CU=CU+2:PRINT@CU,CU$;:U$(X)=A$:GOTO1170 

1250 A$="":FORLE=lTOX:A$=A$+U$(LE) :NEXT 

1260 IFA$=H$(H)THENPRINT@704,"CORRECT1";CHR$(30);:R=R+1:POKEML,0 

: POKEML+15 , 13 : Z 8=USR ( ) : GOTO1280 

1270 PRINT@704, "WRONG, THE WORD WAS " ;H$ (H) ; "1 "; :W=W+1:POKEML,0: 

POKEML+15 , 12 : Z 8=USR (0) 

1280 PRINT6960," (ENTER '*' FOR MENU.) "; :J$="" :PRINT@832,"HIT ENT 

ER TO CONTINUE" ;:INPUTEN$:CLS:IFEN$="*"THEN310 

1290 PRINT@0,CHR$(23) ; "RIGHT" ;R;TAB(9) ; "WRONG";W;TAB(18) ;"SCORE 

";:PRINT USING "###.## %" ;100* (R/(R+W) ) ; :PRINT@64 ,STRING$(32,131 

) ; :GOTO1070 

1300 REM ========== GAME OF GUESS-A-WORD ====================== 

1310 GOSUB410 

1320 FORX=1TO9:U(X)=0:NEXT:TR=0:FORX=65TO90:A(X)=1:NEXTX 

1330 REM PRINT BOARD 

1340 PRINT@770,STRING$(30, 131); 

1350 PRINT@962,STRING$(30,131) ; 

1360 P=160-L:IFP/2OINT(P/2)THENP=P-1 

1370 GOSUB1710:GOSUB1660 

1380 FORX=1TO9:U$(X)="":NEXT:PRINT@448,CHR$(30);:PRINT@384,CHR$( 

23); "WHAT IS YOUR GUESS? " ; :CU=424:PRINT@CU,CU$; :X=0:PRINT@512," 

( '/• = QUIT, '*' = MENU)"; 

1390 A$="" 

Program continues 



:PRINTe704,"('*' FOR MENU) 
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ows your 
love life? 



TJP% 



A little dull around the edges? 

Routine? Predictable? Boring? Maybe 

all it needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

progran^Hn . and a one-of-a-kind manual to 

turn voi^HJph ;ig, adventurous, delicious fun! 




Interlude is: romantic. . . playful. . . outrageous. . . a fantasy. Interlude is: ■ A Bed of Roses (Inter- 
lude #1) ■ Mata Han (Interlude #49) ■ The Chase (Interlude #7) ■ Rodeo! (Interlude #71) ■ The King and I 
(Interlude #60) ■ Some Enchanted Evening (Interlude #84) ■ Caveman Caper (Interlude #82) ■ From Here 
to Ecstasy (Interlude No. 30) ■ Satin Dreams (Interlude #72). 

More than 100 Interludes are included in the program. Most are described in detail in the accompanying manual, 
but several surprise Interludes are buried in the program awaiting that very 

special time when your interview says you're ready. (When you learn secret B^-^-J-Jp^'-gj-B-a -m J\ ^% 
rlude #99, your love life may never again be the same!) Interlude [tJI UQ(^ 

can give you experiences you'll never forget. Are you ready for it? Thc ij| t|mate Experience. 



INTERLUDE. Dept. 80, 10635 Richmond Avenue, Houston, Texas 77042. I'm really ready. Send my Interlude today. 
Apple II (16K) " TRS-80 (Model 1. 16K) * * Poster Available for Immediate shipment. 

D Cassette ($18.95) n Cassette ($18.95) □ 20"x 24" reproduction of 

3 Diskette ($21 .95) D Diskette ($21 95) this ad without ad copy Please enclose your check payable to INTERLUDE 

□ Diskette — Pascal or DOS 3.3 ($21.95) ($4.95— includes or complete "the charge information: 

Add $1.75 for shipping and handling. shipping charges) 

D MASTERCARD D VISA All charge customers must sign here 

Account No. Expiration date MasterCard Bank Code 



CHARGE CUSTOMERS: Order by phone toll-free! 1-800-231-5768 Ext. 306 (Texas: 1-800-392-2348 Ext. 306) 

Name , . Age 

Address , 

City , 



State 



Zip 



•Apple II is a registered trademark of Apple Computers, Inc. • TRS-80 is a registered trademark of Radio Shack, a Tandy Co. 



this publication 
is available in 
microform 




University Microfilms International 

300 North Zeeb Road 18 Bedford Row 

Dept. P.R. Dept.P.R. 

Ann Arbor, Ml 48106 London, WC1R4EJ 

U.S.A. England 
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80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enioy your subscription 



r€J\y^ If You've Written a 

\^/N* Topnotch Program- 

We'd Like to Publish It! 

Programs needed for BUSINESS/ 

OFFICE Applications: 
WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER/ AR-AP 
ORDER ENTRY/INVENTORY 

Start collecting your royalty 

checks soon! Write for our free 

Programmer's Kit today. 

INSTANT SOFTWARE, INC. 
Submissions Dept. ^2 

Peterborough, NH 03458 



Program continued 

1400 A$=INKEY$:IFA$=""THEN1400 

1410 IFA$=-"*"THEN290 

1420 IFA$="/"THEN1590 

1430 A=ASC(A$) 

1440 IFA=13THENPRINT@CU,CB$; :GOTO1490 

1450 IFAO8THENl470ELSEPRINTA$;:IFCU>424THENX*X-l:CU=CU-2 

1460 PRINT@CU,CU$;:GOTO1390 

1470 IFA<65ORA>90THEN1390 

1480 X=X+1:PRINT@CU,A$;CU$;:CU=CU+2:U$(X)»A$:GOTO1390 

1490 FORX=1TOL:U(X)*0:IFU$(X)O""THENAL=»ASC(U$(X) ) :A(AL)=0 

1500 IFW$(X)=U$(X)THENW(X)=1:U(X)=2 

1510 NEXT 

1520 F0RX=1T0L:F0RY=1T0L:IFU(X) O0THEN1560 

1530 IFU$(X)<>W$(Y)THEN1550 

1540 IFW(Y) =0ANDU(X) =0THENW(Y) =2:U (X) =5 
1550 NEXTY 
1560 NEXTX 

1570 GOSUB1710:FORX=1TOL:IFW(X) O1THEN1640ELSENEXTX 
1580 PRINT@512, "YOU HAVE GUESSED THE WORD" ;CHR$ (30) ; : POKEML, 0:PO 
KEML+15 f 13:Z8=USR(0) :GOTO1600 

1590 PRINT§512,"THE WORD WAS ";H$(H) jCHR$ (30) ;: POKEML, 0:POKEML+ 
15,12:Z8=USR(0) 

1600 PRINT: INPUT" PLAY AGAIN (Y) OR GO TO MENU (*) ";Y$:CLS: Y$=LEF 
T$(Y$,1) 

1610 IFY$="*"THEN310 
1620 IFY$="Y"THEN1310 

1630 PRINT@576,STRING$(32,32) ; : PRINT@576 , "" ; :GOTO1600 
1640 GOSUB1660:FORX=1TOL:W(X)=0:NEXT:PRINT@384,STRING$(32,32) ;:G 
OTO1380 

1650 REM ALPHABET 

1660 PRINT@838,""; ) 

1670 FORX=65TO90:IFA(X)=*0THENPRINT" ";:GOT0169TJ 
1680 PRINTCHR$(X) ; 
1690 NEXT: RETURN 
1700 REM UPDATE GUESS-A-WORD 

1710 PRINT80, "NUMBER OF TRIES =" ;TR; :TR=TR+1 
1720 PRINT@P,"";:F0RX=1T0L 
1730 IFW(X)=1THENPRINTW$(X) ;:GOTO1750 
1740 PRINT"-"; 

1750 NEXTX:PRINT@256,STRING$(32,32);:PRINT§256, "CORRECT BUT WRON 
G PLACE-"; 

1760 F0RX=1T0L:IFU(X)=5THENPRINTU$(X) ; 
1770 NEXTX : F0RX=1T09 : U (X) =0 : NEXT: RETURN 

1780 DATA FREEDOM, TONGUE, ANTLER, LANTERN, CHAIR, VANDAL, CLOWN, PRESI 
DENT , BALMY , F I XTURE , F EATURE , PRANCE , BELT , CURVE , SECOND , STATUE , C0RNE 
R, BLINK, HAIRY, PLEASANT, PHEASANT, THUNDER, TORNADO, WEATHER, WHETHER, 
HURRICANE, TEMPLE, FACTORY 

1790 DATA BLUBBER, MIDGET, DWARF, FRAUD, GORILLA, ANTELOPE, GIRAFFE, FE 
NCE , RACCOON , NORMAL , TOOTH , BUTTON , COFFEE , WATER , BUFFALO , COMET , SOLAR 
, PANIC , NEEDLE , HYDRANT , FAUCET , TOI LET , STADIUM , EMPATHY , SYMPATHY , CIT 
ATION , CUPBOARD , AUTO 

1800 DATA VEHICLE, TURNPIKE, GRANDIOSE, OFFENSIVE, CABINET, PRACTICE, 
STROBE , SL ID I NG , NECKLACE , GHOST , CROP , JEWELRY , TEMPERATE , SOCKET , LOCK 
ET, POCKET, WRENCH, SENSATION, STUPID, GARDENER, COFFIN, LITERATE, FASHI 
ON , GROOVE , METEORITE 

1810 DATA ASTEROID, PLANET, CHEMICAL, MOTOR, SCREEN, POLICE, MACHINERY 
, HAYSTACK, CHIME, MOVEMENT, ISLAND, DIGIT, GLACIER, BASEBALL, HOCKEY, TE 
NNIS, FOOTBALL, SKATING, ANIMAL, LEGEND, FINAL, PLAIN, GOOD, BOOK, GRAPH, 
RULER , CACTUS , CRAFTY , RAOIO 

1820 DATA SLANG, CLOSET, PLANT, ASTRONOMY, RECORD, PICTURE, BECKON ,ELE 
PHANT , ARCADE , SPLAT , PORCH , GEOLOGY , CEI LING , BASEMENT , BATHROOM , MONK E 
Y , BIRD , EXPANSION , KITCHEN , LIBRARY , METRIC , BRICK , MOOSE , HUMAN, NATURA 
L , CERTAI N , MULCH , THRI FTY 

1830 DATA EFFICIENT, HANDLE, TRUNK, STORMY, GALAXY, ENTRANCE, EDITION, 
LEAF, CRUTCH, LIGHT, FLIGHT, SLEIGHT, RIVET, CARROT, SENTENCE, MAGAZINE, 
PEBBLE, PENCIL, PLANK, WINDOW, FROZEN, FLEX, BALANCE, CLOCK, VIDEO, HELME 
T , TWENTY , PERCENT , INTEREST 

1840 DATA LENGTH, COMPUTER, RACK, SNEEZE, MOUTH, POSTERIOR, DEPOSIT,BA 
NK , SCHOOL , COLLEGE , COLLAGE ,DENI ZEN , FLAME , POROUS , TORPEDO, SLIPPER, S 
OCK , SH IRT , CALCULATE , VEGETABLE , PEPPER , CLONE , STAND , RATIO , JACKET , VE 
ST, VESTIBULE, WHEEL 

1850 DATA PALMISTRY, BARBELL, UNIVERSE, SKIING, JUMPY, OBESE, ABSTRACT 
, CHAMPION, ALLOWANCE, HOSPITAL, INSURANCE, DIRECTOR, PRODUCER, PORTION 
, NOTICE, MOVIE, FLIMSY, CRAZY, CRAFTILY, MAGICAL, PROCEED, GALLEY, LEGAL 
, RIVER, WATERFALL, CASCADE 

1860 DATA INTENSE, PRETEXT, FORMATION, ROTATION, DISCOUNT, MUFFLER, PH 
LEGM, PARENTAL, MONEY, WEALTHY, PLAUSIBLE, DESERT, CHART, HAWK, FAMOUS, C 
AMERA, SLINKY, POSITIVE, NEGATIVE, TYRANT, HAPPEN, PRINCESS, BELLY, SUNS 
ET, MOUNTAIN, VALLEY, BLANKET 

1870 DATA PANTHER, TAXATION, FURNACE, VESSEL, FRAME, MUFFIN, HAMBURG, T 
URBAN , EDUCATION , FLUSH , USEFUL , WH IM , CHEETAH , KANGAROO , OSTRICH , RAMIF 
Y, CLOAK, BLISS, PYRAMID, CYLINDER, SCHISM, CHASM, METHOD, MENTION, BATTE 
RY, CHOWDER, TENT, SLEEVE 

1880 DATA CLOTHING, ADJUST, MAJESTIC, CHAMBER, STEWARD, CHOMP, SHIMMER 
, DEFLATE, GROWTH, FERTILIZE, BANISH, BLEMISH, HORROR, FINGER, HISTORY, L 
OOSEN, RIGHT, TOGETHER, SEPARATE, COMB, PROGRAM, ESTIMATE, CALLOUS, DIAG 
ONAL 
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STEREO AND PERCUSSION! 



STEREO— Separation by instrument! 
For example, play trumpet and oboe 
through channel A. clarinet and organ 
through channel B. You can switch 
instruments from channel to channel 
at any time! 

PERCUSSION — Now you can add a 
wide range of percussive sounds and 
special effects to your music! 
Existing Orchestra-80 files load and play 
in stereo automatically! 
Optional 5th Voice for use with 
speed-up mods! 



New editing features and commands 1 
Plugs into any 16k Model I keyboard or 
expansion interface without voiding 
warranty! 

Includes tape and disk versions on 
cassette. 4 sample music files, manual, 
and fully assembled and tested printed 
circuit board! 



Orchestra-85 
$129.95 



,.f 



plus $2.00 postage and handlinc 

($5 for overseas airmail , 

CA residents add 6% sales tax 

MasterCard and Visa 

accepted 



kv*v^ 
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WRITE FOR INFORMATION ON: 

• Upgrading -Orchestra-80 to Orchestra-85. Switch to Stereo! 

• Greatest Hits— Volumes I and II. All new music! Ready to load and play! 

• Orchestra-90'"- Model in version of Orchestra-85. Available soon! 



Software Affair 

858 Rubis Drive, Sunnyvale, CA 94087 
(408) 295-9195 



^356 



Select the write printer - 

PRESTO! 
Overnight your 
computer becomes 
a word processing, 
data processing or 
graphic system. 

Under S5QO 




Okidata 

Microline 80 - 7x9 Head, 

80 Column. Low Price 



The NEW OKIDATA line of bidirectional 
dot matrix printers - high quality with 
continuous duty 200-million character 
printheads. The NEW printers have 
correspondence quality with their new 
9x9 dot matrix heads and have full forms 
control, serial and parallel interfaces, 
as well as many other features. The 
Microline 80 is a very reliable, low cost 
printer. All products are available from 
our stock at The Stocking Source along 
with the optional cables, 
interfaces and 
memory buffers. 



NEW 

Microline 82A - 9x9 

Head, 80 Column. 

120CPS 

NEW 

Microline 83A - 9x9 

Head, 136 Column, 

120 CPS 

NEW 

Microline 84 - 9x9 Head 
136 Column, 200 CPS 

NEW 

Model 2350 - 9x9 
Head, 136 Column, 
350 CPS 



ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 

U.S.A. 

1-800-521-2764 

MICHIGAN 

1-800-482-8393 



Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday — Friday 




■ See List ol Advertisers on page 322 
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We've lowered the 



No, the low CompuServe $5.00 per hour charge 
hasn't changed, but the world of information 
we offer is growing steadily. 




Of CompuServe's 22 large computer systems, 10 are 
housed here in our Dublin, Ohio Computer Center. 



More Computer Power 

The number of CompuServe customers 
keeps growing — now more than 8,000 
strong. The more customers we have, the 
more computer power and access lines we 
dedicate to our Information Service. Our 
22 mainframe computer systems provide 
sufficient power and capacity to serve 
thousands more. 

More News 

In addition to the Associated Press, we've 
added more news. Read The New York 
Times and all the news that's fit to print, 
including Broadway show and movie 
reviews, stories from Pulitzer Prize-winning 



writers and more. We are continually 
adding new features to the information 
service, so check our "What's New" 
section regularly to see what other 
information is available. 

TRS-80 ™ Color Computer 
and Videotex® 

The CompuServe Information Service is 
sold in Radio Shack® Stores and, in 
addition to all the major brands of com- 
puters and terminals, can be used with 
the new TRS-80 Color Computer and 
Videotex terminal. Our special software 
formats the information in easy-to-read 
pages. Go forward, backward, anywhere 
in the CompuServe Information Service 
databases — even directly to a page of 
information. 

Big System Reliability 

When we say we're reliable, we mean it. 
In fact CompuServe computers were up 
and running for a 99.6 percent reliability 
factor last year. We've also built in many 
"invisible" features like data error detection 
and retransmission — all those technical 
enhancements which add up to the 
CompuServe Information Service being 
ready to use when you're ready to use it. 



Radio Shack, TRS-80 and Videotex are trademarks of Tandy Corporation. 
ATARI is a trademark of ATARI, Inc. 



cost of the world. 




Access to all the 
CompuServe services, 
including electronic mail; 
bulletin board; CB 
simulation; newsletters from 
Radio Shack", Atari*, and 
others; up to128K storage free 
plus all the services listed 
here are yours. Access time 
is only 8 1 /3 cents per minute 
between 6 PM and 5 AM 
weekdays and all day 
weekends, billed to your 
charge card. It's a local 
W phone hook-up in more 
than 260 U.S. cities. 



There's an energy 
management system 
home repair tips, 
discount information 
personal health infor- 
mation and more. 
Better Homes & 
Gardens provides 
household 
information such 
as recipes, 
nutritional 
analyses and 
meal plans. 





All kinds of games 
(including some for the 
kids), book and movie 
reviews, astrology and 
the latest sporting event 
news — even point 
spreads and injury lists. 
There's the 

CompuServe line printer 
art gallery and even a 

national user opinion poll 
for instant feedback on 
current events. 




A complete program. 

The AP financial wire, 

newspaper financial 

pages, Raylux Financial 

Advisory Service, the 

Commodity News 

Service and personal 

financial programs. At 

a slight additional 

charge, you can 

retrieve fundamental 

financial data on 

more than 1,700 

companies from 

Value Line, and MicroQuote offers current and historical 

data and special market reports on more than 40,000 

stocks, bonds and options, updated daily. 



While the 

CompuServe 

Information 

Service is 

designed for 

everyone, 

MicroNET 

Personal 

Computing 

is for the 

knowledgeable 

computer 

hobbyist or 

business ^^^^^^^^^^^^^^^™ 

person. You can buy software and have it downloaded 

directly to your person computer. Use programming 

languages such as APL-SF, EXTENDED BASIC, 

MACRO-10, SNOBOL, EXTENDED FORTRAN and 

PASCAL, use word processing and text editing 

programs. 



Not 1985, NOW! 

See for yourself what a state-of-the-art electronic 
information service can do. Get a demonstration at 
a Radio Shack R computer center or store — or write 
to us for further information. 




CompuServe 



^424 



Information Service Division 
5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 
(614) 457-8600 



GAME 



Shoot spuds in space down the tubers. 



Space Potatoes 




1L&jlU£^ 



Christopher Brumme 
Miller Abel 

The Current Loop Suite 1990 
190 South King St. 
Honolulu, HI 96813 



Perusing an old copy of 80 Microcomput- 
ing one day, my partner and I happened 
upon a reference to the game of Space Po- 
tatoes. We were completely entranced; 
what could such a sport entail? After hours 
searching old newspaper clippings and dis- 
carded listings we were none the wiser. 
We finally realized we would have to write 



our own. There must be enemy rockets 
manned by hostile vegetables from another 
dimension. We would be surrounded at our 
combat console, verniers and dials vying for 
our attention. As the attacking starch balls 
popped into our universe from their hyper- 
spatial tube, we would fry them with our 
positron-injection beams. With these 
parameters in mind, we used the inside-out 
approach to program design, and im- 
mediately began coding! 

With or Without Ketchup 

When you— a seasoned space cadet- 
blast off to your assigned patrol, the fleet 
admiral will ask what difficulty you wish to 
undertake. Even if you choose a 
masochistic rating of 150, those conniving 
critters can concentrate their force 
elsewhere, leaving a mere sackful to attack 
your quadrant. After receiving your orders, 
you will find your scope filling up with 
french fry candidates. Maneuver them into 
your cross-hairs using the U, D, L and R 
keys, then give them the juice with the F 
key. 

If you miss, they turn their eyes on you, 
causing heavy damage, which will be regis- 
tered on your LED scale. Should one of 
those tricky 'taters veer off your screen, 
they will take repeated shots at your flanks 
with their spud guns. You have only a few 
seconds to get them back onto your screen. 

Fuel is used up as you fire your thrusters 
or guns. You must become acquainted with 
maneuvering your vessel— the U key moves 
your cross-hairs up, and therefore, the veg- 
gies down. And if you run out of time, the 



whole galaxy will fall under their photosyn- 
thetic sway. If you sustain too much 
damage or run out of fuel, your ship will 
float, a lifeless hulk, ready for boarding by 
those terrible tubers. 

When you run this program you will be 
confronted with the message SPACE PO- 
TATOES flashing before your eyes. This ani- 
mated display is achieved by quickly 
switching between 32 and 64-character 
modes. Line 20 does successive Outs 
through port 255; an eight will convert to 
32-character mode, a two converts back to 
64-character mode. A timing loop of about 
1/6 of a second slows down the mode 
switching. We found that anything faster 
than this can be positively hypnotizing. 

At the end of the line we use the INKEY$ 
function to see if the user is ready to play. If 
you press any key, the INKEY$ function ter- 
minates the loop of line 20. 

Idaho, Sweet or Yam 

If you find this game a little difficult, you 
can make a few easy alterations. Line 860 
determines the chances of the Space Pota- 
to evading you for a given game turn. (Game 
turn: one round of the program cycle which 
checks to see if you have entered a new 
move.) As the program is written, it has one 
chance in 10 of choosing one of the four 
directions. Since it may choose the direc- 
tion in which it is already going, the odds 
are actually a little lower. Simply replace 
the 10 in line 860 with a higher number to 
make things easier. 

You might also try to only allow the pota- 
to to avoid you in two directions rather than 
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"If you sustain too much damage 

or run out of fuel, your ship will float, 

a lifeless hulk, ready for boarding by those terrible tubers." 



four. Line 870 picks which direction the 
Potato is going to travel. MV$ ( ) contains 
the four legal directions for a potato or a 
human— U, D, L and R. One direction is 
chosen using the random number genera- 
tor built into Basic. This direction is put into 
C$. C$ normally contains the last key you 
pressed, allowing you to keep moving in the 
last direction chosen until either you or the 
potato change direction. Change the four in 
line 870 to a two and the potato will only be 
able to use two of the four legal moves for 
evasion, up or down. 

The difficulty rating you choose deter- 
mines, to within a randomly determined ac- 
curacy, the number of potatoes you must 
shoot down. Choosing fewer potatoes ef- 
fectively gives you more fuel, time and al- 
lowable damage in which to shoot down 
each critter. 

If you have a sound effects generator on 
your TRS-80, or an audio amplifier hooked 



onto your cassette interface, you might like 
to customize the program for sound. Line 
650 is a good place to start, adding beeps 
for various alarms. 

If your hardware is more sophisticated 
and you want some positron-injection beam 
noises, look at line 910. This code produces 
those diagonal lines of force which fly up 
the screen when you press the fire key. Put 
your GOSUB before the " :NEXT I" to make 
a sound for every two pixels. GOSUB at the 
beginning of the line will produce a single 
sound for the whole firing process. If you 
want a sound of rending tuber tissues to 
signify a hit, put a single sound at the begin- 
ning of line 700; if you wish to build the 
sound as the potato is fried, put your GO- 
SUB before the ":NEXT I" in line 700. 

You might like to try one final modifica- 
tion, if you have the lowercase modification 
for the Electric Pencil. You have probably 
noticed that if you run Basic with your ma- 



chine set to lowercase you get a very 
strange character set. Code 7, or a G, looks 
rather like a space invader from the popular 
video game. Change the 140 in line 270 to a 
seven, and the Space Potato is trans- 
formed. If you like the look of that, you can 
let your imagination run wild. There are left 
and right lightning bolts to emulate 
positron-injection beam fire (they replace 
the 150 and 169 in line 980) and you can use 
those twisted arrows to point to a Potato 
when he is over the center of the cross- 
hairs. 

The biggest limitation of this game is its 
speed. We gained some increases by re- 
moving a lot of the REMarks and by using 
multiple statement lines wherever feasible. 
Short of rewriting in machine code, the only 
other alternative seems to be a Basic com- 
piler.B 

A cassette of this game is available from 
the authors. 



Program Listing 1 




10 CLS:FORI=lT017:PRINT:PRINT"S PACE POTATOE S";:NEXT 


510 IF D9>=30 THEN LF=1 




I 


520 IF F9< = THEN LF=1 




20 FORI=1TO50:NEXTI:OUT255,8:FORI=1TO50:NEXTI:OUT255,2:AS=INKEYS 


530 IFLF>0THEN890 




:IFAS=""TI1EN20 


540 PRINT9102,T9;TAB(41) ; 




30 DEFINT A-Z:DEFSNG D, G, F : DIHHVS (4 ) , Z9 ( 14 , 2) :GOSUB 940 


550 PRINT@230,H9;" "; 




40 CLS: PRINT? 34 0, "";: INPUT"DI FFICULTY " ;DI :CLS 


560 PRINT0358.M9;" "; 




50 Y0=0:Y9=14:X0=0:X9=28:RF=0:OD=0:OF=30 


570 IFINT(OF)=INT(F9)THEN590 




60 MVS(1)="U":MVS(2)="D":MVS(3)="L":MVS(4)="R" 


580 PRINT?INT(544+OF) , " ";:OF=F9 




70 CS-"" 


590 IFINT(OD)=INT(D9)THEN610 




80 GOSUB190' INIT SCREEN 


600 PRINT£(INT(7 36+D9) ) , CURS (14 0) ;:OD=D9 




90 GOSUB 720' PLACE CRAFT 


610 GOSUB 860:HF=0:MF=0 




100 MS=INKEYS:IFMS=""THENMS=CSELSE F9=F9-G1 : IFMSO "F"THENCS = MS 


620 IF RF>0 THEN 650 




110 IFMS="F" GOSUB 320:GOTO 170 


630 IF D9>25 OR F9<5 OR T9<75 THEN RF=1 




120 IFMS="U" Y3 = l : GOSUB 350:GOTO170 


640 RETURN 




130 IFMS="D" Y3=-l : GOSUB350:GOTO170 


650 IF RF=1 THEN PRINTP940," <RED> ";:RF=2 ELSt 


PRINT8940, STRING 


140 IFMS="L" X3 = l : GOSUB350:GOTO170 


$(7,191);:RF=1 




150 IFMS="R" X3 = -l : GOSUB350 


660 RETURN 




160 F0RI=1T0W9:NEXTI 


670 REM HIT 




170 GOSUB 460 


680 H9-H9+1 




180 GOTO100 


690 C9=C9-1 




190 FORI=15360TO16 38 3:POKEI,191:NEXTI 


700 FORI=128T0191 :POKE15822, I :NEXTI :POKE 15822, 


32 


200 FORI=0TO14: PRINT? (1*64) .STRINGS (29 , 32 ) ;:NEXTI 


710 HF=1:RETURN 




210 FORI=1537 4T015 551STEP64:POKEI,191:NEXTI 


720 REM PLACE CRAFT 




220 FORI=1614 2T016 332STEP64:POKEI,191:NEXTI 


730 Xl=RND(20)+4:Yl=RND(10)+2 




230 PRINTg448,STRINGS(8,140) ;TAB ( 21 ) STRINGS (8 , 140 ) ; 


740 GOSUB310 




240 PRINT996," TIME " ; : PRINT0224 , " HITS " ; : PRINT§352, " MISS " ; : P 


750 B9=PEEK(P1) 




«INT?480," FUEL " ; : PRINT3672 , " DAMAGE " ; 


760 POKE P1,A9 




250 PRINT@544,STRINGS(30,136) ;: PRINTG7 36 , STRINGS (30, 32) ; 


770 CS=MVS(RND(4)) 




260 T9=999 : F9 = 30 : D9 = : H9=0 : M9=0 : C9=INT(3*RND(DI ) ) 


780 RETURN 




270 HF=0 : MF=0 : SF=0 : A9=140 : Gl=.l : LF=0 


790 REM MISS 




280 GOSUB 500 


800 M9=M9+1 




290 RETURN 


810 MF=1 




300 REM X+Y > POKE 


820 RETURN 




310 P1=15360+Y1*64+X1:RETURN 


830 REM HIT BACK 




320 REM FIRE 


840 D9=D9+(RND(3)+TF)/5 




330 GOSUB 910 : IF Xl=14 AND Yl=7 GOSUB 670 ELSE GOSUB 790 


850 RETURN 




340 RETURN 


860 IF RND(10)<>1 THEN RETURN 




350 IF SF=0 THEN POKE P1.B9 


870 CS=MVS(RND(4)) 




360 X1=X1+X3 


880 RETURN 




370 Y1=Y1+Y3 


890 PRINT£203."";:IF LF=1 THEN PRINT'YOU LOSE"; 


:ELSE PRINT "YOU 


380 X3=0:Y3=0 


WIN"; 




390 IF ((Y1>Y9 OR YKY0) OR (X1>X9 OR XKX0)) THEN SF = 1 : RETURN 


900 AS=INKEYS:IF ASO" " THEN 900 ELSE 40 




400 SF=0 


910 FOR 1 = 1 TO 14 : POKE Z9 (1 , 1) ,Z9 (I, 2) : NEXT 


I : POKE 15822,1 


410 GOSUB 310 


88 




420 B9=PEEK(P1) 


920 FOR 1 = 1 TO .14 : POKE Z9(I,1),32 : NEXT I : 


POKE 15822,32 


430 IF B9=140 THEN A9=136 


930 RETURN 




440 POKE P1,A9 


940 ' SET UP FIRE TRAIL 




4 50 RETURN 


950 L=16256:R=16284 




46 IFHF=1THENIFC9>0THENGOSUB7 20:GOTO500ELSELF=2:GOTO500 


960 FOR 1=1 TO 14 STEP 2 




470 IFMF=1THENTF=2:GOSUB840:GOTO500 


970 Z9(I,1)=L : Z9(I+1,1)=R 




48 IFSF=1THENTF=1:GOSUB8 40:GOTO500 


980 Z9(I,2)=150 : Z9 (1+1,2) =169 




490 REM UPDATE SCREEN 


990 L=L-62 : R=R-66 : NEXT I 




500 A9=140 : T9=T9-1 : IFT9<=0 THEN LF=1 


1000 RETURN 
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GAME 



Preschoolers shoot'em up. 




Tank 



p.G.*^ 6 ^ 



Dan L. Rice 

138 Savannah Drive West 

Bead, DE 19701 

I think the preschool population is being 
ignored in the area of computer games. 
This point was recently brought to my atten- 
tion by my preschooler, Keri. My 10 year old 
and I would spend countless hours playing 
computer games that Keri could not under- 
stand. Since I wanted her to enjoy our fam- 
ily computer as much as the rest of us do, I 
set out to design a game for preschoolers. 

I decided the game must provide a chal- 
lenge, be easily operated with a minimum of 
key usage and its rules should be easily 
understood and remembered. 

The game I designed was named Tank by 
the youngest computer nut in my house- 
hold, and judging by its acceptance, I suc- 
ceeded in meeting my objectives. 

Game Objective 

The player has five turns to move a tank 
through an obstacle course to destroy five 
targets. If an obstacle is hit, the player loses 
one turn. The player wins if he or she de- 
stroys the five targets before hitting five ob- 
stacles. 

Game Description 

Five targets, represented by X's, are ran- 
domly placed on a field covered with obsta- 
cles (represented by graphics characters). 
The number of obstacles is controlled by 
the player's response to the difficulty level 
of play desired. By using the up, down, left 
and right arrow keys, the player moves the 
tank, represented by an H, around the 
obstacles to overlay each target. If he or she 



hits an obstacle, the player loses one turn, 
and the tank is repositioned on the field. 



Operation 

The player is asked what difficulty level is 
desired; easy, medium, or hard, to which E, 
M, or H is the response. The playing field is 
then filled with randomly selected graphics 
characters, less for the easy play level, 
more for the hard level. The five targets are 
placed randomly on the field, and the tank 
is randomly positioned around the field un- 
til any key is pressed. This signals the tank 
to stop and the game to begin. 

If your computer system includes an ex- 
pansion interface, the amount of time it 
takes each player to destroy the five targets 
is recorded. This will give you time scores to 
compare with other players. 

Modification 

The program is written so almost every 



variable can be modified to your own specif- 
ications. In order to change the number of 
enemy targets, you change the value of EN 
in statement 90. To change the number of 
turns the player gets, change the value of 
YR in statement 100. To change the target 
character from the X, change the value of 
TG in statement 110 to the decimal ASCII 
value of the desired character. To change 
the tank character from H, change the value 
of TK in statement 120 to the decimal ASCII 
value of the desired character. To eliminate 
the timing facility if you do not have expan- 
sion interface, set T$ equal to NO in state- 
ment 130. Finally, to change the number of 
graphics characters put on the field for 
each difficulty level, change the values as- 
signed to DF in statements 720, 730 and 
740. 

I hope you enjoy this game. I think you 
will find there is a bit of preschooler in all of 
us, as you fight the kids off in order to con- 
tinue playing the game yourself.! 



Program Listing 



10 
20 
30 
40 
50 
60 
70 
80 
90 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



******************* 

***** TANK ***** 
******************* 

*** WRITTEN BY *** 
*** DAN L. RICE *** 
******************* 

CLS: RANDOM:' CLEAR SCREEN AND RESEED RANDOM NUMBER GENERATOR 

CLEAR 50: ' CLEAR STORAGE 

EN=5: ' NUMBER OF ENEMY TARGETS 
YR=5: ' NUMBER OF PLAYER TRIES 
TG=88 : ' TARGET CHARACTER 
TK=7 2: ■ TANK CHARACTER 

T$=" ": ' T$="NO" IF NO EXPANSION INTERFACE 
GOSUB680: ' GET DIFFICULTY FACTOR 
' SET UP THE PLAYING FIELD 
FORI=lTODF 

SH=RND(63) :LO=RND(1023) 
LO=LO+15360 
IF PEEK(LO) O32THEN170 
POKE LO,SH+128 
NEXTI 

* SET UP THE TARGETS 
FORI=lTOEN 
X=RND( 960) :IFPEEK(X+15424)O32THEN240 

Program continues 
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Listing continued 

250 POKEX+15424,TG:NEXTI 

260 ' WAIT FOR SIGNAL TO START 

270 H1=RND(1023) : IFPEEK (Hl + 15424 ) O32THEN270 

280 H=H1+15424 

290 Q$=INKEY$:IFQ$O""THEN310 

300 POKEH,TK:FORI=1TO50:NEXTI:POKEH,32:GOTO27 

310 POKEH, TK 

320 ' START THE GAME 

330 IFT$="NO"THEN360 

340 IFT1O0THEN360 

350 T$=RIGHT$(TIME$,5) :Tl=VAL (LEFT$ (T$ , 2) ) *60+VAL (RIGHTS (T$ , 2) ) 

360 PRINT @ 30, "ENEMY " EN " YOU " YR; 

370 S$=INKEY$ 

380 IFT$="NO"THEN410 

390 T$=RIGHT$(TIME$,5) :T9=VAL (LEFT? (T$, 2) ) *60+VAL (RIGHTS (T$, 2) ) 

400 PRINT @50,T9-T1; 

410 IFS$=""THEN370 

420 F=H 

430 X=ASC(S$) 

440 IFX=91 THENH=H-64:GOTO490 

IFX=10 THENH=H+64:GOTO490 

IFX=9 THENH=H+1:GOTO490 

IFX=8 THENH=H-1:GOTO490 
480 GOTO370 

490 IFH<15360THENH=15360:GOTO530 
500 IFH>16383THENH=16383:GOTO530 
510 IFPEEK(H)=32THEN550 
520 IFPEEK(H)=TGTHEN560 

530 POKEF, 32 : FORI=1TO100 : POKEH , 32 : POKEH , 42 :NEXTI : POKEH ,32 
540 YR=YR-1:IFYR=0THEN590 ELSE270 
550 POKEF, 32: POKEH, TK:GOTO360 

560 POKEF, 32 : FORI=1TO100 : POKEH , 32 : POKEH , TK : NEXTI 
57 EN=EN-1:IFEN=0THENGOTO590 
580 GOTO360 

590 CLS:PRINTCHR$(23) ; : IF EN=0THEN 620 
600 PRINT @06, "SORRY, YOU LOST"; 

610 GOTO650 

620 PRINT @06,"I SURRENDER, YOU WIN"; 

630 IFT$="NO"THEN650 

640 PRINT @70,"IT TOOK YOU " T9-T1 "SECONDS."; 

650 PRINT@134, "PRESS ENTER TO CONTINUE" 

660 Q$=INKEY$:IFQ$=""THEN660 

67 GOTO70 

680 PRINTCHR$(23);TAB(6)"ENTER -E- FOR EASY" :PRINTTAB (6 ); "ENTER 

-M- FOR MEDIUM" 

690 PRINTTAB(6); "ENTER -H- FOR HARD" 

700 Q$=INKEY$:IFQ$=""THEN700 

710 CLS 

THEN DF=10 0: RETURN 

THEN DF=20 0: RETURN 
740 IF Q$="H" THEN DF=300:RETURN 
750 GOTO680 



450 
460 
470 



720 IF Q$="E" 
730 IF Q$="M" 



M********************* 



*TRQ--00* 

COLOR 
COMPUTER 



# 16K. Heiory Conversion Kit % 59.95 # 

# 32K. Metory Conversion Kit $119.95 j 



32K. Kit (for 16K.syste§) I 59.95 
KIT Less Heiory (each) $ 12.00 

Kits can be installed inside the 
COLOR COMPUTER Mi thin 15 linutes, 
coies with Heiory Test Prograi, 
and are completely GUARANTEED 

CULPEPER COMPUTER DESIGNS 
502 SOUTH EAST STREET .-484 
CULPEPER, VIRGINIA 22701 



*********************** 



64K COLOR 

TRS-80" COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for extended basic. 

EXPANSION KITS 

64K $375 16K $35 

32K $75 XBASIC$90 

Call for details on other TRS-80' 

computers & accessories. 

SOUND CENTER - 
RADIO SHACK DLR 

Los Alamos, NM 87544 

(505) 672-9824 

'TRS-80 Is a trademark of 

Tandy Corp. 



GET YOUR 
TRS-80 DIRECT 



AUTHORIZED Radtt /hSOk SALES CENTER 

F0BT COMPTJTERS Z 



WORTH 



377 PLAZA HWY. 377 GRANBURY 
FORT WORTH. TX 70048 ^462 



AND SAVE $ 




Get our quote "before you buy. 

Full manufacturers warante* 

Texas residents edd 4% smles tax- 



817-573-4111 



COST OF CALL REFUNDED FOR ORDERS BY TELEPHONE 




O 

of not being able to read the digital 
tape counter without changing 
positions every time? 

— Then try the 

DATA VIEW 

designed to position the 
recorder at the propei 
angle for effortless view 
ing of the counter. 

Constructed of durable translucent acrylic 
in a beautiful smoked gray tint with slip 
resistant padded feet. Only 8.95 each 

TO ORDER: Send check or money order for 
8.95 + 2.00 for shipping and handling. 
California residents add 6% sales tax. 

REMTRON v-499 

P.O. Box 2280 

Santa Clara. CA 95055 

Dealer Inq. Invited NO CODS 




DOUBLE DENSITY - 179K on SA-400 

ALLTTL-NOFDCChip 

PLUGS INTO CARTRIDGE SLOT 

UCSD Pascal' COMPATIBLE 

COLOR 
COMPUTER 

$99.95 

FLOPPY 
DISK 

DISK ROUTINES & DEBUC MONITOR EPROM $34.95 
64K bit RAM Chip ADAPTER BOARD $23.95 

W7/\ T ,„---, e " 447 9009 W. 95th St. 
0^T^hrw5L.tac Overland Pk.Ks 66212 

■ ^,!?? l0gieS (913)381-5588 



UCSO Pascal is a registered trademark 
onne Regents of the univ ofcaiifon 



MASTERCARD 



^See List ot Advertisers on page 322 
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GAME 



Be fruitful and colonize. 



Space Empires 




James L Smith 
1310 Acorn 
Rogers, AR 72756 



-R.-boketf*. 



The date is 2501 A.D. Mankind is building 
colony ships to burst forth, explore, and 
colonize the universe. As Admiral-in-Chief 
you have until 2020 A.D. to explore and col- 
onize 19 star systems; only 20 years. This is 
accomplished by spending megacredits 
each year (one turn = one year) to build col- 
onies and move your space fleet to the next 
star system. Each turn is divided into 
phases as listed below. 

Status Report 

Each turn begins with a status report that 
tells how many megacredits you have 
earned from the previous year. Within a ten 
percent adjustment, you will receive five 
megacredits for each explored system, and 
15 megacredits for each system you col- 
onize. Megacredits left over from the pre- 
vious year will be included. The status 
report includes the number of systems you 
have colonized, explored, and systems re- 
maining to be explored. 



Movement Phase 

Each game, a different universe (playing 
grid) is randomly created. On the first turn 
you begin with one colony, where your fleet 
is based. Each turn that you move to a star 
system (*), it becomes an explored system; 
E. It will cost you seven megacredits each 
time you move. To move your fleet on the 
10 by 10 grid you must type the y-axis first 
(the left hand number), then a comma, then 
type the x-axis and hit Enter. There are some 
movement limitations: You can only move 
two spaces during a turn, you must land on 
a star system, and you cannot move outside 
the universe (playing grid). If you make a 
wrong move you are still charged seven 
megacredits, and your fleet returns to your 



last base. Hints: remember, you only have 
twenty turns to explore and colonize nine- 
teen systems. You can only afford one mis- 
taken move per game. Plan ahead so you 
don't waste time by landing on systems you 
already own. 

During future turns, various symbols will 
appear on the playing grid. O means a col- 
ony. E means an explored system. An aster- 
isk * means an unexplored system. S shows 
the location of your ship. 

Emergency Situations 

On even numbered game turns, you will 
have to meet and cope with emergency situ- 
ations. The cost of meeting each emer- 
gency will be given. However, you may gam- 
ble and spend less to conserve megacred- 





Program Listing. Space Empires 




5 CLS: PRINT? 140, "* * * SPACE EMPIRES * * *" 




6 PRINT TAB (22) "BY" 




7 PRINT TAB(16) "JAMES L. SMITH" 




8 PRINT: PRINT "THIS IS A GAME OF SPACE EXPLORATION 


. PLA 




YERS MUST MOVE" 




9 PRINT "THEIR STAR FLEETS CORRECTLY AND ECONOMIZE 


WISE 


10 


PRINT"TO COLONIZE ALL 20 STAR SYSTEMS AND WIN THE GA 




ME" 




12 


PRINT: PRINT"THIS GAME IS CURRENTLY FOR SALE ON 
YALTY" 


A RO 


14 


PRINT "AND / OR CASH BASIS. CONTACT ME FOR AN 
MENT" 


AGREE 


15 


PRINT "J. L. SMITH 1310 ACORN ROGERS ARK 72756- 




-636-6109" 




16 


PRINT: INPUT "ARE YOU READY? HIT ENTER FOR THE 

; u 

CLEAR 500 


FUN!" 


18 




20 


CLS: T=2500: A$="# , ### . ##" 




25 


S$="C": RANDOM 




30 


DIM G$(10,10) 




35 


PRINT @ 206, " ONE MOMENT PLEASE " 




37 


PRINT @ 27 0, "WE ARE CREATING THE UNIVERSE" 




40 


G$(l,l)="*" 




43 


C8=1:C9=1 




46 


FOR I = 1 TO 19 


Program continues 
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its. If your gamble does not work, or you 
spend nothing, you must suffer the conse- 
quences. 

Possible emergencies are: 

1.) Fleet repairs and supplies: If you 
neglect this one, your ship does not move 
next turn. 

2.) Revolts: Star Systems require certain 
expenditures of megacredits to maintain. If 
you gamble and lose or pay nothing, then 
the system is in revolt. You do not receive 
revenue from systems in revolt. Explored 
systems will always revolt first. If there are 
no explored systems, then a colony will re- 
volt. Colonies that revolt must be rebuilt. If 
you have no more systems left, you lose the 
game. 

3.) Budget Cuts: Eventually, you must 
deal with the bureaucracy. The world coun- 
cil will cut your budget by 1/6. This is not so 
bad early in the game but later it can mean 
bad news. 

4.) Natural Disasters: At one point during 
the game, if you are unlucky, a colony will 
be destroyed and revert to unexplored sta- 
tus. It will have to be rebuilt. 

Build Colonies 

This is how you win the game. You must 
build colonies as quickly as you can and 
pyramid your revenue. Only explored sys- 
tems may be colonized. Since it costs 90 
megacredits to build a colony, your first 
build should occur on turn six or seven. You 
can build none, one, or more than one col- 
ony per turn if you have the loot. There is a 
slight pause in the program here before the 
next game turn occurs. 

Space Empires is never a sure win. Like 
life, there are many variables. If you have 
developed a good strategy it will increase 
your chances. I could give you a few hints 
but that would spoil the fun. Develop your 
own!l 



5 - 30 


Prepare for the game 


35- 80 


Create the Universe (playing grid) 


100-220 


Compute the revenue for present turn 


230-325 


Print the Status Report 


340-525 


Print the grid and call for movement 


535-700 


Test movement accuracy and move fleet 


710-890 


Determine and print emergencies 


940-1060 


Build Colonies 


1070-1110 


Test for win/lose or return for next turn 


2000-2090 


Subroutine for fleet emergencies 


2500-2699 


Bring systems out of revolt 


2710-2799 


Test for system where fleet landed 


2800-2999 


Winners display 


3000-3060 


Reduce colonies 


7ao/e 1. Program Structure 



"This is how you win the game. 

You must build colonies as quickly 

as you can and pyramid your revenue." 



Program listing continues 



48 H9=RND(3) : V9=RND(3) 

50 IF H9=l GOTO 60 

53 IF H9=2 AND C8<9 THEN D8=2: GOTO 60 

56 IF H9=3 AND C8>2 THEN D8=-2: GOTO 60 

58 GOTO 48 

60 IF V9=l GOTO 70 

62 IF V9=2 AND C9<9 THEN D9=2: GOTO 70 

64 IF V9=3 AND C9>2 THEN D9=-2: GOTO 70 

70 C8=C8+D8: C9=C9+D9 

72 IF G$(C8,C9)="*" THEN D8=0: D9=0: GOTO 48 

74 IF 1=19 THEN G$ (C8 ,C9) ="C" : Il=C8: J1=C9: GOTO 78 

76 G$(C8,C9)="*" 

78 D8=0: D9=0 

80 NEXT I 

100 T=T+1: Z=9: Y=0 

110 FOR I = 1 TO 10 

120 FOR J = 1 TO 10 

125 IF GS(I,J)="." THEN 180 

130 IF GS(I,J)="*" THEN S1=S1+1: GOTO 180 

140 IF G$(I,J)="E" THEN E1=E1+1: GOTO 180 

150 IF G$(I,J)="C" THEN C1=C1+1: GOTO 180 

160 IF G$(I,J)="S" THEN 11=1: J1=J: GOSUB 2710: GOTO 18 


170 IF GS(I,J)="R" THEN R1=R1+1 
180 NEXT J 
190 NEXT I 

200 ET=E1*5: CT=C1*15 
205 G1=RND(20): G1=G1/100 + .90 
210 G2=RND(20): G2=G2/100 +.90 
220 ET=ET*G1: CT=CT*G2 
230 CLS: PRINT "CIRCA" ;T; "A.D. " ; 
240 PRINT TAB(25) "FEDERATION STATUS REPORT": PRINT: PR 

INT 
245 PRINT TAB(10) 
250 PRINT TAB (10) 
260 PRINT TAB(10) 



"UNEXPLORED STAR SYSTEMS"; SI 
"SYSTEMS IN REVOLT "; Rl: PRINT 
"REVENUE FROM"; El; "EXPLORED SYSTEMS"; 



270 PRINT USING A$; ET 

280 PRINT TAB(10) "REVENUE FROM" ; CI ; "COLONY SYSTEMS 

290 PRINT USING A$; CT 

29 3 PRINT TAB (10) "BALANCE FORWARD "; 

294 PRINT USING A$; TC 

295 TC=TC+ET+CT 

300 PRINT: PRINT TAB(10) "TOTAL FEDERATION REVENUE 



310 
320 
325 
330 
335 

340 
350 
360 

370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
475 
480 
490 
500 
510 
520 

525 
535 

536 

537 



PRINT USING A$; TC : PRINT 

PRINT TAB (10) "REPORT COMPLETE - HIT ENTER"; 

INPUT U: CLS 

IF X=l GOTO 700 

IF (TC+. 005X7 PRINT "SORRY COMMANDER - YOU'RE SHOR 

T OF FUNDS - NO MOVEMENT": GOTO 700 
PRINT "CIRCA: " ;T; "A.D. "; 
PRINT TAB (22) "SPACE EMPIRES"; 
PRINT TAB (42) "MEGACREDITS"; 
PRINT USING A$;TC: PRINT 
FOR J = 1 TO 10 
PRINT TAB(Z) J; 
Z = Z+4 
NEXT J 

Z=0: Z=5: Y=l 
FOR I = 1 TO 10 
PRINT CHR$(10) TAB(Z) Y; 
Z = Z + 1 

FOR J = 1 TO 10 
Z = Z+4 

IF GS(I,J)="" PRINT TAB(Z) 
PRINT TAB(Z) G$(I,J) ; 
NEXT J 

Z=0: Z=5: Y=Y+1 
NEXT I 
PRINT: PRINT: PRINT TAB(9) 

,H)"; 
INPUT V,H: CLS 
IF V=I1 AND H=J1 PRINT "NO FLEET MOVEMENT THIS PHAS 

E - AS ORDERED": GOTO 700 
IF V>10 OR V<1 PRINT "YOUR FLEET WAS ORDERED OUT OF 

THE UNIVERSE": GOTO 1140 
IF H>10 OR H<1 PRINT "YOUR FLEET WAS ORDERED OUT OF 

THE UNIVERSE": GOTO 1140 



GOTO 490 



•FLEET MOVEMENT PHASE (V 



Program continues 
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Computer 

Forms 

Catalog 



with 32 pages of 
continuous 
business forms for 
small computer 
systems 

Send today for our NEW full color 32 
page catalog with programming guides, 
prices and order forms for continuous 
checks, invoices, statements, envelopes, 
stock paper and labels. 

• Quality products at low prices 

• Available in small quantities 

• Fast Service 

• Money Back Guarantee 

• Convenient TOLL-FREE ordering 



Fast Service by mail or. . .PHONE TOLL FREE 
1 + 800-225-9550 

Mass. residents 1+800-922-8560 
8:30 a.m. to 5:00 p.m. Eastern Time Monday — Friday 



Please rush a new computer forms catalog to: 
Name . 



CODE 59460 



Company 



Street 



City, State and Zip 



Phone 



Computer make & model 



* 1 94 78 Hollis Street, Groton, Mass. 01471 

A divisKXi ol New England Business Seivice, Inc 
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Program listing continues 



540 
550 
560 

570 
580 
590 
600 
610 
617 
620 
625 
630 
635 
637 

640 

670 
680 

690 

700 

710 
720 
740 

750 
755 
7 57 

758 
760 
770 

780 
785 
790 
800 
810 

814 

816 

825 

827 

829 
840 
850 

853 

855 
860 
863 
870 
880 
881 
882 

883 
884 
885 
887 
888 
889 
890 
900 
910 

920 

930 



1 GOTO 681 
I2=V-I1: 



GOTO 58 



TC=TC-7 

IF G$(V,H)=" 

IF V>I1 THEN 

I2=I1-V 

IF H>J1 THEN J2-H-J1: GOTO 600 

J2=J1-H 

IF I2>2 GOTO 680 

IF J2>2 GOTO 680 

IF SS="*" THEN S$="E" 

G$(I1,J1)=S$ 

S$=G$(V,H) 

G$(V,H)="S" 

IF S$="E" OR S$="*" THEN E1=E1+1 

IF S$<>"*" PRINT "YOU HAVE LANDED ON ONE OF YOUR SY 

STEMS" : GOTO 67 
PRINT "YOU HAVE SUCCESSFULLY EXPLORED ANOTHER SYSTE 

H" 
GOTO 700 
PRINT: PRINT"SORRY COMMANDER. AN INCORRECT SET OF C 

OORDI NATES" 
PRINT" WAS ORDERED. YOUR FLEET RETURNS TO PLANET F 

ALL !" 
PRINT: IF X=l CLS: PRINT"YOUR FLEET IS STILL IN POR 

T": GOSUB 2000 
IF R1>0 GOSUB 2500 
IF INT(T/2)OT/2 GOTO 900 
PRINT: PRINT TAB (15) "* * * EMERGENCY SITUATION * * 

*": PRINT 
G4=RND(6) : 

IF G4=l AND X=l OR G4=2 AND X=l GOTO 750 
IF G4=3 AND E1=0 AND C1=0 OR G4=4 AND E1=0 AND C1=0 

GOTO 7 50 
IF G4=6 AND B3=l OR G4=6 AND C1<=1 GOTO 750 
ON G4 GOTO 770,780,790,800,810,825 
PRINT "YOUR FLEET NEEDS FUEL AND SUPPLIES": GOSUB 2 

000: GOTO 900 
PRINT "YOUR FLEET IS IN NEED OF REPAIRS THIS YEAR" 
GOSUB 2000: GOTO 90 

PRINT "A STAR SYSTEM NEEDS MEDICAL AID": GOTO 840 
PRINT "A STAR SYSTEM IS IN REVOLT": GOTO 840 
PRINT "THE WORLD COUNCIL DECREASES YOUR PRESENT ALL 

OTMENT OF" 
PRINT "MEGACREDITS BY 1/6 FOR THIS YEAR": TC=INT(TC 

-(TC*.16) ) 
PRINT " YOUR CURRENT BALANCE IS" ;TC; "MEGACREDITS. " : 

GOTO 90 
PRINT " ONE OF YOUR COLONIES HAS BEEN DESTROYED BY 

A NATURAL" 
PRINT "DISASTER. IT IS REDUCED TO EXPLORED STATUS. 

GOSUB 3000: B3=B3+1: GOTO 900 

R1=R1+1 

IF El=l AND S$="E" OR El=l AND S$="*" THEN El=El-l: 

S$="R": GOSUB 2500: GOTO 900 
IF El=0 GOTO 882 
FOR I = 1 TO 10 
FOR J = 1 TO 10 

IF G$(I,J)="E" THEN E1=E1-1: GOTO 890 
NEXT J 
NEXT I 

PRINT "ERROR IN REVOLT SEQUENCE AT 881": STOP 
IF Cl=l AND S$="C" THEN S$="R": C1=C1-1: GOSUB 2500 

: GOTO 90 
FOR I = 1 TO 10 
FOR J= 1 TO 10 

IF GS(I,J)="C" THEN Cl-Cl-li GOTO 890 
NEXT J 
NEXT I 

PRINT "ERROR IN REVOLT SEQUENCE AT 889": STOP 
G$(I,J)="R": GOSUB 2500 

PRINT: PRINT TAB(15) "+ + + BUILD COLONIES + + +" 
PRINT: PRINT" IT COST 90 MEGACREDITS TO BUILD A COLO 

NY." 
PRINT "YOU HAVE" ;TC; "MEGACREDITS REMAINING." 

PRINT "YOU HAVE"; El; "SYSTEMS TO COLONIZE AT PRESENT 

B 



940 INPUT "HOW MANY COLONIES DO YOU WISH TO BUILD" 

945 IF B=0 GOTO 1060 

950 B1=B*90 

960 IF B1XTC+.005) PRINT "THAT EXCEEDS YOUR BUDGET": G 

OTO 940 
964 IF B>E1 PRINT "YOU CAN ONLY BUILD" ;E1 ; "COLONIES" : G 

OTO 940 
970 TC=TC-B1 

980 IF El=l AND S$="E" OR El=l AND S$="*" GOTO 1052 
990 FOR I = 10 TO 1 STEP -1 
1000 FOR J = 10 TO 1 STEP -1 
1010 IF G$(I,J)="E" GOTO 1040 
1020 NEXT J 
1030 NEXT I 

1032 PRINT'ERROR IN BUILD COLONIES AT 1032": STOP 
1040 G$(I,J)="C": L1=L1+1: C1=C1+1: E1=E1-1 

1050 IF B>L1 GOTO 980 

1051 GOTO 1060 

1052 S$="C": L1=L1+1: C1=C1+1: E1=E1-1 
1054 IF B>L1 GOTO 980 

1060 Z2=0: PRINT "NUMBER OF COLONIES BUILT:"; LI 

Program continues 



MODEL II 




26-4002 

64K 1 Drive 

$3440.00 

26-4160 1 Drive Exp $1034.00 

26 
26 
26 
26 
26 
26 
26 



4161 2 Drive Exp 1574.00 

4162 3 Drive Exp 2114.00 

4530 Scripsit II 265.00 

4512 Profile II 162.00 

4511 Visicalc II 265.00 

4501 Gen Ledger 180.00 

4506 Mail List 72.00 



PRINTERS 




cEnTRomcs 

BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



DISCOUNT 

TRS-80® ~ 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 



We carry the full line of TRS-80 Computers. All 
other software, furniture, and accessories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 



26-1 140 Expansion Interface $249.00 

26-1141 16KExp. Interface 359.00 

26-1 142 32K Exp. Interface 469.00 

26-1 145 RS232C Board 84.00 

26-1 160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 

..... -PRINTERS- * * * • « 



26-1 155 Quick Printer 187.00 

26-1167 9Vi Dot Matrix Printer 360.00 

26-1 166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1799.00 

26-1 165 Line Printer V 1710.00 



Pocket Computer 

26-3501 1.9K P.C $188.00 

26-3503 Cassette IF 45.00 

14-812 Recorder 72.00 



WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL III 




26-1061 4K I $629.00 

26-1062 16K III 865.00 

26-1063 32K III 

W 2 Drives, RS232 2225.00 

COLOR 




26-3001 4K $318.00 

26-3002 16K Ext. Basic 488.00 

26-3008 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 




commodore 

AUTHORIZED DEALER 
CALL FOR PRICES 



ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 Toll Free Order Entry 



MICRO MANAGEMENT SYSTEMS, INC. 



No Taxes on Out Of 
State Shipments 



DOWNTOWN PLAZA SHOPPING CENTER 
DEPT. # 4- 
115 C. SECOND AVE. S.W. 

CAIRO, GEORGIA 31728 *n 



Immediate Shipment 

_ CA , \. ... (912) 377-7120 Ga. Phone No. & Export 

FrOm btOCK On /VAOSt ItemS Tin-So It a rogl.ttrrod trad.mork of th» Tandy Corp. 



A Copy of the Radio Shock 90 day 
Limited Warranty can be obtained 
Free upon specific written re- 
quest to the Electronics Dept. of 
our Cairo, Georgia Retail Store 
which is an Authorized Sales 
Center for Radio Shack Merchan- 
dise. Store #A301 



•See List of Advertisers on page 322 
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HI RESOLUTION 

GRAPHICS FOR TRS-80* 



INTRODUCING: 




E/RAM Graphics is a unique hardware/software package, which will integrate high- 
speed, high resolution graphics into any Level II TRS-80 system E/RAM hardware is a 
fully plug-compatible box. which installs in minutes, and requires absolutely no 
modifications to the TRS-80 system E/RAM software is a compact, relocatable set of 
utilities which provides the user with easily accessible graphics functions For instance 
the user pokes the end point coordinates of a line into certain locations, does a USR call, 
and an optimized dot-raster line is automatically drawn on the screen at very high speed 
(less than 10 milli-seconds for a medium length line). 

E/RAM does not require the purchase of an additional monitor CRT The high-resolution 
graphics video is syncronized with the TRS-80 video and appears on the screen with the 
normal TRS-80 display. Alphanumerics. TRS-80 graphics, and E/RAM high-resolution 
graphics may be displayed simultaneously or individually 

E/RAM hardware contains its own 6144 byte video memory, which provides a true 256 x 
192 matrix of Independent graphic elements (E/RAM is NOT a programmable character 
generator type graphics system Character generator systems have serious limitations 
in full screen graphics applications ) 

E/RAM will operate with or without an expansion interface, and with any standard 
memory configuration (4k through 48k). 

E/RAM is fast. E/RAM" is an acronym for Extended Random Access Memory, a very 
short description of the Patent-Pending method of I/O employed by this device, which 
gives it memory-mapped speed without interfering with the memory space used by the 
TRS-80 

The installation of E/RAM will not affect 
normal operation of the TRS-80. High 
resolution ON/OFF is under program or 
manual control (a switch is provided) An 
expansion card edge connector is provided 
so that other peripherals may be used on 
the TRS-80 bus 

E/RAM software package is compact (less than 1000 bytes), fast, easy to use. and very 
flexible. A relocating loader is provided. The user can delete unneeded routines if more 
memory space is required. Lines can be drawn as fast as 13 per second using BASIC USR 
calls, and as fast as 200 per second using assembly language programs 
Routines usable through USR of BASIC, and of course an assembler CALL are: 

INIT - Sets up display 

PLOT - Plots a point 

READ - Reads a point from the screen 

BLACK - Sets drawing mode to black (off) 

WHITE - Sets drawing mode to on 

CLEAR - Clears the high-resolution graphics screen 

LINE - Draws a line 

As an example, after the utilities package is loaded and you desire to draw a line, the 
following sequence of BASIC instructions could be executed. 

U=USR(0) Return the communications area 

POKE U+1.X0 Provide the beginning X coordinate 

POKE U*3.Y0 Provide the beginning Y coordinate 

POKE U»5,X1 Provide the ending X coordinate 

POKE U*7.Y1 Provide the ending Y coordinate 

V=USR(4) Draw the line (Current speed is 

approximately 13 vectors/second) 

The complete E/RAM package is available for only S349 95. and includes case, power 
supply, cables, software cassette, and complete documentation. 
To order, or for further details, write or call 

VERN STREET PRODUCTS THE .9? M ^ UTER ST0RE 




We handle a full line 
of Radio Shack products 



^432 



4949 South Peoria Ave 

Tulsa, Okla 74105 

(918) 747-2550 

(800)331-9128 



Send $10.00 for a set of the manuals provided (applicable towards purchase) 

Dealer inquiries are invited. 

Terms: COD Welcome, check, money order. Master Charge, or Visa 

Delivery: Stock to 60 days 

E/RAM was designed, and is manufactured by KEYLINE COMPUTER PRODUCTS, INC. 

13 East 6th Street, M/C 200, Tulsa, Oklahoma 74119. 

"TRS-80 is a registered trademark ot Radio Shack, a Tandy Corporation. 



Program listing continues 

1070 IF Cl=>20 GOTO 1110 
1080 IF T=2520 GOTO 1140 
1085 IF E1=0 AND C1=0 PRINT "SORRY - YOU HAVE LOST THE 

GAME": GOTO 1140 
1087 IF TC<0 PRINT "SORRY - YOU HAVE LOST THE GAME": GO 

TO 1140 
1090 Sl=0: E1=0: C1=0: R1=0: CT=0: J2=0: B1=0: ET=0: LI 

=0: 12=0 
1100 GOTO 100 
1110 CLS: GOSUB 28 
1120 PRINT: PRINT "YOU WIN THE ASIMOV EXPLORATION AWARD 

FOR COLONIZING ALL SYSTEMS" 
1130 GOTO 1160 
1140 PRINT: PRINT "* * OUT OF 20 SYSTEMS YOU COLONIZED" 

; CI; "STAR SYSTEMS. * *" 
1150 PRINT"HOWEVER, YOU DID NOT REACH YOUR GOAL. SORRY 

, YOU LOOSE." 
1160 INPUT "DO YOU WISH TO PLAY AGAIN (Y/N)"; Q$ 
1170 IF Q$="Y" GOTO 18 
1180 END 

2000 G1=RND(20): Gl= (G1/100+ . 90 ) *20 : AE=INT(G1) 
2005 PRINT "TO REACTIVATE YOUR FLEET YOU CAN SPEND" ;AE; 

"MEGACREDITS. " 
2010 PRINT "YOU MAY SPEND LESS, BUT IT WILL BE A GAMBLE 

2020 PRINT "YOU CURRENTLY HAVE" ;TC; "MEGACREDITS. " 
2030 INPUT "HOW MUCH DO YOU WISH TO SPEND."; P 

2032 IF P=0 GOTO 2070 

2033 IF PXTC+.005) PRINT "THAT EXCEEDS YOUR BUDGET.": 
GOTO 2030 

2035 TC=TC-P 

2040 IF P=>AE GOTO 2080 

2050 P1=P/AE: G3=RND(0) 

206 IF G3<P1 GOTO 208 

2070 X=l: PRINT"SORRY, YOUR FLEET IS STILL DRY DOCKED." 

: GOTO 209 

2080 X=0: PRINT "YOUR FLEET IS NOW OPERATIVE." 

2090 P1=0: AE=0: RETURN 

2499 END 

2500 PRINT: PRINT "NUMBER OF SYSTEMS IN REVOLT: ";R1 
2505 G2=RND(20): G2= (G2/1 00+ . 90 ) *20 : AE=INT(G2) 

2510 PRINT "YOU CAN SPEND UP TO" ;AE ; "MEGACREDITS ON EAC 

H ONE." 
2520 PRINT "YOU MAY GAMBLE BY SPENDING LESS ON EACH ONE 

2525 PRINT "YOU HAVE" ;TC ; "MEGACREDITS REMAINING." 
2530 INPUT "HOW MUCH DO YOU WISH TO SPEND ON ONE SYSTEM 
"; P 

2532 IF P=0 GOTO 2570 

2533 IF PXTC+.005) PRINT"THAT EXCEEDS YOUR BUDGET.": G 
OTO 2530 

2535 TC=TC-P 

2540 IF P>=AE GOTO 2580 

2550 P1=P/AE: G3=RND(0) 

2560 IF G3<P1 GOTO 2580 

2570 PRINT "SORRY, YOUR SYSTEM IS STILL IN REVOLT.": GO 

TO 2660 
2580 IF SS="R" THEN R1=R1-1: S$="E": E1=E1+1: GOTO 2633 



2585 
2590 
2600 
2610 
2620 
2625 
2630 
2633 
2635 
2640 

2650 
2660 
2699 
2710 
2715 
2720 
2730 
2799 
2800 
2810 
2820 
2839 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2995 
2999 
3000 
3010 
3020 
3030 
3040 
3045 
3050 
3060 



GOTO 26 30 



FOR I = 1 TO II 

FOR J = 1 TO II 

IF G$(I,J)="R" 

NEXT J 

NEXT I 

PRINT "ERROR IN SUBROUTINE 2500": STOP 

R1=R1-1: G$(I,J)="E": E1=E1+1 

PRINT "YOUR SYSTEM IS BACK TO NORMAL." 

IF R1=0 GOTO 2660 

INPUT "DO YOU WISH TO SAVE ANOTHER SYSTEM (Y/N) 

Q$ 

IF Q$="Y" THEN Pl=0: GOTO 2530 

P1=0: AE=0: RETURN 

END 

IF S$="C" THEN C1=C1+1: GOTO 2730 

IF S$="R" THEN Rl-Rl+1: GOTO 2730 

E1=E1+1 

RETURN 

END 

PRINT TAB(30) 

PRINT TAB (30) 

PRINT TAB (30) 

PRINT TAB (28) 

PRINT TAB (26) 

PRINT TAB (26) 

PRINT TAB (26) 

PRINT TAB (26) 

PRINT TAB(24) 

PRINT TAB(22) 

PRINT TAB(19) "@@@@@@0 ' 

PRINT TAB(28) """■ 

RETURN 

END 

FOR I = 1 TO 10 

FOR J = 1 TO 10 

IF G$(I,J)="C" GOTO 3050 

NEXT J 

NEXT I 

PRINT ' 

G$(I,J) 

RETURN 



"I" 

"«" 
"#" 

"@@@@@" 

"@@@@@e@@@" 

n e@@e@@@@e" 

"@§ee@e@@@" 

"@@@@@§e@@" 

"@@@@@@@@@@§@@" 

«@@@@ ••••• @( 



ERROR IN LINE 3045": STOP 
= "E": Cl-Cl-1: E1=E1+1 
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TRS-80 

Products that set Precedents. 



Model I 
Model III 
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MAPPER CP/M Adapt 

CBASIC II CP/M 
beItWORD process 

$1000.00 valve $ OQQ 
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-> 



Frocessin< 




1* 



i| 



^V H 



r Z>£A TED 

V1NGS 

vailabie on selected 
U programs through 
1 'GAR, Omikron's 
I users group. 






GAME 



4K and Level II. 



Simon 



Dave McGlumphy 
4429 Paula Lane 
Red Bank, TN 37415 



wrote this program to simulate the elec- 
tronic game Simon on a TRS-80 Level II 
16K computer, and later adapted it for use 
on a Level II 4K machine. I wanted to keep 
the program small so it could load quickly 
into 4K. I used several programs which have 
appeared in previous issues of 80 Micro- 
computing to assist me. 

Taking out the remark statements makes 
the program more difficult to understand, 
but this article should clear up the logic. I 
assume that owners of Level II machines 
have heard of Simon and understand that 
you win by echoing the same blocks the 
computer flashes for you. 

Line sets the memory size to 4K minus 
the amount of memory needed by the Super 
Sound program which is POKEd into mem- 
ory by lines 1 through 3. When you print the 
memory you'll find only a small amount left 
even if you are using a 16K machine. Line 4 
sets all variables with names beginning 
with the letters C through E and G through Z 
to integers to let the program run faster. 
Line 5 defines all the variables that begin 
with the letters B or F as strings. I used five 
elements of the string array B to print a 
block of light on the screen, and five ele- 
ments of the string array F to print a 
frame of light which would contain a number. 
Line 6 clears the screen, then sets the 
computer to print large characters by the 
CHR$(23) command. Lines 7 through 1 1 give 
minimal directions to the player, and line 12 
waits for the player's response. Since the 
player need type only one character, I chose 
to use the INKEY$ function to eliminate the 
need for the enter key. The computer won't 
continue until the player presses a number 
from one to nine. 



Line 13 prints the player's selection on 
the screen. Line 14 provides audible feed- 
back to the player with two sounds, high 
pitched and low pitched. (See page 130 of 
the May, 1980, issue of 80 Microcomputing 
for "Super Sound" and page 1 10 of the April 
issue for how to modify your CTR-41 to pro- 
duce sound.) Line 15 assigns the numeric 
value of the string l$ to the variable named 
Dl which stands for Difficulty. Line 16 puts 
11 graphic characters into the string ele- 
ment F(1). The graphic character is the com- 
plete block of six pixels. Line 17 creates a 
portion of the frames by making the string 
element F(2) equal to a complete graphic 
block followed by nine spaces followed by 
another graphic block. Line 18 completes 
the building of a frame. The frame is printed 
on five lines of the screen. Line 19 builds a 
block by putting the first element of the 
frame array, F, into all five elements of the 
block array. 



Then comes the problem portion of the 
program. The array P contains the problem 
to be solved as soon as line 20 executes. 
Lines 21 and 22 print headings on the 
screen. Line 23 prints four frames by chang- 
ing N from one to four and performing line 
56. N tells the subroutine at line 56 which 
frame to draw. Line 24 is a delay loop to im- 
prove the appearance of the program. Line 
25 establishes the number of repetitions re- 
quired to beat the computer, establishes a 
For... Next loop to display the correct 
number of elements from the problem array, 
and changes the problem array each time if 
the user has selected a difficulty level great- 
er than five. Difficulty levels one through 
five repeat the sight and sound sequences 
for each repetition, whereas the higher 
difficulty levels change the sequence in 
each round of play. 

Line 26 sets the variable N to the Lth ele- 
ment of the problem array and then per- 



Program Listing 1. 

POKE16561,224:POKE16562,79:CLEAR200 

1 AD=20451:HI=INT(AD/256) :P0KE16527 , HI:POKE16526 , AD-HI*256 

2 FORI=ADTOAD+28 :READDT: POKEI , DT: NEXTI 

3 DATA 205,127,10,62,1,14,0,237,91,61,64,69,47,230,3,179,211,255 
,13,40,4,16,246,24,242,37,32,241,201 

4 DEFINTC-E,G-Z 

5 DEPSTRB,F 

6 CLS:PRINTCHR$(23) n DAVE MCGLUMPHY' S VERSION OF" 

7 PRINT@128,"S IMON WITH SOUND"; 

8 PRINT@384,"WHAT LEVEL OF DIFFICULTY WOULD" 

9 PRINT"YOU LIKE TO TRY?" 

10 PRINT@576,"1 IS THE EASIEST AND 9 IS THE HARDEST." 

11 PRINT@768,"TYPE A NUMBER FROM 1 TO 9. "; 

12 I$=INKEY$:IFI$<"1"0RI$>"9"THEN12 

13 PRINTI$; 

14 SS=USR(4096+20) :SS=USR(4096+40) 

15 DI=VAL(I$) 

16 F(1)=STRINGS(11,191) 

17 F(2)=CHR$(191)+STRINGS(9,128)+CHR?(191) 

18 F(3)=F(2):F(4)=F(2):F(5)=F(1) 

19 F0RJ=1T05:B(J)=F(1) :NEXTJ 

20 FORJ=1TO10:P(J)=RND(4) .-NEXTJ 

21 CLS:PRINT"D AVE MCGLUM 
F SIMON" 

22 PRINT"COPYRONG 1980 
LEVEL" ;DI 

23 F0RN=1T04:G0SUB56:NEXTN 



PHY 



VERSION 



DIFFICULTY 



Program continued 
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forms the subroutine at line 57, which prints 
a large block of light on the screen at posi- 
tion N. Lines 27 and 28 set the variables SC 
(Sound Code) and DU (Duration) to produce 
the desired sounds when the subroutine at 
line 59 is performed. Line 29 is a delay loop 
to improve the program's appearance. Line 
30 causes the block at position N to be 
changed to a numbered frame. 

Line 31 causes an extra frame to be dis- 
played on the screen to provide visual and 
audio distraction, increasing the difficulty 
of the game. Line 32 terminates the For. . . 
Next loop which displays the problem for 
the player. Line 33 ensures that if the player 
accidentally presses a key too soon, it 
won't be counted as part of his answer. 

Lines 34-40 get the player's answer or re- 
ply. Line 35 ensures that the player enters a 
valid response. Line 36 displays a block at 
position N as the player requests. Line 37 
checks to see if the player answered in the 
correct sequence, and if he didn't, a distinc- 
tive losing sound is produced and program 
control is sent to line 48 which tells the play- 
er that he lost. 

Lines 38 and 39 set variables to produce 
appropriate sounds for successful guesses. 
Line 40 terminates the player's input rou- 
tine. Line 41 tells the player how far he's 
gotten, and line 42 delays program execu- 
tion before allowing the next portion of the 
problem to be displayed. Line 43 terminates 
the mainline portion of the program. Lines 
44-50 tell the player whether he won or lost 
and ask if he wants another game. Line 51 
waits for a Y or N to be keyed. If the player 
keys Y, a two-pitched sound is produced 
and the computer runs the program again. If 
the player types N, the program plays a little 
tune by executing lines 53-55, and then 
quits. 

Line 56 is the subroutine which actually 
draws a frame on the screen and then num- 
bers the frame from one to four. Line 57 is 
similar to line 56, but it draws a block of 
light on five lines instead of a numbered 
frame. Both lines 56 and 57 use the variable 
N to determine which of the four frames or 
blocks to print, and where to print them. 
Line 58 prints a frame with a random num- 
ber from one to four at a random location 
below the frames or blocks produced by 
lines 56 and 57. This is to distract the player. 
The last line, line 59, produces sounds 
based on the level of difficulty, sound code 
and duration given to it by the calling lines 
in the mainline portion of the program. 

I wrote this program because I couldn't 
afford to buy a $20 gizmo to do the same 
thing when I already had a computer handy. 
I'll be delighted to respond to questions you 
may have if you choose to write and send a 
SASE. I would especially like to hear from 
someone who has written his own version 
of Merlin. ■ 

^See List ot Advertisers on page 322 



"I wrote this program because I couldn't afford 
to buy a $20 gizmo to do the same thing. . . " 



24 FORN=1TO400:NEXTN 

25 F0RJ=1T08:F0RL=1T0J:IFDI>5THENP(L)=RND(4) 

26 N=P(L) :GOSUB57 

27 SC=8-N 

28 DU=64*256:W=0:GOSUB59 

29 FORK=1TO100-5*N:NEXTK 

30 GOSUB56 

31 IFDI=5ORDI=9THENS=RND(50)+640:GOSUB58:GOSUB59:FORK=1TO100:NEX 
TK:PRINT@704 , CHR$ (31) 

32 NEXTL 

33 I?=INKEY$:I$="" 

34 FORL=lTOJ 

35 I§=INKEY$:IFI$<"l"ORI$>"4"THEN35 

36 N=VAL(I$) :GOSUB57 

37 IFNOP(L)THENFORM=1TO100:SS=USR(288) :SS=USR(384) :NEXTM:GOT048 

38 SC=8-N:DU=6*256:W=10:GOSUB59 

39 GOSUB56 

40 NEXTL 

41 PRINT@208, "NUMBER OF SUCCESSFUL ECHOES =";J; 

42 FORL=1TO400: NEXTL 

43 NEXTJ 

44 CLS : PRI NTCHR § ( 23 ) ; 

45 PRINT" CONGRATULATIONS!!" 

46 PRINT@192," YOU BEAT THE COMPUTER." 

47 FORJ=lTO10:SS=USR(4096+20) :SS=USR(4096+40) :SS=USR(4096+60) :NE 
XTJ:GOT049 

48 PRI NT @7 6 8, "SORRY, BUT YOU LOST." 

49 PRINT 

50 PRINT"WOULD YOU LIKE TO TRY AGAIN?"; 

51 I$=INKEY$:IFI$="Y"THEN52ELSEIFI$="N"THEN53ELSEGOT051 

52 CLS:SS=USR(4096+20) :SS=USR(4096+40) :RUN 

53 FORJ=lT04 : READDU , PI : GOSUB55 : NEXTJ : CLS : END 

54 DATA 40,60,20,55,30,60,40,50 

55 SS=USR ( 256 *DU+PI ): RETURN 

56 FORQ=1TO5:PRINT@240+Q*64+N*17,F(Q);:NEXTQ:PRINT8436+17*N,N;:R 

ETURN 

57 FORQ=1TO5:PRINT@240+Q*64+N*17,B(Q);:NEXTQ:RETURN 

58 F0RQ=1T05:PRINT@S+Q*64,F(Q) ; :NEXTQ: PRINT @S+1 96, RND( 4) ;: RETURN 

59 IFDI=1ORDI=6THENSS=USR(DU+SC*10)ELSEIFDI=2ORDI=7THENSS=USR(DU 
+50)ELSEIFDI=3ORDI=8THENSS=USR(DU+SC*10+W)ELSESS=USR(DU+RND(30)+ 
20) 

60 RETURN 



■ " ■ CHEAP CHIPS ... ARE NO BARGAIN mm 

I BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

I Memory failures cost you time and money. Japanese 16k 

1 RAM chips have a one-to-ten m -service failure ratio to U.S. 
M chips-lrom a study by R. Anderson. Computer Oiv.. 
9: Hewlett-Packard, reported in Tht Economist, 4-26-80. 

5 We otfer 4116 chips by Fujitsu. NEC. Hitachi. Toshiba 

^i and Mitsubishi ... lor most popular computers and 

< expansion memory boards, including: 
§ *Appki 'All TRS-80'i 'New Pel •Heitti H-89 

2 "Suporbraln 'Expandoram 'Many Others 

° 4116 DYNAMIC RAMS THE BEST 

§ 200nsec Plastic $27.70. Ceramic $37.95 

5 150nsec Plastic $31.95. Ceramic $41.95 

3 STATIC RAMS 

° 2114 450nsec $3.30. 300nsec $3.90; 2101 $2.90. 

z EPR0MS (450 nsec std: ask lor hi-speed it required) 

H 2708 $4.80: 2716 5V+12V $9.40: 2716 5V $9.70: 

3 2732 $18.90. 

CD 

_, We'll beat any legitimate price tor comparable chips. Hi- 
volume users, dealers, or clubs, ask lor quantity discounts 
SHIPPING: to $25. $2: to $50. $1: over $50. FREE. 
COD: +$1.40. 

0ISC0UNTS ON TOTAL: over $100. 5'/.: over $200. 10% 

MINIS & MICROS INC. • 29486 Trailway 

.98 Agoura. CA. 91301 • (213) 342-4535 

CA. residents add 6% sales tax 

2 YEAR WARRANTY • CALL US ANYTIME 
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The Newest Peripheral 
for your Microcomputer 

The Encyclopedia for the TRS-80* 



1 



What's the key to getting the most from your TRS-80? No, 
it isn't disk drives or printers or joysticks. It's information. 
Without a continual supply of information and ideas, you 
can't realize the full potential of the TRS-80. 

Now, you'd think that the 150 pages of articles published in 
80 Microcomputing each month would satisfy even the most 
voracious of TRS-80 users. But no! You've asked for even 
more information! 

Our response to the clamor for additional information is 
the Encyclopedia for the TRS-80, a ten-volume reference 
work that is absolutely packed with programs and articles 
carefully selected to help you make the most of your 
microcomputer. You can consider the volumes of the Ency- 
clopedia to be an extension of the documentation that came 
with your TRS-80. The articles and programs will be similar 
to those found in 80 Microcomputing. Each book is full of 
material on programming techniques, business, games, 
tutorials, education, utilities, interfacing. . .you name it. 

Unlike conventional encyclopedias, the Encyclopedia for 
the TRS-80 will never become stale or out of date. That's 
because the volumes of the Encyclopedia are being Issued 
one-at-a-time, over a period of months. This means that each 
new volume will reflect the latest developments and 
discoveries, making this a living encyclopedia for TRS-80 
users. 

Volume 1 will be out in J une. It's more than 270 pages in 
length . . . that's 270 pages of solid information ... no adver- 
tising. Here's a sample of what's included in Volume 1: 



The Encyclopedia for the TRS-80 is available in two edi- 
tions. The deluxe COLLECTOR'S EDITION is a handsome 
green and black hardcover volume, with the title stamped in 
gold and a colorful protective dust jacket provided. These 
durable volumes are perfect for school and library use and 
make a handsome addition to your personal library. They are 
available for $19.95 per volume. Also available is the more 
economical softcover edition. This contains all the informa- 
tion in the hardcover edition, but at a savings of over 45% . It 
is ruggedly bound for heavy use and has an attractive green, 
ivory, and gold cover. Available for $10.95 per volume. Both 
editions are in an easy-to-read 6" x 9" format which is perfect 
bound to remain flat when opened. 



80 MICROCOMPUTING 
SPECIAL INTRODUCTORY OFFER 



Order the entire set (the first ten vol- 
umes) of the Encyclopedia for the 
TRS-80 and receive the tenth volume 
FREE! 

PAY ONLY $164.00 for the first ten 
volumes of the deluxe hardcover COL- 
LECTOR'S EDITION— a regular 
1199.50 value 

PAY ONLY $83.00 for the first ten 
volumes of the softcover edition — a 
regular $109.50 value 
PLUS— This special offer includes UPS 
shipping and handling charges (an addi- 
tional savings of $15.00) 
Beat inflation by busing the whole set 
now . we cannot guarantee these same 
tingle volume prices for future volumes. 
You cannot losel Preview the first vol- 



ume of the set and judge for yourself. If 
the Encyclopedia for the TRS-80 does 
not meet your needs or expectations, just 
return the first volume within ten days 
and we will refund the entire amount of 
your purchase. If at any time you are 
dissatisfied, you may cancel the remain- 
ing volumes and receive a refund for the 
full value of those volumes. The books 
will be automatically shipped to you 
every 6 weeks via UPS. Take advantage 
of this offer now! You can't afford to miss 
out on the newest peripheral — the En- 
cyclopedia for the TRS-80. Call your 
order in today TOLL FREE at 1-800- 
258-5473. or use the coupon below or the 
postage-paid postcard included in this 
magazine. 



Four Graphics Methods — Improved 
techniques for dealing with the 
TRS-80's low resolution graph- 
ics. 

TTY Interface— Build an interface 
hookup a Teletype to a TRS-80 

The President Decides— A thrilling 
simulation that lets you make de- 
cisions as if you were President of 
the United States 

Measure Instructional Effectiveness 
— Many programs teach or tutor; 
this one helps determine the ef- 
fectiveness of the lessons. 

The Invoice — A program for small 
businesses which produces cus- 
tom invoices. 

Punch Out Your Disks— Double 
your disk storage in seven easy 
steps 



V. 



THE Encyclopedia for the TRS-80* 

• ES, please reserve for me a complete set of the first ten volumes of the Encyclopedia for the TRS-80. 

I want to go first class so send me the deluxe hardbound COLLECTOR'S EDITION— a $199.50 value for 

$164.00 postpaid. A total savings of $34.95 over the single volume price! (Order #EN8100) 
Send me the "blue collar" softcover edition— the same information at a substantially lower price, a $109.50 

value for $83.00 postpaid! A total savings of $25.95 over the single volume price! (Order #EN8080) 
YES, i want to start my Encyclopedia collection 

Volume 1 of the deluxe hardcover COLLECTOR'S EDITON @$19.95 (Order #EN8101)' * 

Volume 1 of the Soltcover edition @ $10.95 (Order #EN8081)' " 

"(Please enclose $1.50 per volume for shipping and handling. All volumes will be shipped UPS if the complete 
street address is provided; otherwise shipment is by 4th class book rate.) Allow 4-6 weeks for delivery. 



Payment enclosed 

Card* 

Name 

A ddress 

City 



Please charge to my . VISA Mastercard 

MC Interbank** Expires. 



\mEx 



State 



lip- 



Signature 



80 Microcomputing, Pine St., Peterborough, NH 03458 
•TRS-80 is a trademark of Tandy Corp. 
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GAME 



Five ships in three dimensional space. 



Star Guard 




'p.r^'-J'^- 



John Beringer 

2729 West Sahara Apt. 2 

Las Vegas, NV 89102 

Star Guard is written in Level II Basic for 
16K, and uses almost all available 
memory. It is an unusual space adventure 
because the player moves five ships inde- 
pendently of each other in a single game 
turn. Also, Star Guard is played in three di- 
mensional space. 

Options 

The player can move any or all of his 
ships to perform several activities. If he 
sends out all his ships to seek and destroy 
the enemy, he leaves his star systems wide 
open for attack. He may choose to keep 
some ships home for protection, while 
sending out a scout or two to explore the 
surrounding star systems. This will weaken 
the total fighter force. All options have ad- 
vantages and disadvantages. 

Movement is measured along the X, Y 
and Z coordinates, or along an imaginary 
line extending from the X, Y and Z coor- 
dinates of one point to the X, Y and Z coor- 
dinates of another. The volume of space 
defined by the X, Y and Z coordinates and 
containing the stars referenced in Star 
Guard could be called known space. Sol, 
Earth's star, is in the center of known space 
(Sol's coordinates are 0, 0, 0). All other stars 



are measured from Sol; the coordinates for 
all other stars are the distances in light- 
years for each coordinate when viewed 
from an arbitrary point of reference. Fig. 1 
shows one point of reference of known 
space. 

To move from one point in space to an- 
other, you must know the ship's current po- 
sition and destination. Coordinates show 
exactly where a ship is and pinpoint exactly 
where the destination star is. The starships 
in Star Guard are called jumpships because 
they can jump from one point to another 
without crossing the intervening space, 
making the transit almost instantaneously. 
There is, however, a maximum distance that 
jumpships may travel safely; this distance 
is six light-years. Beyond this distance, the 
jumpship risks overjump flumping to an un- 
known point in space). When a ship over- 
jumps, it is lost forever. The player has five 
jumpships in his fleet to use or lose. 

Stargates are orbital fortresses which 
protect inhabited star systems. Once con- 
structed, stargates become a permanent 
part of a star system— they cannot be 
moved from one star to another. Sol has a 
stargate. Earth's colony star system (chos- 
en randomly by the computer for each 
game) also has a stargate. The object of the 
game is to protect your two stargates and 
to destroy all the enemy's jumpships or 
stargates. Retaining both stargates and at 
least one jumpship while destroying all the 
enemy's gates or ships is considered a defi- 
nate victory. Retaining only one stargate 
and at least one jumpship is only a marginal 
victory. Losing both gates or all ships is a 
defeat. 

The D'nlm 

The D'nim are ferocious interlopers who 
have invaded with the intention of becom- 
ing the dominant species in known space. 
The D'nim have already destroyed our col- 
ony of Lalande 21158, thus sparking Inter- 
stellar War I. The D'nim have two stargates 
(locations unknown) and five jumpships. 
The player will have to dispatch a force to 
locate and destroy either the D'nim gates or 
ships, or both. 



The mechanics of ship jumping are sim- 
ple: Enter the coordinates of the destina- 
tion star as the computer asks for them. The 
distance to that star is then calculated and 
the player is asked if he wants to jump to 
the specified destination. If the distance is 
six light-years or less, there is no problem. 
On entering Y, the ship will be jumped to its 
destination. If the distance is greater than 
six light-years, a decision must be made to 
jump the entire distance (and risk overjump) 
or to jump only part of the distance. A jump 
up to 6.5 light-years can usually be made 
safely. As distance over 6.5 increases, so 
does the chance of getting lost by over- 
jump. In some cases it may be desirable to 
risk overjump to reach a stargate that is 
likely to be attacked. Enter N to refuse the 
jump option and get a new destination 
prompt. 

If you enter the current coordinates of the 
ship in question, it will not jump. Alterna- 
tively, enter 99, 99, 99 as the destination co- 
ordinates, answer Y when asked if destina- 
tion is desired, and enter zero for distance 
to jump. 




Fig. 1. Possible 3-D representation of the 
stars in the known space region of the 
game. This may help the player to visualize 
the three dimensions. 
1. Wolf 359 

2 Innes' Star 

3 Alpha Centuri group 

4. Sol (Earth's star) 

5. Epsilon Indi 

6. Barnard's Star 

7. Luyten 

& Ross 248 
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Battle 

The D'nim jumpships move in a similar 
manner, but will never risk overjump for any 
reason. The D'nim will be searching for your 
stargates while you are looking for theirs, 
and they will only search a system once, so 
eventually they will find all the player's 
gates. When the player's ships find a D'nim 
stargate, or when a D'nim ship finds a play- 
er's gate, or when the enemy ships find 
each other, a conflict results. A battle 
screen is drawn showing the opposing 
forces. Each D'nim ship is shown by an up 
arrow ( t ), and each of the player's ships is 
represented by a plus sign ( + ). Stargates 
are represented by a zero in the center of 
the Battle Screen, and stars being fought 
for are shown as an asterisk (*) when there 
are no stargates in the star system. Since 
one ship acts as an observation post for the 
player, it will not be shown on the battle 
screen; the player will appear to have one 
less ship than he actually has. 

The mechanics of battle are simple. A 
factor total is calculated for the ships and 
gates in conflict situations. The value of 
each ship is 10 units, while the value for a 
stargate is 15. The total may be broken 
down into an attack factor or defense fac- 
tor. Defense represents use of shields, anti- 
missile devices, etc., to repel the attack of 
the enemy. Attack (offense) represents use 
of lasers, missiles, etc., to wear down the 
opponent's defenses and to destroy his 
ships. The D'nim defense is applied against 
the player's offense and the result deter- 
mines how effective the attack was. The 
player's defense is applied against the 
D'nim offense, and the result determines 
how effective the D'nim attack was. 

Retreat 

Retreat is an option available to the play- 
er. The D'nim fight to the death. Retreat is 
not allowed while stargates are under at- 
tack. Under other circumstances, retreat 
costs all of the player's available power, 
half of which is alloted to defense while the 
other half powers the jump to a safe point in 
space. There is no power applied to the at- 
tack factor. It is possible for a ship to be de- 
stroyed while retreating, but this is prefer- 
able to losing the entire force. 

Possibly the most interesting part of Star 
Guard is the conflict scenarios. When a bat- 
tle is taking place, the warring ships ex- 
plode when they are hit, and the screen jig- 
gles to signify a hit on the player. The bat- 
tles are the meat of the game; everything 
else is preparation. 

When either side has lost all ships or 
gates, the game ends. By finding and de- 
stroying all D'nim ships and gates, it is pos- 
sible to rid known space of these maraud- 
ers and make life among the stars safe 
again for humans. ■ 

Hint: By using a sheet of paper to keep 
track of ships and their destinations, and 
the star systems visited, it is possible to 
play a more effective game. (The computer 
shouldn't have to do everything. That would 
take some of the challenge out of the game.) 



Program Listing 



1 CLS:PRINTTAB(22);"STAR GUARD" 

2 PRINT: PRINT-MOVE YOUR 5 JUHPSHIPS THRU 3-DIMENSIONAL SPACE TO 
DEFEND" iPRINT'YOUR 2 STARGATES AND TO FIND AND DESTROY THE RAMPA 
GING":PRINT"D'HIN INVADERSI" 

3 PRINT:PRINT"PRESS ANY KEY TO BEGIN" 

4 IF INKEYS-""GOT04 
IB DIH STARS (9) 

15 DIH SI (31) 



"WOLF 359" 
"INNES STAR" 
"ALPHA CENTURI" 
"SOL" 

"EPSILON INDI" 
■BARNARDS STAR" 
"LUYTEN* 
"ROSS 248" 
"BLACK HOLE" 



CSHIP(5,5), PSHIP(5,5) 



READ SXYZ(N,M) : NEXT H 



PRINT : PRINT "STAR N 



2B STSd) 

30 STSI2) 

40 STS(3) 

50 STS(4) 

60 STS(5) 

70 STS(6) 

75 STS(7) 

80 STS(8) 

90 ST$(9) 

95 CLS 

100 DIM CGATE(2,5), PGATE(2,5) 

105 DIH SXYZ(9,3) 

106 FOR N - 1 TO 9 

107 FOR M ■ 1 TO 

108 NEXT N 

109 DATA -6,2,1 

110 DATA 4,0,-8 

111 DATA -1,-1,-4 

112 DATA 0,0,0 

113 DATA 0,-6,0 

114 DATA 4,-3,-10 

115 DATA 6,3,-2 

116 DATA 6,-1,-1 

117 DATA 99,99,99 

118 PRINT "THE STARS IN OUR LOCAL GROUP" 
AME"," X, Y, Z LOCATION RELATIVE TO SOL" 

119 FOR M - 1 TO 8 : PRINT STARS(N) ,SX(N,1) ;SX(N,2) ;SX(N,3) : NE 
XT : INPUT "PRESS 'ENTER' TO CONTINUE. OK";KEY 

120 PGATE(1,1) = 1 : FOR N » 3 TO S : PGATE(1,N) ■ : NEXT 

125 N - RND(8) : IF N » 4 THEN GOTO 125 ELSE FOR H - 3 TO 5 : PG 
ATE(2,H) » SXYZ(N,H - 2) : NEXT 

126 PGATE{1,2) » 4 : PGATE(2,1) ■ 2 : PGATE(2,2) » N 
130 CLS 

140 PRINT "GATE NBR","NAHE" 

150 PRINT "l","SOL","HOHE STAR SYSTEM" : PRINT "2" , STARS (PGATE{ 2 

,2)), "COLONY STAR SYSTEM": FOR N - 1 TO 500: NEXT 

157 INPUT'PRESS 'ENTER' TO GO ON. OK";KEY:CLS 

160 D"RND(5) 

165 FORN»lTOD 

170 PSHIP(N,l)«N:FORH«3T05:PSHIP(N,H)=PGATE(l,H) :NEXTH 

180 NEXTN 

195 FORN-DT05 

200 PSHIP(N,l)«N:FORM«3T05:PSHIP(N,M)=PGATE(2,H) :NEXTH 

210 NEXTN 

214 FOR N = 1 TO 2 

215 SUN ■ RND(8) 

225 IF SUN ■ PGATE(1,2) OR SUN » PGATE (2,2) THEN GOTO 215 

230 CGATE(N,1) « N : CGATE(N,2) = SUN 

235 POR H - 3 TO 5 : CGATE(N,H) ■= SXYZ(SUN,H - 2) : NEXT H 

240 NEXT N 

242 IF CGATE(1,2) - CGATE(2,2) GOTO 214 

245 FOR N - 1 TO 5 

250 GATE - RND (2) 

255 CSIIIP(N,1) - N 

260 FOR H = 3 TO 5 

265 NEXT N 

270 DIH XPLRD{9), CDEST(5), SCREEN(S) 

27 5 FOR N ■ 1 TO 8 : XPLRD(N) ■ : NEXT 

280 FOR N = 1 TO 5 : CDEST(N) - 99 : NEXT 

282 FOR N - 1 TO 2: XPLRD(CGATE(N,2) ) -1 : NEXTN 

285 SCT - 1 

286 FIND = 

287 FLEET = 

288 RDY - 

290 FLEET = RND(5) : IF FLEET < 3 GOTO 290 

300 CLS:PLOST-0:CLOST=0 

301 FOR N«l TO 5 

302 IF PSHIP(N,1)"0 PLOST=PLOST+l 

301 FOR N-l TO 5 

302 IF PSHIP(N,1)=0 PLOST-PLOST+1 

303 IF CSHIP(N,1)»0 CLOST-CLOST+1 

304 NEXT N 

305 IF CLOST>4 OR PLOST>4 GOTO 407 

306 PRINT "GATE/SHIP STATUS" 
310 FOR N = 1 TO 2 

315 IF PGATE(N,1) ■ PRINT STARS ( PGATE(N,2) ) , "DESTROYED" : 

GOTO 325 
320 PRINT STARS(PGATE(N,2)) , "INTACT AND BATTLE WORTHY" 
325 NEXT N 
327 FSHIPS-0 
330 FOR N ■ 1 TO 5 
340 IF PSHIP(N,1) ■ PRINT "JUHPSHIP "; N, "LOST OR DESTROYED 

IN BATTLE" : GOTO 350 
345 PRINT "JUHPSHIP "; N, "INTACT AT "; PSHIP(N,3)) ", "j PSHI 
P(N,4); ", "; PSHIP(N,5) ; : FORP-1T08: IFPSHIP(N,3) -SX(P,1) ANDPSHIP 
(N,4)=SX(P,2)ANDPSHIP(N,5)«SX(P,3)THENPRINTSTS(P) :GOT0347ELSENEX 
TP: PRINT" " 
347 FSHIPS-FSHIPS+1 
350 NEXT N 

352 IF FSHIPS < 1 GOTO 408 
355 FGATES - 
357 EGATES - 
360 FOR N » 1 TO 2 

365 IF PGATE(N,1) <> THEN FGATES • FGATES + 1 
370 IF CGATE(N,1) <> THEN EGATES = EGATES + 1 
375 NEXT N 

377 IF FGATES » AND EGATES ■ THEN CLS : PRINT "ALL FRIENDLY A 
ND ENEHY GATES ARE DESTROYED" : PRINT "tHIS WAR IS A STANDOFF" : 

END 
380 IF FGATES - THEN CLS : PRINT "ALL OUR GATES ARE DESTROYEDI 
" : PRINT "THE HUHAN RACE IS ENSLAVED FOREVER! " : END 
385 IF EGATES » THEN CLS: PRINT "ALL ENEHY GATES ARE DESTROYED 



CSHIP(N,2) 
CSIIIP(N,H) 



GATE 
CGATE(GATE,H) 



Program continues 
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First in Its Class 
and Looking for 

Work. 

TRS-80 
Model I, II, III 



This package includes five multiple regression 
procedures (including stepwise, backward elimi- 
nation, all subset, and ridge), 24 transformations, 
comprehensive data base manager (with search 
and sort), descriptive statistics, hypothesis testing 
(7 tests), time series analysis (7 models), random 
variate generation, discrete probability distribu- 
tions, sampling distributions (generate all possible 
samples from a data set), and excellent 
documentation. 

Complete package with manual — $125 
To order, send payment plus $2.00 shipping and 
handling to: 

Quant Systems - 269 

P.O. Box 628 

Charleston, S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



ACCEL2 SPACE TRADEOFFS 

Compiled programs run lasler Irian uncompiled programs but they are usually Digger This is because 
compiled statements occupy more space than the BASIC source statements they replace. ACCEL2 com- 
piles a selected subset ol Level M/Oisk BASIC and controls the interpreter to execute uncompiled lines at 
normal interpreter speed The uncompiled lines stay exactly the same size and thus do not contribute to 
code growth at all 

Table below shows the BASIC subset translated by ACCEL2 to machine code Figures represent the 
number ot extra bytes needed by each instance ot the compiled instruction 

Assignment (LET) 

Array Reference (1 -dim) 

AND or OR 

Compare ( < . etc) 

Add. Subtract. Concat 

Multiply (*) 

Divide (/) 

Reference to a constant 

FOR with NEXT 

POKE 

SET or RESET 

IF THEN ELSE 

ON expression GOTO 

Functions 

VARPTR 

POINT 

PEEK 

LEN 

MIDS 

LEFTS 

RIGHTS 

CHRS 

ASC 

CVI 

Flow ol Control 

GOSUB with RETURN 

GOTO 

All other BASIC 

statements and functions 



INTEGER 


SINGLE 


DOUBLE 


STRING 


5 


14 


14 


14 


16 


24 


25 


20 


5 


14 


14 




11 


26 


26 


10 


3 


2 


2 


1 


[ j 


2 


2 




5 


2 


2 







6 


10 


7 


29 








7 


19 


19 




6 


18 


18 




lb 


21 


21 


21 


12 


18 


18 




-3 


-9 


-9 


-9 


3 


9 


9 
































The ACCEL2 user may also selectively inhibit compilation ol expressions to further minimise code 
growth . This is controlled by embedding REM NOEXPR and REM EXPR lines in the uncompiled program to 
bracket performance critical sections Programs compiled without use ol the REM NOEXPR option typi- 
cally expand to about 15-2.5 limes the size ol the original, but since ACCEL2 strips REM statements 
Irom the BASIC program. Imat size can sometimes be smaller 

ACCEL 2: For 32K TRS-80 Model I (Model III version soon). Compile-time size 5652 byles. run-lime 
size 1536 bytes, save lo ES/F waler. disk under TRSDOS. NEWDOS. NEWD0S80 

S88.95 + S2.00 shipping 
TSAVE: Writes ACCEL2 compiler output to independent SYSTEM tape. S9.95 + SLOOshipping 



Developed in Britain 
by Southern Soltware 



TRS-80. TRSDOS Im Radio Shack 



ALLEN GELDER SOFTWARE Mastercharge/Visa 

Box 11721 Mam Post Office CA add 6% 

San Francisco. CA 94101 
(415)387-3131 ^79 

Stringy/Floppy tm exatron inc. NEWDOS tm Apparat. Inc 



Program continued 

" s PRINT 'THE HUMAN STARFLEET IS VICTORIOUS... THE STARS ARE OU 

RSI" : END 

387 PRINT 

390 ESHIPS • 

395 FOR N - 1 TO 5 : IF CSHIP(N,1) <> THEN ESHIPS - ESHIPS + 1 

397 NEXTN 

400 PRINT 'ENEMY STARGATES REMAINING TOTAL "| EGATES 

405 PRINT 'ENEMY JUMPSHIPS REMAINING TOTAL *; ESHIPS 

406 INPUT'PRESS 'ENTER' TO GO ON. OK'jKEY 

407 IF ESHIPS-0 AND FSHIPS»0 THEN PRINT'ALL HUMAN AND D'NIM SHIP 
S ARE DESTROYED": PRINT'THIS WAR IS A DRAW": PRINT'BUT WE WILL M 
EET AGIAN SOON...": END 

408 IFFSHIPS»0CLS:PRINT"ALL OUR SHIPS HAVE BEEN DESTROYEDI " :PRIN 
T"THE D'NIM ARE ON THE WAY I " :PRINT: END 

409 IFESHIPS-0CLS: PRINT'ALL D'NIM SHIPS HAVE BEEN DESTROYEDI ": PR 
I NT" AS THEY HAVE NO MEANS TO CONTINUE THE WAR, THEY SURRENDER 

UNCONDITIONALLY I * : END 

410 PRINT : PRINT "SCANNING FOR ENEMY PRESENSE..." 
420 FOR N = 1 TO 5 

425 FOR M = 1 TO 2 

427 IF CGATE(M,1)«0 OR PSHIP(N,1)"0 GOTO 432 

430 IF PSHIP(N,3) » CGATE(M,3) AND PSHIP(N,4) - CGATE(M,4) AND 

PSHIP(N,5) ■ CGATE(M,5) THEN GOSUB 5000 : CLS 
432 IF PGATE(M,l)-0 OR CSHIP(N,1)=0 GOTO 440 

435 IF CSHIP(N,3) « PGATE(M,3) AND CSHIP(N,4) » PGATE(M,4) AND 
CSHIP(N,5) - PGATE(M,5) THEN GOSUB 5100 : CLS 

436 REM GOSUB GATE/SHIP CONFLICT 
440 NEXT M 

445 NEXT N 

447 IF CGATE(1,1)»0 AND CGATE(2,1) =0 THEN GOTO 355 

448 IF PGATE(1,1)=0 AND PGATE(2,l)-0 THEN GOTO 355 
450 FOR N ■ 1 TO 5 

452 IF PSHIP(N,l)-0 GOTO 490 

455 POR M ■ 1 TO 5 

457 IF CSHIP(M,1)«0 OR PSHIP(N,1)»0 GOTO 485 

460 IF PSHIP(N,3) <> CSHIP(H,3) GOTO 485 

465 IF PSHIP(N,4) <> CSHIP(H,4) GOTO 485 

470 IF PSHIP(N,5) <> CSHIP(M,5) GOTO 485 

475 GOSUB 5200 : CLS 

480 REM SHIP/SHIP CONFLICT 

485 NEXT M 

490 NEXT N 

494 PRINT "SCANNING ENDS": FOR N=1TO500: NEXTN 

495 CLS 

496 PLOST=O:CLOST-0 

497 FOR N - 1 TO 5 

498 IF PSHIP(N,1)"0 THEN PLOST = PLOST + 1 

499 IF CSHIP(N,1)«0 THEN CLOST » CLOST + 1 

500 NEXT N 

501 FSHIPS = 5 - PLOST-.ESHIPS » 5 - CLOST 
505 IF FSHIPS < 1 OR ESHIPS < 1 GOTO 407 
550 FOR N « 1 TO 5 

559 LOST » 

560 IF PSHIP(N,1) - PRINT:PRINT " — SHIP "; Nj "LOST OR DEST 
ROYED IN BATTLE" : PRINT: LOST • LOST + 1: GOTO 810 

565 CLS : PRINT "STAR", "SPATIAL LOCATION - X, Y, Z CO-ORDINAT 

ES" : FOR M » 1 TO 8 : PRINT STARS(M), SXYZ(M,1); SXYZ(H,2); SXY 

Z(M,3) : NEXT M 

578 PRINT? 640, "FOR JUHPSH1P "; N; ■ AT "; PSIIIP(N,3); PSHIP( 

N,4); PSHIP(N,5) 

575 INPUT "ENTER DESTINATION X CO-ORDINATE. ";X : X " INT(X) 

580 INPUT "ENTER DESTINATION Y CO-ORDINATE. *;Y : Y » INT(Y) 

585 INPUT "ENTER DESTINATION Z CO-ORDINATE. *;Z : Z - INT(Z) 

590 DX = X - PSHIP(N,3) 

595 DY - Y - PSHIP(N,4) 

600 DZ « Z - PSHIP(N,5) 

605 DIST - 

610 DEST » SQR(DX * DX + DY * DY + DZ • DZ) 

620 PRINT "DESTINATION IS "; DEST? " LIGHT-YEARS AWAY" 

622 PRINT? 960, "DO YOU WISH THIS DESTINATION";: INPUTAS: IF ASO 

"Y* AND AS <> "N* THEN GOTO 622 ELSE IF AS » "N" GOTO 565 

625 IF DEST<1 GOTO 635 

627 IF DEST<6.1 GOTO 730 

630 INPUT "ENTER DISTANCE TO JUMP. " ; DIST 

635 IF DIST <- PRINT "SHIP '; N; "DID NOT JUMP" : GOTO 810 

640 IF DIST <- 6 GOTO 720 

650 REM ELSE OVERJUHP 

660 OVER - DIST - 3 

670 LOST - INT(SQR(RND(OVER))) 

680 IF LOST - 1 GOTO 720 

690 PRINT "SHIP "; N; " LOST BY OVERJUHP" 

700 PSHIP(N,1) ■ 

710 GOTO 810 

720 IF DEST > DIST + .5 GOTO 762 

730 PSHIP(N,3) » X 

740 PSHIP(N,4) - Y 

750 PSHIP(N,5) « Z 

760 GOTO 800 

762 IF DX - AND DY - AND DZ - THEN DIST - : GOTO 635 

764 IF DX = GOTO 772 

766 IF DX > THEN DX - DX - 1 ELSE IF DX < THEN DX - DX + 1 

768 GOSUB 7000 

770 IF HIGH - GOTO 788 

772 IF DY - GOTO 780 

774 IF DY > THEN DY ■ 



DY - 1 ELSE IF DY < THEN DY - DY + 1 



776 GOSUB 7000 

778 IF HIGH = GOTO It 

780 IF DZ = GOTO 762 

782 IF DZ > THEN DZ » 



DZ - 1 ELSE IF DZ < THEN DZ - DZ + 1 



784 GOSUB 7000 

786 IF HIGH = 1 GOTO 762 

788 PSHIP(N,3) - PSHIP(N,3) + DX 

790 PSHIP(N,4) - PSHIP(N,4) + DY 

792 PSHIP(N,5) « PSHIP(N,5) + DZ 

800 PRINT "SHIP "; N; " REPORTS SUCCESSFUL JUMP TO "; PSHIP(N, 

3); PSHIP(N,4); PSHIP(N,5) 

810 INPUT-PRESS 'ENTER' TO CONTINUE. OK"; KEY 

815 NEXT N 

816 IF LOST > 4 THEN FSHIPS - : GOTO 409 



Program continues 
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Orange micro 



^o fTlfrrn " THE computer printer 

jv* 1 1 nvi \J SPECIALISTS" 

UP TO 25% DISCOUNTS! — SAME DA Y SHIPMENT! 



RADIO SHACK v 
LINE PRINTER IV / 



gH) CENTRONICS 739 ( 

With Graphics and 

Word Processing Print Quality 




• 18 x 9 dot matrix; suitable for word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 80/100 CPS • 9V 2 " Pin 
Feed/Friction feed • Reverse Platen • 
80/132 columns • Top of form 



CENTRONICS 739-1 (Parallel) (List $995) $ Call 

CENTRONICS 739-3 (Serial) (List $1045) $ Call 



ANADEX 



Dot Graphics, Wide Carriage 



• 11 x 9 dot matrix; lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeking • Up to 200 
CPS • RS 232 Serial & Parallel • Forms 
control • X-ON/X-OFF • Up to 6 part 
copy. 



ANADEX 9501 (List $1650) $1350 





EPSON MX80/MX70 



Low-Priced 
Professional Print Quality 

• 9 x 9 dot matrix • Lower case descenders 
^_ • 80 CPS • Bidirectional, Logic seeking • 
40, 66, 80, 132 columns per line • 64 special 
graphic characters: TRS-80 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

We also carry a full line 
of Epson Accessories. 

EPSON MX80 (List $645) $Call 

EPSON MX 70 Dot graphics, 5x7 matrix (List $450) $Call 

EPSON MX100 wide carriage (List $995) $Call 

GRAPPLER™ Apple graphics parallel 

interface and cable $ 165 

MX80/70 FRICTION FEED KIT 

Uses installable kit for single sheets. 

Easy 15 minute installation. $ 75 

ANACOM 

Low Cost, High Speed, Wide Carriage 

• 9x9 dot matrix • Lower case descenders • Wide carriage • 
Adjustable tractors to 16" • 150 CPS, Bidirectional, Logic Seeking 

ANACOM 150 (List $1350) $ Call 



AXIOM 



C^j^ 




Dot Graphics, Low Price 



• Dot addressable graphics • 70 CPS 

• 12 characters per inch • 80 columns 

• adjustable tractors • 3 part copies 

• Manufactured by Sieko • Parallel, 
RS232 serial, IEEE-488 interfaces 
available. 



AXIOM GP-80M 



(List $399) $349 




IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 



• 7 wire printhead (445); 9 wire printhead 
(460) with lower case descenders • Over 
150 CPS • bi-directional, logic seeking 
(460) • 8 character sizes; 80-132 columns 

• Adjustable tractors • High-resolution dot 
graphics • Proportional spacing & text 
justification (460). 

IDS 445G 7 wire printhead, graphics (List $895) $ 750 

IDS 460G 9 wire printhead, graphics (List $1394) $1150 

IDS 560G 9 wire, wide carriage, graphics (List $1794) $1400., 

CALL FOR FREE CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 

At Orange Micro, we try to lit the right printer to your application. 
Call our printer specialists for free consultation. 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • Bidirectional • Plotting • pro- 
portional spacing. 

5510-5 RO, Serial, w/tractors (List $2995) $2675 

5530-5 RO, Parallel, w/tractors (List $2970) $2650 



MW* TELEVIDEO CRT'S 

M , r^J AT DISCOUNT PRICES! 

TVI910 "V 

T^ggk TVI912C I Please Call Toll Free 

^51 *7 — t\/i oonr y Prices are too low to 

^^^^ IJon I advertise 

JJUANTiry PRICING AVAILAB^^^^Lj^^^^^^— 

PRINTERS 

MALIBU 165 wide carriage, graphics, letter quality (List $2495) $1975 

QUME 5/45 typewriter quality (List $2905) $ 2559 

VISTA-C. ITOH Starwriter, letter quality (List $1895) $ Call 

INTERFACE EQUIPMENT 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE for Apple II 

parallel interface board & cable $ 110 

MICROTRONICSAtari parallel interface $ 69 

TRS-80 CABLES to keyboard or Exp interface $ Call 

NOVATION D-CAT direct connect modem $ Call 



RETAIL PRINTER STORES: 

3150 E. La Palma. II, Anaheim. CA 

13604 Ventura Bl.. Sherman Oaks, CA 

Store Hours: M-F 10-6 Sat. 10-4 



^296 



•fe 



Phone orders WELCOME; same 
day shipment. Free use ol VISA & 
MASTERCARD. Personal checks 
require 2 weeks to clear. Manu- 
facturer's warranty included on ail 
equipment. Prices subject to 
revision. 



Orange m 

fTllCrO, Inc.^ 

3150 E. La Palma. Suite I 
Anaheim, C A 92806 



SCIENTIFIC SUBROUTINE LIBRARY 

FOR 

ENGINEERS, SCIENTISTS AND 

MATHEMATICIANS 



American Computer Development. Inc. proudly introduces the most 
powerful collection of scientific subroutines ever written for micro- 
computers. Before now these programs were only available for large 
mainframe computers such as the IBM 370*. This collection of 72 
distinct programs are up and running and can be working for you 
NOW on your TRS-80" Model I. In seconds these programs will per- 
form some of the most difficult and time-consuming problems you 
face. For example, you can solve Eigenvalue problems, invert ma- 
trices, solve differential equations, do multiple linear regressions, and 
much, much more. 

LIBRARY INCLUDES: 

POLYLIB — This is a collection of 8 subroutines designed to handle 
polynomial operations of a very high order, including polynomial addi- 
tion, subtraction, division, multiplication, evaluation, differentiation, 
integration, normalization, and extraction of roots, both real and 
complex. 

FUNCLIB — This is a set of 10 subroutines to compute the value of a 
series expansion in some special polynomial, the value of a special 
polynomial or special function, such as the gamma function. 

MATLIB — This is a collection of 13 very powerful matrix-handling 
subroutines which can be used individually or can be linked together 
to form program modules to perform successive matrix operations. 
These subroutines all use Variable Array Dimensioning. 

CALCLIB — This is a collection of 7 subroutines designed to inte- 
grate, differentiate, and solve both single and systems of differential 
equations. The differential equations programs use the Fourth-Order 
RUNGE-KUTTA method. 

STATLIB — This is a set of 26 different subroutines to calculate many 
statistical properties of various data sets. While most of the programs 
can be used individually, several can be called in order to perform 
very sophisticated analyses, such as multiple linear regressions and 
polynomial regressions. 

MISCLIB — This is a collection of 8 subroutines to calculate various 
results, including Fourier analysis, Fourier transforms, least squares 
fits, and the solving of nonlinear equations. 



PAOD 


PSUB 


PMPY 


POIV 


PVAL 


PDER 


PINT 


POLRT 


HEP 


HEPS 


LEP 


LEPS 


GMMMA 


BESJ 


BESY 


BESK 


10 


INUE 


GMAOD 


GMSUB 


GMPRO 


GMTRA 


SADO 


SSUB 


SMPY 


SDIV 


MFUN 


SIMO 


MINV 


EIGEN 


MSTR 


DGR3 


OTFG 


QG2 


QG10 


RK1 


RK2 


RKGS 


TALLY 


BOUND 


ABSENT 


CORRE 


ORDER 


MULTR 


GDATA 


AVOAT 


AVCAL 


MEANQ 


AUTO 


CROSS 


SMO 


EXSMO 


CHISO 


QTEST 


RANK 


MOMENT 


TTEST 


GAUSS 


BDTR 


CDTR 


NOTRI 


DLGAM 


RAND 


NDTR 


RTNI 


FMFP 


SE13 


APLL 


APFS 


FORIF 


FORIT 


FFT 



DOCUMENTATION: Each diskette comes with 103 pages of docu- 
mentation containing calling conventions, parameters, notes, exam- 
ples, appendices and index. 

MINIMUM SYSTEM REQUIRED: 32K RAM with single disk drive 

TO ORDER: Send check or money order in the amount of $99.95 per 
copy made payable to 



AMERICAN COMPUTER 
DEVELOPMENT, INC. ^227 

1735 Briarcrest Dr., Suite 200 

Bryan, Texas 77801 
713/775-1516 713/775-1510 

Telephone orders accepted. Dealer inquiries invited. VISA and MAS- 
TER CHARGE accepted. Send card number and expiration date. 
Price includes shipping and handling. Immediate delivery. 

'IBM 370 is a Trademark of the International Business Machines Cor* 

poration. 

"TRS-80 is a Trademark of the Tandy Corporation. 



Program continued 



817 PRINT "SENSORS DETECT D'NIM SHIP MOVEMENT. WAIT...": ESHIPS 

- B 
83B FOR N ■ 1 TO 5: IF CSHIP(N,1) <> THEN ESHIPS-ESHIPS+1 
832 NEXTN 

835 IF ESHIPS < 1 GOTO 1220 

836 IF ESHIPS<FLEET THEN FLEET ■ ESHIPS: RDY - 
840 IF RDY - 1 GOTO 1020 

850 N ■ 1: RDY - 1 

860 IF N > 5 GOTO 1000 

870 IF CSHIP(N,1) - N " N + 1 : GOTO 860 

880 SCT - N 

885 REM GOT SCOUT 

890 IF N<5 THEN M-N+l ELSE FLEET- li RDY- 1: GOTO 1020 

895 ESHIPS-FLEET 

900 IF CSHIP(M,l)-0 GOTO 980 

910 DX-CSHIP(SCT,3)-CSHIP(H,3) 

920 DY-CSHIP(SCT,4)-CSHIP(M,4) 

930 DZ-CSHIP(SCT,5)-CSHIP(M,5) 

940 DIST-SQR(DX(2 + DY(2 + DZ(2) 

950 IF DIST<1 THEN RDY-RDY+1: GOTO980 

960 IF DIST<7 THEN FOR P«3 TO 5: CSHIP(M,P) -CSHIP(N,P) : NEXTP: R 

DY-RDY+1: GOTO 980 

970 DIST-7 : IDX-M: GOSUB 7100 

980 ESHIPS-ESHIPS-1: M-H+l 

990 IF ESHIPS>0 AND H<-5 GOTO 900 

1000 IF RDY »> FLEET THEN RDY-1 ELSE RDY-0 

1010 GOTO 1215 

1020 CDIST-999 

1030 FOR N ■ 1 TO 8 

1040 IF XPLRD(N)>1 GOTO 1080 

1050 DIST-S0R((CSHIP(SCT,3)-SXYZ(N,1)) |2 + (CSHIP(SCT, 4) -SXYZ(N, 

2)) [2 + (CSHIP(SCT,5)-SXYZ(N,3)) 12) 

1060 IF DIST<1 THEN XPLRD(N)»1 : GOTO 1080 

1070 IF DIST<CDIST THEN CDIST-DIST: CDEST(3) -SXYZ(N,1) : CDEST(4) 

-SXYZ(N,2): CDEST(5)-SXYZ(N,3) 

1080 NEXTN 

1085 DIST-CDIST 

1090 ESHIPS-FLEET: N-SCT 

1100 IF DIST>7 THEN DIST-7 : GOTO 1160 

1128 POR M - 3 TO 5: CSHIP(N,M) -CDEST(M) : NEXTM 

1130 N-N+l: ESHIPS-ESHIPS-1 

1140 IF N<-5 AND ESHIPS>0 GOTO 1120 

1150 GOTO 1215 

1160 DX-CDEST(3)-CSHIP(SCT,3) 

1170 DY-CDEST(4)-CSHIP(SCT,4) 

1180 DZ-CDEST(5)-CSHIP(SCT,5) 

1190 IDX-N: GOSUB 7100 

1200 N-N+l: ESHIPS-ESHIPS-1 

1210 IF N<-5 AND ESHIPS>0 THEN IDX-N: GOSUB 7240: GOTO 1200 

1215 GOTO 1220 



1220 GOTO 300 

4999 END 

5000 EGATES - 1 
Z - CGATE(M,5) 

5100 EGATES = 
PGATE(M,5) 



FGATES » 
GOTO 5210 
FGATES = 1 
GOTO 5210 



CGATE(M,3) 
PGATE(H,3) 



CGATE(M,4) 
PGATE(M,4) 



5200 EGATES-0:FGATES-0:X-PSHIP(N,3) : Y-PSHIP(N, 4) :Z=PSHIP(N,5) 

5210 ESHIPS ■ : FSHIPS ■ 

5215 FOR ZZ-1 TO 31 : Sl(ZZ)-0 : NEXT ZZ 

5220 FOR P « 1 TO 5 

5230 IF CSHIP(P,3) - X AND CSHIP(P,4) ■= Y AND CSHIP(P,5) - Z A 

ND CSHIP(P,1) <> THEN ESHIPS ■ ESHIPS ♦ 1 

5240 IF PSHIP(P,3) - X AND PSHIP(P,4) - Y AND PSHIP(P,5) = Z A 

ND PSHIP(P,1) <> THEN FSHIPS = FSHIPS + 1 

5250 NEXT P 

5260 CLS : PRINT "ALERT! CONFLICT AT"; 

5274 A=0 

527 5 FOR B - 1 TO 8 

5276 IF SX(B,1)-X AND SX(B,2)-Y AND SX(B,3)-Z THEN A = B: GOTO 5 
278 

5277 NEXTB 

5278 IF A = THEN PRINTS, X, Y,Z ELSE PRINTS20,STARS(A) 
5280 PRINT 

5290 IF FGATES <> PRINT "YOU HAVE A STARGATE" 

5300 PRINT "YOU HAVE "; FSHIPS; "JUHPSHIPS IN THE CONFLICT VOLUM 

E" 

5310 PRINT 

5320 IF EGATES <> PRINT "THE D'NIM HAVE A STARGATE* 

5330 PRINT "THE D'NIM HAVE "; ESHIPS; "JUMPSHIPS IN THE CONFLICT 

VOLUME" 
5340 EPWR - EGATES * 15 + ESHIPS • 10 
5440 FPWR •= FGATES • 15 + FSHIPS • 10 

5450 PRINT "YOU HAVE " ; FPWR; "UNITS OF POWER FOR OFFENSE/DEFENS 
E" : PRINT "THE D'NIM HAVE "j EPWR; "UNITS OF POWER" 
5500 PRINT'PRESS 'ENTER' TO BEGIN THE BATTLE"; 
5505 AS-INKEYS: IF AS-"" THEN 5505 
5510 CLS : PRINT TAB(25) "BATTLE SCREEN" 
5512 FOR V-2 TO 125 : SET (V f 3) : SET (V,41) 



SET (2,V) 



NEXT V 
SET (3,V) : SET (124, V) 



SET ( 



5514 FOR V-4 TO 40 
125, V) : NEXT V 

5516 REM DRAW BORDER 

5517 ZZ-0 

5520 FOR P • 1 TO 20 

5540 GOSUB 7300 

5550 PRINTS D,"."; 

5560 NEXT P 

5570 IF EGATES>0 OR (FGATES>0 AND FSHIPS>0) PRINT? 480, "0"; ELSE 



IF FGATES>0 AND FSHIPS<1 PRINTS 480, "• 



ELSE IF AX0 PRINTS 48 



PRINTSD,"+"; : GOTO 5 



5572 R-FSHIPS - 1 

5573 IF R>0 THEN LET R-R-l : GOSUB 7300 
573 

5580 ZZ-25 

5590 IF ESHIPS-0 GOTO 5635 

5600 FOR S=l TO ESHIPS : GOSUB 7300 : PRINTS D,"|"; : NEXT S 
5635 LET D-480 : GOSUB 7300 
5640 CHIT-0: PHIT-0 
5660 EPWR-EGATESM5+ESHIPSM0 
5665 FPWR-FGATES*15+FSHIPS«10 
5667 PRINTS 896, CHRSI29) ;CHRS(30) ; 
5670 PRINTS 896, "POWER =";FPWR;" 
AT? Y OR N";: INPUT RTS:IF RTS 
GOTO 5667 



";: PRINTS 910,"RETRE 
•Y" GOTO 6100 ELSE IF RTS X "N" 



Program continues 
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*P 



&* 



\ 



& 
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cP 
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&- 






A gathering of Artists, 

Video Designers, 

Computer 

Composers, 

Technicians, Dancers, 

Sculptors and other 

Creative Individuals. 



1.'. - ~- 



High Tech & 
Rural Camp? 

or 
Rural Tech & 
High Camp? 



Z3 



fr* 



<fc 



ifr 



n3 



Teela-Wooket Camp 
Roxbury, Vermont 

802-485-6112 

for 

Information, Participation, 

Directions, Registration, 

Accommodations. 



SPONSORED BY TRANS/MEDIA. INC . AN 
ARTISTS COOPERATIVE. GREEN MOUN- 
TAIN MICRO. WAYNE GREEN INC. AND 
WITH THE ASSISTANCE OF TEELA- 
WOOKET CAMP 



Program continued 



5675 PRINTe910,CHRS(3B); "UNITS FOR OFFENSE"; : INPUT FOFF : IF FOF 
F<0 PRIrJTB91B,CHR$(3B); "CANNOT HAVE < OFFENSE" ; i FOR P=1TO5B0:N 
EXTP:GOTO 5675 

5680 IF FOFF > FPWR PRINT8896,CHRS( 29) ; CHRSOB); "OFFENSE CANNO 
T EXCEED TOTAL POWER";: FOR P-l TO 300: NEXTP: GOTO 5667 
5690 FD - FPHR-FOFF 

5700 PRINT@896,CHR$(29);CHR$(30);"OFFENSE «" ;FOFF; "DEFENSE -";FD 
;: FOR P-l TO 500: NEXTP 
5710 EATT-RND(EPWR) : ED-EPWR-EATT 
5730 DOPF-FOFF-ED: DFF-EATT-FD 
5750 FOR P - 1 TO 5 
5760 IF DOFF < 5 GOTO 5790 
5770 IF CSHIP(P,1) « GOTO 5790 

5780 IF CSHIP(P,3) - X AND CSHIP(P,4) - Y AND CSHIP(P,5) - Z THE 
N CSHIP(P,1) - 0: ESHIPS-ESHIPS-1: DOFF-DOFF-18 ELSE GOTO 5790 
5783 R"1:CH=CH+1:GOSUB7500:S=26:GOSUB7400 
5790 NEXTP 

5795 PRINTS 896, CHRS(29) ;CHRS( 30) ; 
5800 FOR P » 1 TO 5 
5810 IF DFF < 5 GOTO 5840 
5820 IF PSHIP{P,l)-0 GOTO 5840 

5830 IF PSHIP(P,3)-X AND PSHIP(P,4)«Y AND PSHIP(P,5)-Z THEN PSHI 
P(P,1)»0: FSHIPS-FSHIPS-l:GOSUB7600:PRINTe896,*ONE OF OUR SHIPS 
HAS BEEN HITr»:FORS«lTO500:NEXTS:DPF-DFP-10:PHIT-PHIT+l:S»21:GO 
SUB 7400:PRINT9 896, CHRS(30) ; : POR S-l TO 100:NEXT S 
5840 NEXTP 

5855 IF DOFF < 7 GOTO 5870 

5860 IF EGATES > THEN CGATE(M.l) =0: DOFF-0: EGATES-0:FORA1-1TO 
4:PRINTe896,CHRS(30);:FORA2«lTO60:NEXTA2:PRINTe896,"THE D'NIM ST 
ARGATE IS HITI "j:PORA2-lTO60:NEXTA2:NEXTAl: PRINTS 480,**";: FOR 
S ■ 1 TO 30: NEXTS: PRINT? 480," ";: FOR S - 1 TO 550 : NEXTS 
5870 IF DFF < 7 GOTO 5908 

5880 IFFGATES>0THENPGATE(H,1)-&:DFF»0:FGATES-0:GOSUB7600:PRINT@8 
96, "OUR STARGATE IS HITI "; :FORS-1TO500: NEXTS :PRINT§4 88, "«" ; : FOR 
S » 1 TO 30: NEXTS: PRINTS 480," "; : PRINTe960,"YOU HAVE LOST ST 
ARGATE ";ST$(PGATE(H,2));"I";: FOR S - 1 TO 550 : NEXTS 
5900 IF EGATES - AND ESHIPS - GOTO 5999 
5910 IF PGATES - AND FSHIPS - GOTO 5999 

5980 PRINTS 896, "YOU LOST" jPHIT; "JUMPSHIPS. THE D'NIM LOST";CHIT 
;"JUHPSHIPS";: FOR S-l TO 500: NEXTS 
5990 GOTO 5660 

5999 CLS: PRINT TAB ( 20) ; "CONFLICT RESOLVED" : PRINT 
6005 FOR P-l TO 2 

6010 IF PGATE(P,3)-X AND PGATE(P,4)=Y AND PGATE(P,5)-Z AND PGAT 
E{P,l)-0 PRINT"YOU LOST OUR STARGATE AT " ;ST$(PGATE(P,2) ) ; 
6020 IF CGATE(P,3)»X AND CGATE(P,4)-Y AND CGATE(P,5)=Z AND CGAT 
E(P,l)-0 PRINT'HE DESTROYED THE D'NIM STARGATE AT ";ST$(CGATE(P, 
2)); 

6040 NEXTP 
6050 PRINT 

6060 IF PHIT-0 AND FSHIPS-0 GOTO 6870 ELSE PRINT'YOU LOST";PHIT; 
"SHIPS."; FSHIPS; "SURVIVED.": PRINT 

6070 IF CHIT-0 AND ESHIPS-0 GOTO 6099 ELSE PRINT"WE DESTROYED" ;C 
HIT; "D'NIM JUMPSHIPS1 "; ESHIPS; "SURVIVED. ": PRINT 

6099 INPUT "PRESS 'ENTER' TO GO ON "; Z $ : RETURN 

6100 IF FGATES >< PRINTS910, "GATES CANNOT BE ABANDONED. PRESS 
•ENTER'";: INPUT ZS:GOTO 5675 

6110 PRINT6896,CHR$(29);CHR$(30); "RETREAT USES ALL PHR. DEFENSE 

REQUIRES ";PPWR/2;" ENGINES NEED ■;FPWR-FPWR/2 

6120 LOST - (RND(EPWR)-(FPWR/2) )/10:LOST-INT(LOST) :INPUT "PRESS 

'ENTER' TO GO ON";ZS 

6125 CLS:PRINTTAB(20);"CONPLICT RESOLVED" : PRINT: P«0 

6130 IF LOST <- GOTO 6200 

6135 P-P+l 

6140 IF P>5 THEN POR P"l TO 500:NEXT P:GOTO 6050 

6142 IF PSHIP(P,l)-0 GOTO 613S 

6145 IF PSHIP(P,3)-X AND PSHIP(P,4)-Y AND PSHIP(P,5)-Z THEN PSHI 

P(P,1)-0:FSHIPS-FSHIPS-1:PHIT-PHIT+1:LOST-LOST-1:PRINT"SHIP";P;* 

DESTROYED IN RETREAT" :GOTO 6130 
6150 GOTO 6130 
6200 P-P+l 

6210 IF P>5 THEN FOR P-l TO 500:NEXT P:G0TO 6050 

6220 IF PSHIP(P,3)-X AND PSHIP(P,4)-Y AND PSHIP(P,5)-Z THEN PSHI 
P(P,3)-X+1:PRINT"SHIP";P;" RETREATED TO ";X+1,Y,Z 
6230 GOTO 6200 

7000 IF SQR(DX « DX + DY * DY + DZ * DZ) > DIST THEN HIGH -IE 
LSE HIGH - 

7099 RETURN 

7100 IF DX - AND DY » AND DZ = THEN GOTO 7299 
7120 IF DX » GOTO 7160 

7130 IF DX > THEN DX = DX - 1 ELSE IF DX < THEN DX - DX + 1 

7140 GOSUB 7000 

7150 IF HIGH = GOTO 7240 

7160 IF DY - GOTO 7200 

7170 IF DY > THEN DY = DY - 1 ELSE IF DY < THEN DY 

7180 GOSUB 7000 

7190 IF HIGH - GOTO 7240 

7200 IF DZ - GOTO 7100 

7205 IF DZ > THEN DZ - 

7210 GOSUB 7000 

7230 IF HIGH - 1 GOTO 7100 

7240 CSHIP(IDX,3) - CSHIP(IDX,3) 

7250 CSHIP(IDX,4) » CSHIP(IDX,«) 

7260 CSHIP(IDX,5) = CSHIP(IDX,5) + DZ 

7299 RETURN 

7300 LET V=RND(60) 
7310 IF V<3 GOTO 7300 
7320 LET W-RND(12) 
7330 IF W<2 GOTO 7320 
7340 LET D-H*64 + V 
7345 IF D-480 D-480+RND(5) 
7350 LET ZZ-ZZ+1 
7360 LET S1(ZZ)=D 

7399 RETURN 

7400 FOR Al-0 TO 4 

7410 IF Sl(S+Al)-0 GOTO 7420 ELSE PRINTS Sl(S+Al) , "*"; 
1 TO 30 : NEXT A2 : PRINTS S1(S+A1)," "; : Sl(S+Al)-0 


7420 NEXT Al 

7430 RETURN 

7500 FOR Al-1 TO 4:PRINTS896,CHRS(30) ; : FOR A2-1 TO 60:NEXT A2:PR 

INT6896, "D'NIM SHIP HITI "ji POR A2-1 TO 60:NEXT A2:NEXT Al 

7518 RETURN 

7600 FORA1-1TO10:OUT255,8:PORA2-1TO5:NEXTA2:OUT255,0:FORA2«1TO5: 

NEXTA2:NEXTA1:PRINTS896,CHRS(39); 

7610 RETURN 



DY 



- 1 ELSE IF DZ < THEN DZ - DZ +01 



DX 
DY 



: FOR A2- 
GOTO 743 




2 games per cassette 



for the TRS-80 Model I or III. 16 K 

Iff el 1 1 or Mode 1 1 1 1 BASIC m ^computers . 
<ii our programs hue 

ACTION SOUNDS & GRAPHICS 




Scifi 

Game ol 

Tactical 

Space Combat 

You design your own space lighter and 
then blast off into battle. Human or 
10 Computer Opponents. Fight in 2 or 3 
dimensions. Three scenarios: "Smuggler", 
"Refuel Option". and "Phoenii Decathlon". 

THE NEW STARSHIP VOYAGES 
A brilliant "trek" type space war. 3D 

galaiy with wrap around. Moving enemy 
craft, some are "Cloaked". 16 commands. 
Rescue starbase Delta from the Rogues, 
catalog No. 2001 S 19.95 




PARSECTORV 



Still 

The 
Ultimate 
Spxe 

War 



Unique split screen fives each player a 
priiate display, launch fleet battle craft 
and watch them fight. Fire high powered 
energy beams or short range weapon spreads. 

Human or computer opponent. 

PARSECTOR8 Tournament Version. 
Giant galaiy to conquer. Intense Strategy ! 
catalog No. 2002 $ 19.95 




! ! ! ants ! ! ! 



Amazing 

War 
Between 

Ant 

Colonies 



Fast, machine language speed. Three game 
variations : "Opin Field", "Nest Barrier". 
and "Digging Aits". 2 platers or computer 
opponent. Easy It play. Challenging to 
master. Fun packed game for all ages ! ! ! 

THE NEW STARSHIP VOYAGES 

catalog No. 2003 $14.95 



HIGH SPEED LIFE 

The FASTEST, most ADVANCED version of 
J.H.Conway's famous mathematical game. 

Spectacular kaleidoscopic animation. 
500 gen/min typical. 32 preprogrammed 
patterns. Multiple control functions. 

( Rated No 1 in 80 Soil ware Critique. Ijju* S ) 

NAME THAT STATE QUIZ 

A top notch educational game. Draws 
50 states and asks fire questions. 
Three qui: types. Easy to use. 
catalog No. 2004 $14.95 



Disk Owners 

On special request the above games are 
available on cassette (you transfer), same price, 
compatible withTRSOOS Disk Basic 48K . 



Add St 00 po*teo»» handling COD add «2SO 
Fla Revadd4% tai Make Check Of MQpayabi* to 

Synergistic Solar, Inc. 

POBoi 560595. Miami FL 33156 

^231 

Please wnir lex mote info. Oaaltf inquiry invited 



• See List ot Advertisers on page 322 
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GAME 



Flat out and fourth to go. 



Formula 80 




-R-OtJUt- 



Richard A. Sprague 
900 15th St. 
Neillsville, Wl 54456 



It's five o'clock at last!" you shout, as you 
grab your coat and run from the office. Or- 
dinarily you'd rush straight home, but not 
tonight. 
Step onto the track and into your waiting 



sportscar. Your fingers caress the leather 
steering wheel as you start the engine. In- 
stantly, 450 horses roar as you rev the mo- 
tor. Slowly loosen the clutch; the wheels 
spin hungrily as you feed the carburetor. 
The track rushes to meet you as the speed- 
ometer plays its reluctant catch-up game. 

Nothing can compare with the feeling of 
racetrack driving. The thrill of high speed 
racing can grab you almost as powerfully 
as the addiction many of us have to high 
speed programming. 

While the smell of the open road might be 
more enticing than the smell of an open key- 
board, Racecar II gets the point across. It's 
simple to punch into your system in ten min- 
utes, small enough to fit into 4K, and flexi- 
ble enough to challenge the beginner and 
expert equally. 

The Scene 

Beginning with a simple display of a car 
in the middle of a race track, the car slowly 
gains speed (to the beat of real-time phys- 
ics) as it accelerates. The track ahead of the 
car constantly changes through tricky 
curves and unnerving gyrations. To keep 
the car on the road, you have to keep your 
fingers on the arrow keys. (The left arrow is 



Variable 


Definition 


AS 


Draws railings 


cs 


Draws the car (To change, see Fig. 4) 


c 


Determines car placement on the track. During auto-pilot, this is 




set at eight spaces right of the left railing. 


E 


Acceleration variable, initialized at 1024 as it begins any accelerat- 




ing process. 


G 


Increment variable 


M 


When this is a one auto-pilot is set; anything else is manual over- 




drive. 


P 


Road variable: When negative, the road turns left; when positive, 




road turns right. Must be initialized positive. 


S 


Score variable: cannot be an integer. 


T 


The built-in clock, equal to the number of scrolls in a game. 


X 


Cannot be an Integer this variable indirectly determines where the 




next road section will be. 


Y 


Never an integer, this variable randomly decides how far the road 




will swing. 


Z 


Also must not be an integer. This is the most important variable: 




decides where the track and car will be positioned relative to pre- 




determined screen elements. See Fig. 2. 




Table 1. Variable Chart 



used for turning left; the right arrow for right 
turns.) 

All too quickly, the road makes an unex- 
pected swerve and you find your car crash- 
ing into the side; your score drops and you 
must get safely back on the road. The con- 
stant fight against road and score, as well 
as the special automatic provisions for be- 
ginners, makes the game highly addicting. 

Racecar II invokes an automatic pilot rou- 
tine for every beginning player. The routine 
ensures that the car will remain tied to the 
center of the road until one of the arrow 
keys is pushed. In other words, it's always 
entirely your fault when you crash. 

The computer increments your score 
based on three variables: The amount of 
time on the clock; the score you've ac- 
cumulated so far; and whether or not you've 
crashed. A crash means that your score will 
be cut by 30 percent. Nothing is scored or 
lost during the auto-pilot mode. 

Operation and Documentation 

When the TRS-80 gives its Ready prompt, 
try this: LIST the program, then hit Enter 
over and over. The words seem to move up- 
ward on the screen, part of the standard 
TRS-80 function called automatic scrolling. 
Racecar II capitalizes on this ability by plac- 
ing characters at predetermined places on 
the screen, then doing scrolling operations. 
The characters move upward so fast that 
your eye mixes them together and it looks 
like a real track. 

Additions, Deletions, Improvements 

With a short program like Racecar II, the 
memory left in the machine makes improv- 
ing the game almost as much fun as playing 
it. Fortunately, improvements are not only 
easy, but natural. 

You may first want to change execution 
speed. Beginners may find the graphics too 
fast. The simple remedy is the insertion 
listed in Fig. 1. 

If the display is too slow, the speed can 
be increased by combining statements into 
multiple statement lines. Or, you could 
define Z as an integer by adding the lines 
shown in Fig. 2. Also, the auto-mode could 
be improved for faster execution. 
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Insert this line lor slower graphics: 

145FORG = 1 T0 1(W:NEXT 
(The "100" may be changed lor faster or slower speed.) 



Fig. 1 



Insert and change these lines lor laster execution: 
8 DEFINT Z 

19 X9 = SIN(X)*12:T = T+1 
15 Z = CINT(X9) 



Fig. 2 



Insert these statements to add the last-turn option: 
135IFPEEK(15350) = 65THENC = C + 4:M=0 
137 IF PEEK(15350) = 33THEN C = C-4: M = 

Fig. 3 



Here are some combinations you might want to try as 

values (or C$ il you don't like my car 

CS = CHR$(151) + CHR$(143) + CHR$<171) 
CS = CHR$<156) + CHR$(143) + CHR$(172) 
C$ = CHR$(181) + CHRS(188) + CHR$(186) 
CS = CHRS(157) + CHR$(188) + CHRS(174) 
C$ = ">" + CHR$(143) + ••<" 



Fig. 4 



If speed is no problem, but your coordina- 
tion is, try inserting the lists shown in Fig. 3. 
With this option, you can have a sharper 
turn capability on your car whenever you 
hold down the shift key. 

Car size and shape is easily altered by 
changing the arguments in the C$ declara- 
tion in Line 6. Fig. 4 diagrams some of the 
changes you might want to try. The railing 
can also be altered by changing A$. The 
most obvious change here is to add more 
blocks (and width) to the road with another 
" + CHR$(191)" in Line 6. 

Scoring can get to be frustrating. You can 
change the format or delete the process al- 
together by deleting lines 40, 290, and the 
first half of 310. Finally, change line 320 to 
"320 RUN". You will now be competing 
against the clock only. 

My experience with Racecar II shows its 
greatest use to be a demonstration pro- 
gram. It loads quickly from tape and in- 
stantly from disk; the rules are almost self- 
explanatory (perfect for small children and 
computer ignorants). It looks and behaves 
just like a video game and it always pro- 
vides a challenge. 

Besides, its gas mileage is unbeatable.! 



"It looks and behaves 

just like a video game and 

it always provides a challenge. 

Besides, its gas mileage is unbeatable." 



1 REM RACECAR 2: BY RIK SPRAGUE AND JOHN SVETLIK 

2 REM TRS-80 L2-4K 

3 REM 0898 BYTES 04JU8O 

4 REM 

5 CLS:CLEAR50:DEFINTA-W:DEFSNGS 

6 A$-CHRS(191)+CHRS(191)+CHR$(191):C$-CHR$(134)+CHRS(143)+CHRS(1 
37) 

7 P-1:C-10:E=1024 

10 Z-SIN(X)*12:T«T+1 

20 IFM-1THEN70 

30 PRINTe980+(C-66)," 

40 S-S/10+T/10 

50 PRINT6980+C.CS; 

60 GOTO90 

70 PRINT9988+Z,CS; 

80 PRINTe920+Z,STRING$(ll,32) ; 

90 PRINT8980+Z,A$ 

100 PRINT@1000+Z,A$f 

105 IFE<1OTHEN120 

110 FORG= 1TOE : NEXT :E=E/ 1.414 

120 IFPEEKl 15350 )«0THENM-1:C"Z+8:ELSEM-1 

130 IFPEEKl 15350 )-64THENC=C+2:M«0 

140 IFPEEKl 15350) -32THENC-C-2:M-0 

150 IFT<15THEN10 

160 IFRND(5)-1THENP=P*-1 

170 X"X+Y«P:IFRND(15)«1THENGOSUB200 

180 IFM=0THENIFC<ZORC>Z+20THENGOSUB25O 

190 GOTO10 

200 ONRND(2)GOTO210 ,230 

210 Y-.3 

220 RETURN 

230 Y— .3 

240 RETURN 

250 REM CRASH SUBROUTINE 

260 PRINT9980+C,STRING$(1S,A$) 

270 PRINT-CRAAASSSSHHHHHH1 I 111!!"; 

280 PRINT:PRINT"TIME-"T 

290 PRINT"SCORE="S; 

300 FGRG-0TO700:NEXT 

310 S-S".7:E-1024 

320 GOTO10 



Program Listing 1 



REM RACECAR: A SWEAT-RIK PROGRAM 

1 REM TRS-80 L2 4K+ 

2 REM 1021 BYTES JL79, JU80 

3 REM 

4 CLS:CLEAR50:DEFINTA-W 

5 KO=32:J=HO 

6 GOSUB360 :' RANDOMIZE OPENING 
10 G0TO260 

20 REM HERE'S WHAT MAKES IT TURN 

30 Z-SIN(.9*X)*15*P 

40 ' 

50 REM IS ONE OF THE ARROWS PUSHED? 

60 IFPEEK(15350)=32HO-HO-2 

70 IFPEEK(15350)=64HO»HO+2 

80 A4°A3:A3»A2:A2-Al:Al«Z+23 

90 IFTIME<5A4»23 

100 ' 

110 REM DRAW LEFT RAILING 

120 PRINTTAB(Z+23)CHRS(124)CHRS(191); 

130 " 

140 REM DRAW RACE CAR 

150 PRINTe768+(HO),CHR$(134)CHRS(143)CHR$(137)j 

160 Y-7Q2+J 

170 PRINTeY," "CHRS(133)" ";:' CLEAR "SHADOW" 

180 J-HO 

190 ' 

200 REM DRAW RIGHT RAILING 

210 PRINTP10O1+Z,CHR$(191)CHR$(124) 

220 R=A4:S-A4+1B 

230 ' 

240 REH HORRORS1 HE CRASHED!!! 

250 IFHO>SORHO<RPRINT"CRASH!l I I 1 I ! " :PRINT"TIME ="TIME; : GOTO340 

260 IFTIME<1OGOTO320 

27 ONRND(2)GOTO280 ,290 

280 X»X+.3 

290 X-X-.3 

300 ' 

310 REM INCREMENT THE TIMER 

320 TIME-TIME+1 

330 GOTO30 

340 FORX=1TO7 50:NEXT 

350 GOT04 

360 ONRND(2)GOTO370 ,380 

370 P— l-.RETURN 

380 P-1:RETURN 

390 END 



Program Listing 2 
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TRS-80* Computer Owners 

Great New Access 








tf$N, Fully Tested 
AFD Mini-Disk Dri 



from 




Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and bumed-in 48 hours under operating condi- 
tions. Look for the signed test list in the shipping carton. 

AFD drives are capable of either single- or double-density op- 
eration. AFD-100 ,M drives store 102-Kbytes in single-density, 
180 Kbytes in double density. AFD-200'" drives store 205 
Kbytes in single-density, 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
"flippy" drives (AFD-100F' H or AFD-200F ,M drives). 

15-day free trial offer . . . comprehensive 90-day limited war- 
ranty . . . unbeatable prices . . . AFD-100 (5 $275.00, -100F 
(5 $329.00, -200 (5 $429.95, -200F (n $449.95. 




Percom Drives for Your Model III ! 



Internally mounted drives that feature "flippy" capability, double- or single- 
density storage, comprehensive pre-delivery testing, 48-hour burn-in and, best 
of all, Percom's widely acclaimed disk controller. A First-Drive System includes 
the four-drive disk controller, one or two drives, cables and a fully illustrated 
owners manual. Use Model III TRSDOS*, Percom OS-80t and other Model III 
compatible DOSs. Prices: Complete First-Drive System w/1 drive (a $560.00, 
First Drive System w/2 drives (a $860.00. 

Note: If you prefer not to make the First-Drive System installation, we will do it 
for only $29.95, plus shipping (if shipped). This includes a 48-hour operating 
burn-in of your Model III computer, installation of the drive system and final 
checkout of the expanded system. 



How to order — Order by calling Access Unlimited toll-free on 1-800- 
527-3475. Or order by mail. Orders may be charged to a VISA or Master 
Card account, or paid by cashier's check, certified check or money 
order. COD orders require 25% deposit. Sorry, we cannot accept per- 
sonal checks. We pay shipping and insurance charges on orders over 
$1 ,000.00. Add approximate insurance and shipping charges for orders 
under $1,000.00. If in doubt about these charges, ask when you call in 
your order. Texas residents include 5% sales tax. Minimum mail order 
$20.00. Allow 2 to 4 weeks for delivery. 

O Technical & Texas: (214)690-0206. 



Ask about quantity discounts for 
TRUGs! 



Use your credit card and save. VISA and 
Master Card charges are not deposited 
until the day your order is shipped. 




Upgrade Your Model I to Double Density 

only $ 1 59^ 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-ltt. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS'", a TRSDOS* compatible disk- 
operating system • Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 




Microline-80 Printer 
Grand-Opening Special $399.95 (regular $446.o 0) 

Compare the Microline-80 feature-for-feature with any other competi- 
tively priced printer. • Uses standard roll paper, fan-fold forms or 
individual sheets. • Prints expanded characters and graphics. • Prints 
96 ASCII characters (9x6 dot format), 64 graphic characters (12x6 dot 
format). "Throughput is 80-characters per second, standard-width 
characters. • Print head is rated at 200 million characters. • Compact, 
lightweight, quiet. 



ACCESS Goes Accessible! 

No longer a mail-order-only operation, we're 
in a new, walk-in retail mart on Central Ex- 
pressway in suburban Dallas. Now that 
makes us really ACCESSible! 

Come by. 

Get acquainted with Sam or Connie. 

Check out our computer servicing capabili- 



ty. We not only "service what we sell," we're 
also an authorized Percom Service Center. 

You'll notice, too, that besides our 
TRS-80* department, we've added a "Hobby- 
ist Corner." For rack-jobbing selected com- 
puter parts. Moreover, we're now carrying the 
full Percom System-50 (SS-50) product line. 
And selling books. And magazines. And . . . 
well, just come by and see for yourself. 




If you can't come by, at least call about our August GRAND OPENING SPECIALS. 



Make ACCESS your one-stop shopping center for TRS-80* computing. 
From game programs to sophisticated system software. From power line 
filters to double-density adapters. From Model I add-on drives to Model III 
First-Drive Systems. Shop ACCESS and save! 

Call our toll-free order number for free descriptive product literature and 
latest prices. 

PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 



Toll-Free 
Order No. 



1-800-527-3475 







(orders & literature only) 




401 N. Central Expressway #600 
Richardson, Texas 75080 
(214)690-0206 



Trademark of Tandy Radio Shack 
Apparat Corporation 




REVIEW 



A printer that shouldn't be overlooked. 



Epson's MX-80 



Epson MX-80 Printer 
Epson America, Inc. 
Torrance, CA 
$645 

Tony Gift 

11260 Overland tt10-B 

Culver City, CA 90230 



Do you need a printer for your TRS-80? 
There's a new printer distributed in the 
United States by Epson America, and like 
the ads say, "If you just bought another 
printer, boy, are you gonna be sorry." 

The Epson MX-80 Printer became avail- 
able in the United States during the last 
quarter of 1980. The printer is made in Ja- 
pan by Shinshu Seiki Company, Ltd., and if 
the design, quality and price of this printer 



are an indication of things to come, all I can 
say is that American printer manufacturers 
had better watch out. 

What's an Epson? 

The Epson MX-80 is an impact dot matrix 
printer that prints all 96 ASCII characters in 
a 9 by 9 dot format, and 64 graphics block 
characters in a 6 by 12 dot format. It prints 
normal characters in an 80-column format 
at 80 characters per second (CPS). It also 
prints a condensed or half-width set of char- 
acters in a 132-character per line format, 
and an expanded or double-width set of 
characters in both 40 or 66-character per 
line format. 

The printer has a Centronics parallel in- 
terface, and connects to the TRS-80 Model I 
through the parallel printer port on the ex- 
pansion interface. It uses 9 1/2-inch by 11- 
inch fan-fold tractor feed paper, which tears 
down to 8 1/2-inch by 11-inch sheets when 
the tractor holes are removed after printing. 

The printer is housed in an attractive 
ivory-colored case. The power switch is lo- 
cated on the right side. The top front, right 
comer contains on-line, form feed and line 



feed switches, as well as power, ready and 
no paper indicator lamps. The printer mea- 
sures 14.7 inches wide by 12 inches deep by 
4.2 inches high, and weighs 12.1 pounds. 
That's relatively small and light for a printer, 
but the MX-80 is surprisingly rugged, which 
is a compliment to its designers. 




Epson MX-80 



sz 3 a s <?b 



ABCDEFSHUKLHNOPBRSTUVHXYZ 01234567890 CONDENSED MODE 

ABCDEFGH I JKLMNOPQRSTUVWX Y 1 O 1 234567890 NORMAL MODE 

EXPANDED MODE 

A o c x :> ie: f €3 m i a k l .._ m im o pqrstuvwxyz o i 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890 NORMAL-EMPHASIZED MODE 

EXPANDED-EMPHASIZED MODE 

ABCDEFGH I JKLMNOPQRSTUVWX YZ Ol 

ABC0EF6HIJKLNNOPQRSTUVHXYZ 01234567890 CONDENSED-DOUBLE NODE 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890 NORMAL DOUBLE 

EXPANDED-DOUBLE MODE 

ABCDEFGH I JKLMNOPQRSTUVWXYZ O 1 23^5<£» 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234367890 NORMAL-EMPHASIZED-DOUBLE MODE 

EXPANDED-EMPHASI ZED-DOUBLE MODE 

ABCDEFGH I JKLMNOPQRSTUVWX YZ O 1 

Fig. 1. Print Mode Samples 
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Reader Service for facing page »»426. 



Your Ticket 
to Expanded 
TRS-80 Capability 



Now, Corvus delivers the most advanced combination of hard- 
ware and software to serious TRS-80" users. Corvus is the 
world's largest supplier of Winchester disk systems and 
local networks for microcomputers. 

The Hardware. A compact 5-million byte 5'/»-inch 
Winchester in an attractive package at a break- 
through price of $3750. Combines hard disk 
speed with proven Winchester reliability. 
Expandable to 80 million bytes. 

The Software. For TRS-80 Model 
I and Model III, Apparat's high 
performance NEWDOS/80-C. the 
most powerful TRS-80 operating 
system. For the Model II. TRSDOS* in 
a new Corvus version, as well as OASIS 
and CP/M. Now your existing programs will 
run faster and more reliably than ever before. 
And. you'll enjoy 5 to 80 million bytes of mass 
storage without changing floppies. 



AND INTRODUCING! 

NEWDOS/80-C 

I The most powerful 
! DOS for the TRS-80 
Model I and Model III 



\\ CORVUS SYSTEMS 

5 MILLION BYTE 

5V4 inch WINCHESTER 

DISK SYSTEM 

$3750 



Networking. Using the Corvus OMNINET" or CON- 
STELLATION network and your computer's unmodified 
single user operating system, you can connect up to 64 
TRS-80's in a state-of-the-art multi-processor network. 
Corvus networks allow all computers to share a large 
data base and expensive printer or modem peripher- 
als, and communicate interactively over distances of 
thousands of feet. 

Contact Corvus today for the full story. 

* * CORVUS SYSTEMS 

* 2029 OToole Avenue 
* * San Jose. California 95131 
408/946-7700 TWX: 910-338-0226 






•Radio Shack TM 



"The most impressive thing 

about the MX-80 

is the quality of its print." 



The most impressive thing about the 
MX-80 is the quality of its print. Dot matrix 
printers have always had several advan- 
tages over other types of printers, mainly in 
printing speed and mechanical simplicity. 
One of their disadvantages has always 
been the print quality. Since dots have 
some finite spacing between them, you can 
easily distinguish them from normal type. In 
addition, part of the characters which are 





Enhancement Modes 


Character Normal 


Emphasized Double Double 


Size 




Print Print- 
Emphasized 


Normal 


X 


X XX 


80CPL 






Condensed 


X 


X 


132 CPL 






Expanded 


X 


X XX 


40 CPL 






Condensed 


X 


X 


Expanded 






GGCPL 






Table 1. 


Printing Modes 



normally rounded appear ragged on a dot 
matrix printer. 

While this is perfectly acceptable for 
some applications, other applications re- 
quire typewriter or what has become known 
as Selectric print quality. (Selectric refers to 
the IBM Selectric typewriters, which have 



interchangeable print heads, and provide 
very high quality print.) Many have been in- 
terfaced to computers and have become a 
kind of de facto standard when referring to 
print quality. 

The first reasonably priced dot matrix 
printers that were suitable for the home 
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30000 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
30100 
30110 
30120 
30130 
30140 
30150 
30160 
30170 
30180 
30190 



......... E p S 0N PRINTER HODE SELECTION PROGRAM ******* 

•DISK NAME = PRNTHODE/BAS 
■LAST REVISION: 12/07/80 
CLS 

PRINT: PRINT'SELECT PRINTER MODE- 
PRINT 

PRINTTAB(10);"(1) COMPRESSED CHARACTERS (132 CHARS/LINE)" 
PRINTTAB(IO) j"(2) NORMAL CHARACTERS (80 CHARS/LINE)" 
PRINT: INPUT' ENTER NUMBER FOR CHARACTER MODE SELECTION" ; Z 
ONZGOSUB30390, 30410 

IFZ-lTHENM$»"COMPRESSED (132 CHARS/LINE)" 
IFZ»2THENMS»"NORMAL (80 CHARS/LINE)" 
CLS: PRINT: PRINT" PRINTER IS IN ";MS;" MODE- 
PRINT: PRINT'SELECT PRINT EMPHASIS MODE" 
PRINTTAB(10);-(1) NORMAL" 
PRINTTAB(10);-(2) DOUBLE PRINTING" 
PRINTTAB(IO) ;"(3) EMPHASIZED" 
PRINTTAB(10);"(4) DOUBLE EMPHASIZED" 

PRINT: INPUT'ENTER NUMBER FOR ENHANCED PRINTING MODE SELECTION" ;Y 
PRINT: IFZ-1ANDY-3THENGOTO30196ELSEGOTO3O1 92 



Program continues 



MAKE «$$$$ 
—* MONEY 

Selling 80 Microcomputing, the only major journal for the users of the 
TRS-80*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "80" will make you money . . . it's the only magazine for the 
TRS-80 * users and you know how many of those there are. So call today 
and join the dealers who make money with "80". 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
at 80 Microcomputing, Pine Street, Peterborough, NH 03458. 



'TRS-80 is a trademark of the Tandy Corp. 
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BUSIX ESS/ ACQ )UNTI X( 3 
SOFTWARE 



t 



505 



SERVICE 

ORIENTED 

A'CCOUNTS 

RECEIVABLE 

"SOAR" is a combined time reporting/ 
accounts receivable system designed for ser- 
vice organizations. Transactions input to the 
system include charges to, and receipts from 
customer accounts. Employees charge time 
and or dollar amounts against specific tasks 
codes. Pre-established inputs are employee 
rate, task hourly rate, task flat charge, and 
task rounding factor. 

Outputs produced include: 

'updated customer file — including bal 
ance. last posting, and last receipt 
amounts 

'statement summary — by customer and 
task code 

'detail transaction report 

'employee and task summary — with reve- 
nue & percent 

'database reports — for employee, custo- 
mer and task code databases 

'statements (optional) — programmed to 
suit your forms (available at additional 
cost) 

Monitor and control your valuable resources 
with this system for only $395. (Order product 
code: SOAR) 

GENERAL 

LEDGER/CLIENT 

WRITE-UP SYSTEM 

Our General Ledger Client Write-up System 
is a proven, quality product used by several 
Accounting firms and other Businesses. 

'features departmental financial state 
merits 

'contains budget provisions 
'permits up to 500. user-defined chart of 
accounts 

'allows for transaction editing 
'retains standard journal entries 
'accepts only balanced batches of trans- 
actions 

'provides easy-to-follow audit trail 
'uses conventional accounting symbols 
'includes user documentation easily under 
stood by present employees 

Several reports can be generated by the sys- 
tem including: 

'transaction audit reports 

'trial balance 

'income statement (profit & loss statement) 

'balance sheet 

'budget report 

'chart of accounts 

Incorporate speed and accuracy into your 
business record keeping by ordering our 
General Ledger System today for only $495. 
(Order product code: GI.S) 



TASK 



Computer Applications Inc. 

4810 LARCHVIEW DRIVE. DAYTON. OHIO 45424 



(513 ) 233-5515 



Product Code _ 

Company 

Representative 

Address 

City 



State 



. Zip 



Phone 

Credit Card Num In- 



Computer Model icirclel 12 3 
Exp 



Program continued 



30192 IFZ=1ANDY=4THENGOTO30196ELSE30210 

30196 PRINT-YOU CANNOT SELECT 'EMPHASIZED' FOR COMPRESSED CHARACTERS" 

30200 PRINT: INPUT'PRESS ENTER TO CONTINUE" ; ZS :GOTO30120 

30210 ONYGOSUB304 50, 30470, 30490, 30510 

30220 IFY=1THENES="N0RMAL PRINTING" 

30230 IFY=2THENES="DOUBLE PRINTING" 

30240 IFY=3THENES«*EMPHASIZED PRINTING" 

30250 IFY = 4THENES*="D0UBLE EMPHASIZED PRINTING" 

30260 CLS:PRINT:PRINT"MODES SELECTED:" 

30270 PRINTTAB(18) (MS 

30280 PRINTTAB(18) ;ES 

30290 PRINT:PRINT"SELECT LINE SPACING" 

30300 PRINTTAB(10) ;"(1) 1/6 INCH (NORMAL)" 

30310 PRINTTAB(10) »"(2) 1/8 INCH" 

30320 PRINTTABI10) )"(3) 7/72 INCH" 

30330 PRINTTAB(10) ;*(4) 1/4 INCH (DOUBLE SPACING)" 

30340 PRINTTAB(10) ;"(5) SPECIFY SPACING IN 1/72 INCH INCREMENTS" 

30350 PRINT: INPUT" ENTER NUMBER FOR LINE SPACING SELECTION" ;V 

30360 ON VGOSUB30530, 30550, 30570, 30590, 30610 

30380 END 

30390 POKE14312.15 

30400 RETURN 

30410 POKE14312,18:POKE14312,20 

30420 RETURN 

30430 POKE14312,18:POKE14312,14 

30440 RETURN 

30450 POKE14312,27:POKE14312,70:POKE14312,27:POKE14312,72 

30460 RETURN 

30470 POKE14312,27:POKE14312,70:POKE14312,27:POKE14 312,71 

30480 RETURN 

30490 POKE14312,27:POKE14312,72:POKE14312,27:POKE14312,69 

30500 RETURN 

30510 POKE14312,27:POKE14312,69:POKE14312,27:POKE14312,71 

30520 RETURN 

30530 POKE14312,27:POKE14312,65:POKE14312,140:POKE14312,27:POKE14 312,50 

30540 RETURN 

30550 POKE14 312,27:POKE14312,65:POKE14312,137:POKE14312,27:POKE14 312,48 

30560 RETURN 

30570 POKE14312,27:POKE14312,65:POKE14 312,135:POKE14312,27:POKE14 312,49 

30580 RETURN 

30590 POKE14312,27:POKE14312,65:POKE14312,146:POKE14312,27:POKE14312,50 

30600 RETURN 

30610 INPUT'ENTER NUMBER OF 1/72 INCH INCREMENTS YOU WISH TO SPACE" jW 

30620 POKE14312,27:POKE14312,65:POKE14312, (128+W) : POKE14312, 27 :POKE14312,58 

30630 RETURN 



Program Listing 2 



w 

30 
40 
50 
(27 

60 
70 
3C 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 



......... EPSON EXERCISER ******** 

'DISK NAME ■ EPEXCRSR/BAS 

'LAST REVISION: 12/19/80 

LPRINT:LPRINTTAB(25) ; "EPSON PRINTER MODE TESTS" 

LPRINTCHRS118) ; : LPRINTCHRS ( 20) ; : LPRINTCHRSl 27) "f" ; : LPRINTCHR5 

)"H";: 

LPRINTCHRS (15) ; 

GOSUB560 :LPRINT"CONDENSED MODE" 

LPRINTCHRS(18) ; 

LPRINT'NORMAL MODE" :GOSUB51 

LPRINTCHRS (14) ; : LPRI NT" EXPANDED MODE" 

LPRINTCHRS (14) ; 

GOSUB560 

LPRINTCHRS (27) "E"; 

LPRI NT" NORMAL-EMPHASIZED MODE" :GOSUB51 

LPRINTCHRS (14) ; : LPRINT" EXPANDED-EMPHASI ZED MODE" 

LPRINTCHRS114) ; .-GOSUB560 

LPRINTCHRS (27) "F"; 

LPRINTCHRS (27) "G"; 

LPRINTCHRS (15) ; 

LPRINT'CONDENSED-DOUBLE PRINT MODE" :GOSUB560 

LPRINTCHRSU8) ; 

LPRINT'NORMAL DOUBLE PRINT" :GOSUB510 

LPRINTCHRSU4) j:LPRINT"EXPANDED-DOUBLE PRINT MODE" 

LPRINTCHRSU4) ; 

GOSUB560 

LPRINTCHRS (27) "E"; 

LPRI NT'NORMAL-EMPHASI ZED-DOUBLE PRINT MODE" :GOSUB510 

LPRINTCHR$(14) ;: LPRINT" EXPANDED-EMPHASI ZED-DOUBLE PRINT MODE 



290 LPRINTCHRS (14); 

300 LPRINTCHRS (27) "G"; 

310 LPRINTCHRS (27) "E"; 

320 GOSUB560 

330 LPRINTCHRS (27) "F"CHRS(27) "H"; 

340 LPRINT'NORMAL LINE SPACING" 

350 GOSUB580 :LPRINT" 1/6INCH" 

360 GOSUB580 :LPRINT" 1/6INCH" 

370 LPRINTCHRS(27)CHRS(48) ; 

380 LPRINT"l/8 INCH LINE SPACING" 

390 GOSUB580 :LPRINT" 1/8INCH" 

400 GOSUB580 :LPRINT" 1/8INCH" 

410 LPRINTCHRS (27) "1"; 

420 LPRINT"7/72 INCH LINE SPACING" 

430 GOSUB580 :LPRINT" 7/72INCH" 

440 GOSUB580 :LPRINT" 7/72INCH" 

450 LPRINT: LPRINTCHRS (27) "A'CHRS (146) CHRS( 27) "2"; 

460 LPRINT'DOUBLE SPACING (1/4 INCHES)" 

470 GOSUB580 : LPRINT" DOUBLE LINE SPACING" 

480 GOSUB580 : LPRINT" DOUBLE LINE SPACING" 

490 LPRINTCHRS (27) "A'CHRS ( 140 ) CHRS ( 27) "2" ■ 

500 END 

510 FORX=161T0223 

520 LPRINTCHRS(X) ; 

530 NEXTX 

540 LPRINT:LPRINT:LPRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890" 

: LPRI NT 

550 RETURN 

560 LPRINT'ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890" : LPRINT 

570 RETURN 

580 LPRINT'ABCDEFGHIJKLMNOPQRSTUVWXYZ 01234567890"; 

590 RETURN 
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"The new generation 

of dot matrix printers 

eliminates the no descenders problem." 



computer market utilized a matrix seven 
dots high and five dots wide. This type of 
matrix had limitations because the dots 
were relatively far apart, making the un- 
printed space between them fairly visible; 
and the matrix didn't go below the letter 
baseline— they couldn't print descenders. 
Descenders are the tails of letters like y and 

i- 

The new generation of dot matrix printers 



ASCII Char. Decimal Code 


Function 


so 


14 


Expanded width cha: 


DC 4 


18 


Cancel expd width 


SI t 


15 


Condensed wdth char 


DC 2 


18 


Cancel condsd char 


ESCE 


27,29 


Emphasized mode 


ESCF 


27,70 


Cancel emphasized 


ESCG 


27,71 


Double printing 


ESCH 


27,72 


Cancel double prnt 


ESCO 


27.48 


1/8" line spacing 


ESC1 


27,49 


7/72" line spacing 


ESC 2 


27,50 


1/16" line spacing 


ESC A 


27,65 


Variable line spacing 


Note: ESC 2 must be used after ESC A to execute vari- 


able line spacing 






Table 2. 


Printer Control Codes 



eliminates the no descenders problem, and 
greatly reduce the visible spaces between 
the dots, since the dots are closer together. 
The Centronics 747 was the first new printer 
to appear with these capabilities. More re- 
cently the Epson MX-80 appeared. 

The Epson MX-80 utilizes a 9 by 9 dot 
character matrix. The nine-dot height al- 
lows the dots to be placed below the base- 
line. The dots are spaced so close together 
they almost overlap but some small spaces 
are still visible. 

Filling in the Spaces 

Epson has several solutions for filling in 
the spaces. The first is to switch on the dou- 
ble-printing or double-striking mode. In this 
mode the printer prints a line, then rolls the 
paper up 1/216 inch and prints the line again. 
The result is that almost all the visible 
spaces between the dots are filled in when 
the character is imprinted the second time, 
just slightly offset from the first imprint of 
the character. Double printing reduces the 
printing speed by 50 percent to 40 CPS for a 
full line of 80 characters. 

A second solution is to switch to the em- 
phasized-printing mode. In this mode the 



201 


= 


1 




202 


= 


1 


203 


= 1 


206 


= 


4 




207 


= 


* 


208 


= . 


211 


= 


■ 




212 


= 


L 


213 


- L 


216 


= 


j 




217 


= 


J 


218 


= J 


221 


= 


1 




ooo 


= 


i 


223 


= 1 








Fig. 


2. Graph 


cs Characters. 







printer makes a stronger impact on the pa- 
per as each dot is struck. This also causes a 
50 percent speed reduction. 

You can turn on the double-printing mode 
and the emphasized-printing mode togeth- 
er, which results in a very heavy letter im- 
print with no spaces between the dots. The 
speed in this mode is reduced 75 percent to 
20 CPS. 

Considering the various character sizes 
and enhancement modes, there are 10 dif- 
ferent printing modes in which the Epson 
can be operated. Table 1 lists these modes. 
There is no emphasized mode or double 
print emphasized mode for condensed 
characters, because condensed character 
dots are already so close together that 
striking harder would smudge the printout 
and probably damage the print head. Sam- 
ples of the print modes are shown in Fig. 1. 
Lowercase characters and condensed-ex- 
panded are not shown, but the printer does 
print them. Listing 1 is the program used to 
obtain the printouts of Fig. 1. 

The result of the enhanced printing 
modes is clean, nicely formatted print. It 
still isn't Selectric quality, but it is some of 
the best dot matrix printing around. 

Printing Speed 

Normal speed for printing an unenhanced 
character on the Epson MX-80 is 80 CPS. 
Since the normal mode is 80 characters per 
line, the printer prints a full line in one sec- 
ond. However, if there are less than 80 char- 
acters in the line, the printer can print the 
line faster if the print head doesn't have to 
travel all the way across the paper. Epson 
has taken this into account by designing 
their printer with bi-directional print head 
control, as well as the ability to sense when 
a line is only partially full. In that case the 
printer stops at the last character and line 
feeds to the next line. This can result in 
average printing speeds that are faster than 



NORMAL LINE SPACING 

ABCDEFGH I JKLMNOPQRSTUVWX Y Z 1 234567890 1/61 NCH 

ABCDEFGH I JKLMNOPQRSTUVWX YZ 012345678901 /6 I NCH 

1/8 INCH LINE SPACING 

ABCDEFGH I JKLMNOPQRSTUVWX YZ 012345678901 /SI NCH 
ABCDEFBH I JKLMNOPQRSTUVWX YZ 012345678901 /SI NCH 
7/72 INCH LINE SPACING 
ABCDEFGHI JKL MNQE'QBSTJ IVWXYZ 1 2345678907/ 72 INCH 

ABCDEFGH I JKLMNOPQRSTUVWX YZ 1 234567890D0UBLE L I NE SPAC I NG 
ABCDEFGH I JKLMNOPQRSTUVWX YZ 01234567890D0UBLE LINE SPACING 

Fig. 3. Line Spacing. 
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"The whole manual, 

with cartoon illustrations 

and step-by-step examples, is excellent!" 



the normal 80 CPS, or 40 or 20 CPS if the en- 
hanced printing modes are selected. 

Graphics 

Another capability built into the Epson 
MX-80 adds to its versatility, and nicely 
complements the Model I's capabilities: the 
ability to print 64-block graphics characters. 
A printout of these graphics in the empha- 
sized mode is shown in Fig. 2. The graphics 
may be emphasized, double printed, or 
both. 

The MX-80 normally allows 1/6 inch be- 
tween lines, equivalent to 12 vertical dots. 
The processor within the printer will also 
accept commands to allow 1/8 inch (nine 
vertical dots) between lines, or 7/72 inch 
(seven vertical dots) between lines. In addi- 
tion to those built-in line spacing options, 
you can program any amount of line spac- 
ing you desire. 

Controlling the Printer 

All printing capabilities are conveyed to 
the printer by a series of control codes. 
Table II lists the codes, with the exception 
of the vertical and horizontal tabs. 

To get the codes into the printer from the 
TRS-80, address the printer and then send 
the code. In assembly language you would 
output the hexadecimal control code or 
codes to the printer at memory address 
37E8 (H). 

In Basic there are several ways to output 
the codes to the printer. The most straight- 
forward is to use the LPRINT statement. By 
LPRINTing the decimal code for the ASCII 
control character in an ASCII control char- 
acter string (CHR$), the proper code is sent 



5: 






is -*V 



l7 ^ 



U Q:::::::::::: 



3~ 



•r>- 



Fig. 4. 



to the printer to go into the compressed 
character mode (132 characters per line): 
LPRINT CHR$(15). 

CHR$ is the character string Basic func- 
tion and 1 5 is the decimal code for the ASCI I 
character SO. The printer would print the 
line in the compressed character mode. To 
cancel the compressed character mode, 
type: LPRINT CHR$(18). This line sends the 
ASCII character DC 2 (decimal code 18) to 
the printer and cancels the compressed 
character mode. 

When two control codes are necessary to 
command a function, such as in the case of 
emphasized printing (ESC E), there are sev- 
eral ways in Basic to send the codes to the 
printer: LPRINT CHR$(27) CHR$(69), or 
LPRINT CHR$(27) "E", or POKE 14312,27 : 
POKE 14312,69. 

Use of the POKE command avoids an un- 
wanted linefeed/carriage return at the end 
of a Basic program since the LPRINT com- 
mand automatically sends a LF/CR. The 
POKE command will avoid registration 
problems with preprinted forms of fanfold 
paper. 

One mode needs further explanation. 
When using the expanded-character mode, 
upon receiving a carriage return/line feed 
the printer is designed to return to whatever 
print mode was previously selected prior to 
selecting the expanded-character mode. 
The other modes stay selected until a new 
mode is selected. 

Selection Program 

There are many control code combina- 
tions that can be sent to the printer. The Ep- 
son printer mode selection program (Listing 
2) provides a simple selection capability in 
Basic. It uses POKE statements to avoid un- 
wanted line spacing. 

The program first asks you to select com- 
pressed or normal characters. (It doesn't 
provide for expanded characters since they 
would print for only one line.) If you want to 
use the expanded-character mode you will 
have to write the control code statements 
into your program for each line that you 
want to print with expanded characters. 

It next asks you to select an enhance- 
ment mode. Finally, it asks you to select 
line spacing. 

Testing the Printer 

By holding the line-feed button down 
while turning on the power switch, the print- 
er will run through its paces, rapidly filling 
up about two and one-half sheets of paper. 
The built-in test does not print the various 
enhancement modes or the variable line 
spacing modes. 

Connecting the Printer to the TRS-80 

Unfortunately, the Epson MX-80 does not 



come with a cable that will interface it to the 
TRS-80 Model I expansion interface. The 
printer uses a 36-pin D-type connector, and 
the expansion interface utilizes a 34-pin 
card-edge connector. Epson recommends 
that twisted pair wire be used. Fig. 4 shows 
the cable interconnections and the con- 
nector part numbers. I built my own cable 
for $15. 

I made my cable twelve feet long, and 
have no noise pick-up problems. The MX-80 
manual says that a Radio Shack cable 
(number 26-4402) will work, it is priced at 
$29. 

WOW— What a Manual! 

The MX-80 comes with a 40-page paper- 
back-size manual. It adequately explains 
how to unpack and use your printer, and 
has only a few Japanese to English transla- 
tion errors. Shortly after I got my printer I 
heard a rumor that Epson had another man- 
ual. A phone call to Epson produced a 
pleasant surprise. The new manual arrived 
in the mail the very next day. Epson hired 
David A. Lien, author of The TRS-80 Level I 
User's Manual, to write a manual for the 
MX-80. 

The result is a 107-page, full-sized manual 
that explains almost everything you might 
want to know about your MX-80, in a sim- 
plified language even the most unsophisti- 
cated computer user can easily under- 
stand. The whole manual, with cartoon il- 
lustrations and step-by-step examples, is 
excellent] The only thing I miss in the man- 
ual is an explanation of how to use POKE 
statements to avoid extra line feeds when 
commanding the printer with control codes, 
and a schematic and parts list of the printer. 
I looked very carefully at the competition 
before buying the MX-80. After using the 
printer for two months, there are only three 
things I have found lacking: 

1. Friction paper feed capability 

2. Proportional printing capability 

3. Automatic form feed after printing a 
programmable number of lines 

The Centronics 747 has items one and 
two, but after trying one I felt the print quali- 
ty wasn't as good as the Epson, and the 
price was significantly higher. The Base 2 
printer has item 3, but the print quality 
doesn't compare with the MX-80, and the 
price is higher. 

And what about price? I ordered my print- 
er in late October of 1980 from Patio Com- 
puter in North Hollywood, CA. At that time 
the list price of the MX-80 was $645, but I 
found that most dealers were discounting 
the MX-80 when they had them. I had to wait 
six weeks for a new shipment from Japan. 

I can only tell you that I am very happy 
with my Epson MX-80 printer. For the price, 
you just can't beat the quality. ■ 
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THE NEW LAREDO LS525. 

WHEN YOU'RE READY 

TO GET DOWN TO BUSINESS. 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and 111. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive. LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• On-board data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October I . 1981 buy the 
LS525 for the OEM/dealer price of 
$2990. a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 

Memory System and the LSI 500 Series 

Controller, contact: 

Laredo Systems, Inc. ^26 

669 Giraudo Drive, San Jose, CA 951 1 1 

(408) 629-2283 




Iciredo yfttarro Inc. 



'■See List ol Advertisers on page 322 
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/MICROCOMPUTER 

TECHNOLOGY 
INCORPORATED 



SUMMER SALE 



CLEARANCE SPECIAL 

SHUGART SA400 (TF-3) 

35 track disk drive 

includes power supply C^\ A f\ 
and chassis. 9 3 f\^J 

LIMITED SUPPLY A W M 

fjp^FREE FULL YEAR WARRANTY ^^1 
n \A^irh purchase of new 40 TK. < ^ \ 

TANDON DISK DRIVE ^ 1 j 

comes complete with ^%4' I fl 

power supply, chassis, i^lIPf ; I il 

cable & DOS PLUS MKI "W \ 

f ow " »40jgj 

k ^r=Jf=Jr==Jr=Jf==J^=Jf=Jf= Jf=J^=Jr==Jf==Jr=Jf==Jf=Jf=Jf=^lriJ 

DOUBLE DENSITY SPECIAL! 

MTI Doubler Pkg. includes doubler and mi- 
crosystems DOS PLUS 3.3D, run single and 
double density, plus a box of Verbatim 
diskettes. 



$ 275 



DISK STORAGE SPECIAL 

Buy 5 boxes of diskettes 
at *30.00 ea. and get 
a $30 Value Flip-Sort 



FREE 




LEXICON 1 1 ACOUSTIC MODEM 
SPECIAL CLOSEOUT 



H19 



Memory Kit (16K) $ 43.00 

AC Isolator (6 socket) $ 49.95 

Disk Head Cleaner M9.95 

Diskettes Verbatim (10) hard ring 5" s.s J 30.00 



Disk Drive Sale! 

with power supply and chassis 

Shugarr SA400L, 40 rrk 

Perrec FD200, 40 rrk 

TF-5MPIB51,40rrk 

F-11 Tandon, 40 rrk 

TDH-1 Dual sided drive, 35 rrk 

TF-3M Drive Sys. 3 Shugarr 40 rrk. ( 1 cabiner) 

SOFTWARE SALE 

DOS+3.3 

DOS+3.3D 

Disk (j Sysrem Diagnosric 

INTERFACES - MOD I 

Interface 1 6K 

Interface 32K 



>319 
J 349 
>349 
J 309 
J 419 
>599 



s 99 
$99 
$49 



>349 
J 419 



MONTHLY SPECIAL 
TF-15 80 TRACK 
DISK DRIVE 

Double your capaciry. 200K 
byres of srorage. Complete 
with power supply and 
chassis. 



• NEWFORTRS-80® 
TF-1 7 DUAL 80 TRACK 
DISK DRIVE 

Quadruple your capaciry. 
400K byres of srorage. Com- 
plete wirh power supply and 
chassis. 



>479 



>659 



SYSTEMS - MOD I 



Interface 32K, TF-1 1 disk drive 
cable and DOS 3.3 



$799 



MOD I Disk Expansion Systems 

• 2TANDONTF-11 $ 618 

• 1 Two-Drive Cable $ 26 

• 1 Expansion Interface 32K *419 

• 1 DOS+3.3 $ 99 

TOTAL LIST PRICE M162 



SPECIAL PRICE ONLY 



M029 



• DARE DRIVES FOR ANY MICROCOMPUTER 



Perrec FD200 »282 

Shugarr SA400 35 rrk »269 

MPIB51 *279 

MPIB91 l 399 

TANDON 40 rrk '259 

TANDON D/40 rrk »339 



FD250 

SA400L 40 rrock . . 

D52 

092 

TANDON 80 rrk, . . 
TANDON D/80 rrk. 



l 359 
l 279 
»349 
l 525 
'339 
l 504 



EA 



MICROCOMPUTER TECHNOLOGY, INC. 

3304 W. MACARTHUR, SANTA ANA, CA 92704 
• PHONE (714) 979-9923 • TELEX #6 78401 TAD I RIN „ 2 b 



®TRS-80 T " IS A REGISTERED TRADEMARK 
OF TANDY CORPORATION 



MasterCard 




ALL PRICES CASH DISCOUNTED 

FREIGHT FOB FACTORY 

ASK FOR FREE CATALOG 
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IF YOU CAN RECOGNIZE VALUE 
YOU CAN SAVE 



$500 




TRS-60® 
MOD III* _, 

FIRST... ^£fc 

We lowered the prices of 
the Model III from $2499* to 

M998 

*We hove token rhe bosic 1 6K Model III expanded 
the memory ro 48K and added our MTI Double 
Density, Dual Disk Drive system. System is fully 
compatible with Radio Shack DOS and peripherals. 

MOD lll/EXPANDED MOD HI/280 

Same as above but has double storage capacity Our largest MOD III, approximately 1.5 mega bytes 
(708K storage). Your choice of 2 dual headed 40 of storage, utilizes 2 dual headed 80 track, double 
track drives or 2 single headed 80 track disk drives. density disk drives. Complete with manuals and 
Includes Microsystems DOS plus 3.3. professional operating system, Microsystems DOS 

plus 3.3 (40 b 80 track capability). 

*2499 $ 2799 

MTI has a complete line of COMPUTER add ons: 
INTERNAL DISK KIT 40 OR 80 TRACK EXTERNAL DISK KIT 40 OR 80 TRACK 

Drive Kir #1 from $ 699 Drive Kir #3 from *379 TR5 DOS b Manual J 21 .95 

Drive Kir #2 from J 279 Drive Kir #4 from *359 DOS PLUS from J 99 

MTI MOD III SALES, PARTS 6 SERVICE CENTERS - INDEPENDENT DEALERS 

ARIZONA (602)839-0546 NEWYORK (212)728-5252 SAN DIEGO (714)281-0285 

SAN JOSE (408)427-0836 CALL NORTH TIER .. (701) 594-5674 TEXAS (214)247-6679 

MIDWEST (618) 345-5068 GEORGIA (404) 449-8982 

1 f I MICROCOMPUTER TECHNOLOGY INC. , M<^ 

^m mm 3304 w - macapjhur, santa ana, ca 92704 Jy 

§71 |l • (714)979-9923 • TELEX 6780401 TABIPJN • "s4 prices 

^U^^^^^^^B • TRS-80 IS A R.EG TRADFMARK OF TANDY CORP. "Uses MTI Memory Dish Drives 6 Co'-nooneors HI F.O.D. SANTA ANA 
^— ^ ^ 

^See List of Advertisers on page 322 80 Microcomputing, August 1981 • 135 



PERSONAL 



The last piece of software you'll ever need. 



Being of 

Sound Algorithm 



Carol S. Weinberg 
1 1 Locust St. 
Closter, NJ 07624 



This program will help you write a simple 
will. It may encourage those who ordi- 
narily would not write any will, and guide 
those who might improvise without ade- 
quate research. 

The program guides you through the tra- 
ditional sections of a will and asks you to 
think about your estate and the future se- 
curity of people in your life. It will also help 
you update your will conveniently, econom- 
ically, and as often as changing circum- 
stances dictate. 

Warning 

You should first be aware of some limita- 
tions: I am a researcher, not an attorney. 
The content and format of the will and the 
information contained in these instructions 
are based on dependable sources, however. 
But estate and inheritance laws vary state 
to state: The person who writes his or her 
own will cannot assume it will be as flaw- 
less as it would be if it were designed by an 
attorney. The value of the final document 
will depend on how carefully you evaluate 
your personal circumstances, the terminol- 
ogy you use writing the will, the complexity 
of your estate, and some simple common 
sense. 
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As a first time user of the program, con- 
sider submitting the final will to an attorney 
for review. The attorney's fee should be 
nominal (since the will has already been 
written) and worth the additional security of 
legal approval. 

The program is flexible, but like any stan- 
dardized format, has certain limitations. 
For this reason, it is best for simple wills on- 
ly. A simple will need not be short, or limited 
to one or two beneficiaries: Simplicity is de- 
termined by your circumstances. If your cir- 
cumstances are unusual or complex, you 
should have an attorney draft your will. 

Complex circumstances may include 
considerations like the following: 

• Your estate exceeds $175,000 

• Your children or any of your beneficiaries 
require extraordinary care (e.g., if they are 
disabled) 

• You wish to leave someone out of your 
will who would ordinarily be viewed as a le- 
gitimate heir (e.g., disinherit a spouse or 
child); or you show a disproportionate pref- 
erence for one person compared with 
others who have the same or a higher kin- 
ship status 

• You wish to name more than one guard- 
ian to care for your children and administer 
the property you leave to them; or 

• You want to set up a trust 

Preparation 

Do a thorough inventory of your assets 
and work up a net worth statement. Include 



in it cash and any property with tangible 
monetary value (real estate, bank accounts, 
stocks, insurance policies, jewelry, works of 
art, etc.) which you own in whole or in part. 
Now, list any property of sentimental value 
you would like to pass on to specific individ- 
uals. Determine what you want to give and 
to whom. It's a good idea to leave some- 
thing to your spouse, any children you may 
have, and any grandchildren, even if it is on- 
ly nominal. (Some states require that you do 
so.) 

Record the full legal names of your poten- 
tial beneficiaries, and check spelling. Final- 
ly, be sure that the total value of your be- 
quests does not exceed the total value of 
your estate less any taxes or fees and burial 
expenses which you estimate will be in- 
curred when your estate is settled. 

The Program 

The program, written in Basic for a 16K 
TRS-80 Level II, should run on any line print- 
er, including those which print only 32 or 40 
characters per line. The will is not pro- 
grammed to print out on separate pages, 
however. If you have a long will and cannot 
use continuous roll paper in your printer, 
make adjustments to the program, or con- 
trol your printer manually. 

It's a good idea to make a dry run so that 
you can be prepared to answer all the ques- 
tions that are presented, and become famil- 
iar with the printed format, as well as the 
limitations and capabilities of the program. 



Executor 

The executor is the person who will see 
that the requests you make in your will are 
carried out. He or she should be trust- 
worthy, young enough to survive you, and 
competent. Often the executor is the per- 
son who will inherit the major part of your 
estate, but this need not be so. The exec- 
utor can be a friend of the family, an at- 
torney, or even an institution (such as your 
favorite bank). Whoever or whatever you 
choose, discuss this matter with them first 
and obtain their agreement. 

The program permits you to enter the 
names of two alternative executors. This 
should not be overlooked, it is not unusual 
for the person you named first to default 
(due to death, disablement, refusal, etc.). 
Additionally, the program allows you to spe- 
cify whether or not you want the executor to 
be bonded. If your executor(s) are trust- 
worthy, waive this option. Bonding entails 
additional expense. You should be aware 
that, in some states, an executor will be re- 
quired to furnish a bond at the discretion of 
the probate judge even if this option is 
waived. 

The wording of the executor section of 
the will reads, "I designate my 
(relationship), (name of person), exec- 
utor. . ." All other sections read similarly. 
Adjectives can be included in the relation- 
ship description (e.g., "my dear and compe- 
tent friend, John Doe"). A descriptive 
phrase may also be included along with the 
name (e.g., "my attorney, John Doe, who 
has served me faithfully for 30 years"). Us- 
ing such phrases helps personalize your 
will, further identify the person intended, 
and explain the reasons behind your ac- 
tions. Try to keep them short, however. 

Guardian 

If you have any minor children, a guard- 
ian will look after them and their property, 
acting as a surrogate parent, until they are 
legally of age. The program assumes that if 
you have a surviving spouse, he or she will 
perform this function. 

Besides your spouse, the program allows 
you to name up to three persons as poten- 
tial guardians for your children— a primary 
guardian (secondary in the case that you 
have a spouse), and two additional guard- 
ians in the case that your spouse/or primary 
guardian do not survive long enough to 
complete their responsibility. The program 
allows you to sepcify whether or not you 
want the guardian(s) to be bonded. Again, if 
the people you elected are trustworthy, you 
can waive this option. 

Specific (Noncash) Gifts 

Noncash gifts are intended for people 



"The executor sees that the 

requests you make are carried out. 

He or she should be trustworthy. . . " 



you want to remember but do not intend to 
bequeath the major part of your estate. The 
gifts may be of monetary or sentimental val- 
ue (e.g., shares of stock, a wedding ring, a 
photo album, etc.). Any item you do not 
specify here will be considered part of your 
residuary estate (any property which re- 



mains after all specific bequests are made) 
and will be inherited by the person you 
specify as beneficiary. 

Describe each item you list specifically, 
to avoid confusion with other items you 
own. For example, if you list an original oil 
painting and you own several, describe the 



Sample Printout 

PROGRAM AUTOMATICALLY ADJUSTS LINE LENGTH TO THAT ALLOWED BY YOUR 
PRINTER WITHOUT SPLITTING WORDS AT ENDS OF LINES. ** 



** OPTIONAL, 
DEPENDING ON 
EXISTENCE OF 
MINOR CHIL- 
DREN ** 



** OPTIONAL, 
DEPENDING ON 
WISH TO LEAVE 
SPECIFIC 
GIFTS (UP TO 
TEN MAY BE 
SPECIFIED) ** 



** OPTIONAL, 
DEPENDING ON 
WISH TO LEAVE 
CASH GIFTS 
(UP TO TEN 
MAY BE SPE- 
CIFIED) 



** ALLOWS UP 
TO THREE AL- 
TERNATIVE 
BENEFICIARIES 



Last Will of 
Walter Rich 



I, Walter Rich, of One Sutton 
Place, New York, New York, state 
that this is my last will, 

revoking all previous wi 1 1 s_. 

1. Executors: 

I designate my bank, First 
Federated, executor of thi s will . 

I designate my brother, Wi 1 
Rich, as alternative executor, 
in case my bank, First Federated, 
is unable or unwilling to act as 
executor, or ceases to do so. 



I request that the executor 

be bon ded . 

2. Guardians : 



If my spouse, Wanda Rich, 
dies before me or at the same 
time, I designate my mother, 
Althea Rich, guardian of the 
person and property of my 
children until they are legally 
of age. _ 

I designate my brother, Will 
Rich, as alternative guardian, 
in case my mother, Althea Rich, 
is unable or unwilling to act as 
guardian or ceases to do so. 



I do not require that the 

guardi an be bonded. 

3. Specific Gifts: 

I leave my ten thousand 
(10,000) shares of Tandy Corp. 
common stock to my mother, 
Althea Rich. 



If that person dies before 
me or at the same time, this 
gift is to become part of my 

residu ary estate. 

T. General Gifts: 

I give 52,000 yearly to the 
person who cares for my pets. 
Rover and River, as long as 
either shall live. If tha t per- 
son dies before me or at the 
same time, this gift is to 
become part of my residuary 
estate. 



I give ten thousand dollars 
($10,000) to my adoring mother, 
Althea Rich, to help provide 
for her aging years . 



If that person dies before 
me or at the same time, I give 
ten thousand dollars ($10,000) 
to the General Wildlife Fund. 



5. Residuary Estate: 

I will the remainder of my 
property to my amorous wife, 
Wanda Rich. 



If that person (those per- 
sons) ..die before me or at the 
same time, I will this property 
to my brother, Will Rich, and 
my mother, Althea Rich, to be 
apportioned respectively as 
follows: 30%, 70%. 



6. Taxes: 



** TITLE AUTO- 
MATICALLY CENTERED 



STANDARD TEXT 



** ALLOWS SPECIFICA- 
TION OF TWO ADDITIONAL 
EXECUTORS ** 



** OPTION TO BOND 
OR NOT ** 

** OPTIONAL, DEPEND- 
ING ON EXISTENCE OF 
SPOUSE ** 



** ALLOWS SPECIFICA- 
TION OF TWO ALTERNA- 
TIVE GUARDIANS ** 



** OPTION TO BOND 
OR NOT ** 

** GIFTS MAY BE DES- 
CRIBED AS SPECIFICALLY 
AS NECESSARY ** 

** OPTION FOR ALTER- 
NATIVE BENEFICIARY 
(NOT TAKEN HERE) ** 



** FLEXIBILITY IN 
LIMITING AMOUNT AND 
DETERMINING BENEFI- 
CIARY ** 



** ALLOWS USE OF DES- 
CRIPTIVE TERMS TO 
PERSONALIZE WILL AND 
EXPLAIN ACTION TAKEN 

** OPTION FOR ALTER- 
NATIVE BENEFICIARY 
(TAKEN HERE) ** 



** MULTIPLE BENEFI- 
CIARY ALLOWED, WITH 
STIPULATION OF PRO- 
PORTIONING OF ESTATE 



Sample continues 
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THELEAST 



wmaMaam 



YOU CM BUY. 



77 high-quality programs 
for TRS-XO. only $10 95 



N 6 WoSSiC— expands disk basic 

NewBasic, from Modular Software 
Associates, adds tremendous power 
and flexibility to Level II or disk 
Basic. The disk version includes a 
unique CREATOR program which 
allows you to customize NewBasic to 
inlude any or all of over 30 new 
commands. Level II NewBasic 
includes all of the non-disk 
commands found in disk NewBasic. A 
few of the many new features added 
include: 

8POOLING-DKSPOOLINC (disk version)— 
Allows printer output to be "spooled" to disk 
Instead of being printed. Later, the file may be 
"despooled" (I.e. printed out) while the computer 
can still run Basic , as usual (another program , or 
you Input a program!). 

NEW TRACE UTILITY — Now trace more than 
just a line number! This trace facility displays 
(LISTs) the line being executed, as well as the 
current value of specified variables and 
expressions. 

SOUND AND GRAPHICS— Easily create music or 
sound effects with the versatile SOUND 
command. Lines and rectangles may be 
effortlessly drawn with the new graphics 
commands: LINE, RECT, and FILL. 

RS232 — NewBasic allows you to initialize your 
RS-232-C, receive input from it, or output to it- 
all from within Basic! 

QUICK KEY ENTRY — Over 35 pre-defined keys 
allow you to "type" most any common Basic 
keyword quickly and without errors. 

Blinking cursor; Repeating keys; Lowercase 
driver; DO-UNTIL; Line labels; RESTORE any 
DATA line... 

and MUCH more, including many features not 
available elsewhere. The finest enhanced Basic 
package available for your Model I! 

Disk version (1 drive, 32K min.) ($31.75 CA) 

$29.95 

Level II (cassette) version (16K min) $19.95 (may 
be upgraded to disk for $10.95) Si 9 95 

SuperPIMS— People's Database 

PIMS has been greatly speeded up and simplified, 
with machine-language sorts, key debounce, 
optional automatic lowercase (no keying, no 
hardware mod) on labels or reports. Up to 20 
fields, limited by 240-character maximum per 
record. Easy to revise, add records, split or 
merge files, sum or average any fields 
Customized for tape, tape b disk, Zoom, TC8 Poor 
Man's Floppy, B17, Stringy Floppy— all on one 
tape! As mailing labels program, easily manages 
20,00011st. CIE does! Advanced labels module to 
come, $24.95, making system most powerful 
mailer available! $25.90 on disk 

program (CIE) $19.95 ($21-15 CA) 

book, details uses (CIE) $11.95 ($12.67 CA) 

NewDOS-80— New Low Price! 

Successor to NewDOS + , same package for which 
you pay $149 elsewhere, at CIE just... 
($105.95 CA) $111 

Games for color TRS-80 

Modular Software Assoc, tape contains: 

• PONG-80 • ENTRAP • DEMOLISH (like 
Breakout) • TRAFFIC (Grand Prix auto race) 

• BETA TREK space game • SHUTTLE (rocket 
ship game) $19.95 ($20.55 CA) 

Add $1 shipping per order 

NEW" Send ' or ' ree montn 'y catalog 

10% DISCOUNT 
when ordering 3 items 
totaling $50 or more 

All orders charge card, check or mo. 

Calif, residents add 6 pet tax. Dealer lnq. Invited 

Overseas, add $1.50 per tape postage 



COMPUTER INFORMATION EXCHANGE 

Box 159 
San Luis Rey CA 92068 ^22 



All taxes and government 




fees related to the settlement 




of my estate are to be paid out 




of the residuary estate. 


** STANDARD TEXT ** 


7. Executor's Options: 




In order to carry out the 




settlement of my estate, I 




confer upon my executor full 




power to sell, lease, mortgage. 




or otherwise liquidate the 




assets in my estate. 




My executor should adjust 


the number of shares of 


** OPTIONAL, DEPEND- 


securities I leave as specific 


ING ON RELEVANCE ** 


gifts to account for all stock 




dividends, splits, or other 




changes in the form of the 




stock occurring after the date 




of this wi 1 1 . 




Signed: 


Date: 






** STANDARD TEXT ** 


Witnesses: 


According to Walter Rich's 




wish, we all assembled on the 




date shown above to witness the 




signing of this wi 11. 




With all of us there at the 




same time, Walter Rich signed 




it and described it as his last 




wi 11 . 


** SPACE FOR THE SIG- 


Signed: 




NATURES OF THREE 
WITNESSES ** 




Address: 











Program Listing 

10 •*** SIMPLE WILL IN BASIC, AUGUST 14, 1980 ***' 

30 'WRITTEN FOR TRS 80 LEVEL II, 16K WITH LINE PRINTER' 

40 CLS:PRINT:PRINT:PRINT:PRINT:PRINTCHR$(23) " CUS 

TOMIZED WILL": FOR Z=l TO 1000:NEXT Z 
50 CLS: PRINT: PRINT: PRINT "THIS IS A PROGRAM WHICH WILL C 

USTOMIZE A SIMPLE WILL AND PRINT IT OUT ON YOUR L 

INE PRINTER, READY FOR YOUR SIGNATURE AND THOSEOF 
THREE WITNESSES." 
160 PRINT: PRINT"FOR BACKGROUND INFORMATION, SEE AN ARTI 

CLE ENTITLED 
170 PRINT" 'WHAT YOU SHOULD KNOW ABOUT WILLS,' PUBLISHED 

IN 
180 PRINT "CONSUMER REPORTS, JULY 1980, ON WHICH THIS PR 

OGRAM 
190 PRINT" IS BASED." 
200 PRINT: PRINT"HIT 'ENTER' WHEN READY TO PROCEED. ": INP 

UT Z 
210 CLS:PRINT:PRINT:PRINT:PRINT 
215 CLEAR. CLEAR 2500:DEFSTR A-T 
220 PRINT"BE SURE YOUR LINE PRINTER IS HOOKED UP AND RE 

ADY. THEN ENTER MAXIMUM NUMBER OF CHARACTERS PE 

R LINE (32, 40 OR 80) OF WHICH YOUR LINE PRINTER 
IS CAPABLE.": INPUT V 
245 CLS: PRINT: PRINT"*** ENCLOSE INFORMATION IN QUOTATIO 

N MARKS ***" 
250 PRINT: PRINT: INPUT "YOUR FULL LEGAL NAME" ;T 
260 PRINT: PRINT: INPUT "AND COMPLETE ADDRESS"; AD 
270 CLS : PRINT: PRINT: PRINT: INPUT"AND WHAT IS YOUR SEX (M 

/F) ";SX 
275 CLS : PRINT : PRINT: PRINT: PRINT :PRINTCHR$( 23) " 

EXECUTORS": FOR Z=l TO 1000:NEXT Z 
320 GOSUB 9000:PRINT"WHO DO YOU WISH TO NAME AS EXECUTO 

R OF YOUR ESTATE? (TYPE 
330 PRINT" IN THE RELATIONSHIP OF THE INDIVIDUAL/INSTITU 

Program continues 
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Apparat, Inc. 



303/741-1 778 

4401 South Tamarac Parkway 
Denver, Colorado 80237 



Announces More 

New Products 

for your TRS-80® Model I & III 



CHEXTEXT 



(pronounced Check Text) 



Apparat Inc. announces CHEXTEXT, a 
variable length dictionary which interacts 
with SCRIFTSIT® to highlight potential 
spelling and typographical errors in a 
text file. 

Some of the CHEXTEXT features are: 

• Variable Length Dictionary: The 
dictionary may be supplemented, 
depending on your system hardware 
(i.e. disk drive storage). 

• Menu Driven. 

• User Oriented. 

• Dictionary may be complemented 
with unique industry jargon. 

• A dual 80 track drive supports an 
approximate 50,000 word dictionary. 
Smaller dictionaries are provided with 
Basic CHEXTEXT Package (10,000 to 
20,000 words.) Minimum system 
requirement— 2 disk drives and 48K. 

• Complete documentation. 

• Reduces time required for 
proofreading. 

Available from Apparat, Inc. for only 
$7995 

Catalog No. 2-148 



TRS-80 DIGITAL TALKER: 

A low cost alternative to the TRS-80 Voice 
Synthesizer. 

Allows voice synthesis with no additional 
hardware on your TRS-80 Model I Level II 
or Model III 16K versions. The voice signals 
are generated via the cassette output 
port. A Radio Shack external speaker/ 
AMP can be used for sound output. 

Features 

Comes with 16 preprogrammed words 
Digits 0-9 
+ Plus 

Minus 
/ Divided by 

Equals 
Times 
And calculator mode software 

Possible Applications utilizing the 
techniques internal to this program are: 

• Talking clock 

• Program reader 

• Computer generated sound to aid in 
visual problems 

Supplied on Diskette or tape 
(please specify) for only $29.95. 
Catalog No. 1-026 

CATALOG CORRECTIONS 

CAT #1-223 Price should be $195.95 

instead of $39.95 

CAT #1-225 Price should be $24.00 

instead of $39.95 

CAT #2-405 Price should be $99.00 

instead of $79.00 

CAT #1-403 Price should be $549.00 

instead of $645.00 

Don't forget to ask for your Free 1981 
Apparat catalog when placing your 
order. 



"On-going Support for Microcomputers" 

■ REGISTERED TRADEMARKS OF TANDY CORP. 



^See List ol Advertisers on page 322 
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PACKER Machine language program thai edits all or part 
ot your Basic program to run (aster, save memory, or 
ease editing The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines 
SHORT— deletes unnecessary words, spaces, and REM 
statements PACK— packs lines into maximum multiple 
statement lines, including all branches MOVE— moves 
line or blocks of lines to any new location on program On 
2 cassettes for 16K. 32K & 48K 

For TRS-80 Mod I or III Level II or Disk Basic . . . S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verify routines The Model III version 
allows use ot both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II S15 95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and ■ 
stick labels on tractor feed paper 

For TR-80 Model I of III Level II & Printer 517 95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to LPrints (except Pnnt(p> or 
Print*) or LPrints to Prints Save edited version 

For TR-80 Model I or III Level II S12 95 

FAST SORT ROUTINES for use with Radio Shacks 
Accounts Receivable Inventory Control I. and Disk 
Mailing List Systems for Model I Level II Sorts in 
SECONDS' You'll be amazed at the time they can save 
Supplied on data diskette with complete instructions 

FAST SORT for Accounts Receivable S19 95 

FAST SORT for Inventory Control I S19 95 

FAST SORT for Disk Mailing List (specify data diskette of 

cassette for 1 drive system) $14 95 

ALL THREE ROUTINES S44 95 

Prices sub|ect to change without notice Call or write for a 
complete catalog Dealer inquiries invited VISA and 
Mastercharge accepted Foreign order in US currency 
only Kansas residents add 3% sales tax 
On-line catalog in Wichita FORUM-80 316-682-2113 
0' call our 24 hour phone (316i 683-4811 or write 
COTTAGE SOFTWARE 
614 N HARDING 
WICHITA KANSAS 67208 ^233 
TRS-80 is a trademark of Tandy Corporation 




TEACH YOUR 
CHILDREN 



Learning to count money by Malcolm Nygren 



A three-program learning system that teaches 
the important skill of counting money. 

1. Counting Coins — Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shopping Trip — Buy goods in various 
stores; count out the payments and earn 
"purple stamps" for a right answer. Three 
speed levels. 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change. 

Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80 Model I— Level II— 16K on cassette 
only. Shipped postpaid by first-class mail 

Each program $6.95— all three $19.95 



ALSO AY All ABIT 

ALPHA — Alphabet recognition lor 

preschoolers 
SKiMA Addition problems lor 

tirades 1-3 
SUiMA-KX— Addition problems tor 
— the younger or slower 
learner 
SPK 1. -Spelling practice tor 
Grades 2-4 
Available on cassette only. $5.95 each. Two for $1 1. 
All four tor $20.00. f 104 

Mercer Systems Inc. 

87 Scooter Lane 

Hlcksvllle. N.Y. I ISOl 



TION TO YOU, 
340 PRINT"AND THE FULL NAME OF THE INDIVIDUAL/INSTITUTI 

ON, SEPARATING 
350 PRINT"EACH WITH A COMMA, E.G., 'MY BROTHER, JOHN A. 
DOE' OR 

360 PRINT"'MY BANK, FIRST NATIONAL OF WEEHAUKEN. 1 YOU 

MAY USE 

361 PRINT"DESCRIPTIVE WORDS AND PHRASES IF YOU LIKE." 
365 INPUT El 

370 GOSUB 9000 

380 PRINT"AND WHO IS TO BE THE EXECUTOR IN THE EVENT TH 

AT THE FIRST 
390 PRINT"NAMED INDIVIDUAL IS UNWILLING OR UNABLE TO CA 

RRY OUT THOSE 

400 PRINT"RESPONSIBILITIES? (TYPE RELATIONSHIP, NAME AN 

D ANY DESCRIPTIVE PHRASES YOU LIKE)": INPUT E2 

401 IF E2="NONE" THEN 440 

410 PRINT: PRINT"AND WHO IS TO BE THE EXECUTOR IN THE EV 

ENT THAT BOTH THE 
420 PRINT"FIRST AND SECOND INDIVIDUALS ARE UNWILLING OR 

UNABLE TO CARRY 
430 PRINT"OUT THESE RESPONSIBILITIES? (TYPE RELATIONSHI 

P, NAME, AND OPTIONAL DESCRIPTIVE PHRASES)": 

INPUT E3 
440 CLS: PRINT: PRINT: PRINT: PRINT"DO YOU WISH THE EXECUTO 

RS TO BE BONDED?": PRINT: PRINT" (IF YOU TRULY TRUST 

THE INDIVIDUALS YOU NAMED, BONDING IS AN" 
450 PRINT"UNNECESSARY EXPENSE .)": INPUT EB 
460 CLS:PRINT:PRINT:PRINT:PRINT:PRINTCHR$(23) " 

GUARDIANS": FOR Z=l TO 1000:NEXT Z 
490 CLS : PRINT: PRINT: PRINT: INPUT"HOW MANY CHILDREN UNDER 

18 YEARS OF AGE DO YOU HAVE, IF ANY";Y 
500 IF Y=0 THEN 730 
510 CLS:GOSUB 9000 : PRINT: PRINT"DO YOU HAVE A SPOUSE WHO 

WOULD BE RESPONSIBLE FOR YOUR 
520 PRINT"CHILDREN AFTER YOUR DEMISE? IF SO, ENTER NAM 

E OF SPOUSE;": PRINT" IF NOT, ENTER 'NONE'." 
540 INPUT SP 

550 IF SP="NONE" THEN 570 

560 PRINT: PRINT: PRINT: PRINT: PRINT"IF YOUR SPOUSE SHOULD 
DIE BEFORE YOU OR AT THE SAME TIME ...": FOR Z=l TO 
1500:NEXT Z 
570 GOSUB 9000:PRINT"WHO DO YOU WISH TO APPOINT AS GUAR 

DIAN FOR YOUR MINOR CHILDREN?" 
580 PRINT" (ENTER RELATIONSHIP AND NAME OF INDIVIDUAL, S 

EPARATED BY A 
590 PRINT"COMMA. E.G., 'MY SISTER, JANE E. DOE'.) YOU 

MAY INSERT" 
600 PRINT"DESCRIPTIVE PHRASES IF YOU LIKE. 
610 INPUT Gl 
640 GOSUB 9000:PRINT"AND WHO DO YOU APPOINT GUARDIAN IN 

CASE THE INDIVIDUAL YOU 
650 PRINT"NAMED FIRST IS UNWILLING OR UNABLE TO CARRY O 

UT THOSE RESPON- 
660 INPUT"SIBILITIES";G2 
665 IF G2="NONE" THEN 700 
670 PRINT: PRINT"AND WHO DO YOU APPOINT IN CASE THE FIRS 

T AND SECOND NAMED 
6 80 PRINT" INDIVIDUALS ARE UNWILLING OR UNABLE TO CARRY 

OUT THOSE RE- 
690 INPUT"SPONSIBILITIES";G3 
700 CLS: PRINT: PRINT: PRINT: PRINT"DO YOU WISH THE GUARDIA 

NS TO BE BONDED? (IF YOU TRULY TRUST 
710 PRINT"THESE INDIVIDUALS, BONDING IS AN UNNECESSARY 

EXPENSE.) 
720 INPUT GB 
730 CLS:PRINT:PRINT:PRINT:PRINT:PRINTCHR$(23) " SP 

ECIFIC GIFTS": PRINT: PRINT" (YOU MAY SPECIFY UP TO 1 

GIFTS) ":FOR Z=l TO 1500:NEXT Z 
830 FOR Z=l TO 10:GOSUB 9000 
835 PRINT"===== GIFT #"; Z; "======" 

840 PRINT"DESCRIBE GIFT": INPUT D(Z) 

845 IF D(l)="NONE" THEN 920 

850 IF Z>1 AND D(Z)="NONE" THEN 890 

860 PRINT: PRINT"AND THE NAME OF THE BENEFICIARY? (ENTE 

R RELATIONSHIP AND NAME 

Program continues 
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TIC-TOC 80™ 

Micro-Clock 

Put o wrist watch on your Computer. Gives Time, Dote, 
and Day of week, without the need of operator input. 
Runs on Batteries, so it never needs to be reset. Gives 
you the ability to enter data with the knowledge that 
the Date and time are correct. Includes complete 
docu mentation, and sample routines. 

Mod I Version $99.00 

Mid III Version $109.00 

NEW DOS PLUS SUPPORTED!! 



THE COPYRIGHT KIT ' 

"How to Copyright your Computer Software" 

A self-instruction booklet on copyrighting the computer 
programs you write. IF YOU EVER WROTE A COMPUTER 
PROGRAM YOU NEED THIS BOOK! INCLUDES: Step by 
Step instructions, sample forms, as well as discussions of 
copyrights, patents and trade secrets, your rights se- 
cured by copyright, legal remedies upon infringements, 
moterial not copyrightable and MUCH MORE! Written by 
Attorneys. Published by Notionol Attorneys' Publica- 
tions, Inc. ond distributed exclusively through DJ. Enter- 
prises. 
ONLY S11.95 



DOS PLUS 



s^r 



This is the BEST Operating System currently available for 
the TRS-flO™. It offers you oil the features you could ever 
use, speed, reliability and much more. Available for the 
Model I ond III. Single ond double density systems 
^available. Only 99.95 either system. 

/AA/ 



4 
< 



UNITERM 

UNIVERSAL TERMINAL 
PROGRAM by Pete Roberts 

The first and only fully intelligent terminal 
program for DOTH Mod I ond Mod III users! 
Includes all features found in Terminal 
programs costing MUCH more, plus many 
not found anywhere else. Includes 
extensive Documentation and hand- 
some binder. 

Price $79.95 



terns r 



NEW" 
NEW!! 

We are happy to an- 
nounce the addition 
of The Universal Data 
Systems, and Lynx 
Modems to our line of 
fine modems!! 

Watch this 
space or call 
for specials!! 



MODEL III DISK DIRECTORY 
PROGRAM 

by Dill Maxey 

Catalogue your Diskettes with this easy to use Cata- 
logue program for Model III Disk systems. Can run on as 
little as a 32K 1 Disk system. Helps you keep track of ALL 
of your programs. 
ONLY S19.95 



RUN YOUR OWN 
COMPUTER 
BULLETIN BOARD 

Become o CONNECTION-80 SYSOP with 
an UDS- 103J Auto- Answer Modem, 
Message-80 BBS Software (by Richard 
Taylor) ond CONNECTION-80 Enhance- 
ments (by Tom Vande-Stouwe) all for only 
$389.00 ($90 off regular price). 
Other Bulletin Board and Electronic Mail 
Packages available. Call for Info. 



COPY 

by Dick Dalcom 

Load in the 500 Baud system tapes in 1 /3 
the time with copy III. This utility will read 
in your 500 baud system tapes, and then 
write them out ot 1 500 baud. This gives 
you backup protection as well as speed- 
ing up your tapes. A must for all Model III 
Cassette users! 
ONLY $14.95 



MODEL III MEMORY KIT 

Upgrade your Model III to 32 or 48 K with the RIGHT 
Memory Chips. These are Prime 150ns (Fast!!) chips. 
Beware of slower chips, as future Mod III upgrades may 
not work with them! 

16Kset $45.00 

32K set $80.00 




171 Hawkins Road 
Centereach, New York 11720 







(516) 981-8568 (Voice) 
(516) 588-5836 (Data) 
MNET-70331, 105 



Dealer Inquiries Welcome 

Add $2.00 S Cj H 
NYS res. odd appr. tax 



^See List ot Advertisers on page 322 
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"Cash gifts are intended for 

people to whom you do not intend 

to bequest the major part of your estate." 



subject and artist to distinguish it from 
others. 

The program allows you to list up to 10 
bequests of specific gifts, with one alterna- 
tive beneficiary for each. If you do not list an 
alternative beneficiary, the program will 
specify that the gift become part of your 
residuary estate should the primary benefi- 
ciary die befor you. You may specify any 
number of gifts to a beneficiary at one time 
when the program asks forthis information. 
Multiple gifts to one person count as only 
one bequest in the program if you state 
them simultaneously. 

If you indicate a bequest of shares of 
stock, the program will automatically print 
a statement directing your executor to ad- 
just the shares to reflect any changes 
which affect the value of the stock (stock 
dividends, splits, etc.) which may have oc- 
cured since the date of the will. 



General (Cash) Gifts 

Cash gifts are also intended for people to 
whom you do not intend to bequest the ma- 
jor part of your estate. Any cash left after 
your general gifts are made will be part of 
your residuary estate. 

Include in this section the proceeds of 
life insurance policies, if you purchased the 
policies yourself, even if the beneficiaries 
have already been stipulated on the pol- 
icies. 

The program allows you to list up to ten 
bequests, with one alternative beneficiary 
for each. If you do not list an alternative, the 
program will specify that the gift is to be- 
come part of your residuary estate should 
the primary beneficiary not survive you. 

Residuary Estate 

This is the part of your estate which re- 
mains after all other gifts have been made. 
It is usually the major part of the estate and 
the beneficiary named is the most impor- 
tant to the person writing the will. The pro- 
gram allows you to name more than one pri- 
mary beneficiary and to specify the way you 
want the estate to be divided among them. 

Two alternative beneficiary designations 
may be listsed in case the primary does not 
survive you. These also allow for multiple 
names and proportioning the estate. 

Taxes and Executor's Options 

These final sections tend to be standard 
in wills. The first provides that taxes and 
fees related to the settlement of your will be 
paid from the residuary estate. The second 
gives your executor the power needed to ad- 
minister the estate properly. 

In front of three witnesses, you must de- 



870 PRINT"OF INDIVIDUAL, SEPARATED BY A COMMA. YOU MAY 
USE DESCRIPTIVE PHRASES IF YOU LIKE. )": INPUT Dl 

(Z) 
87 5 PRINT: PRINT" IF THIS PERSON DOES NOT SURVIVE YOU, WH 

DO YOU NAME AS 
876 PRINT"THE NEXT BENEFICIARY?" : INPUT D2(Z) 
880 NEXT Z 
890 CLS:PRINT:PRINT:PRINT:PRINT:PRINT"DO ANY OF YOUR GI 

FTS CONSIST OF STOCKS WHOSE VALUE 
900 PRINT"MIGHT CHANGE DUE TO SPLITS, STOCK DIVIDENDS, 

ETC . ? " 

910 INPUT SK 

920 CLS: PRINT: PRINT: PRINT: PRINT: PRINTCHR$ (23) " 

CASH GIFTS": PRINT: PRINT" (YOU MAY SPECIFY UP TO 10 

GIFTS) ":FOR Z=l TO 1500:NEXT Z 

1000 FOR Z=l TO 10:GOSUB 9000 :PRINT"===== GIFT #";Z;"== 
_ ii 

1010 PRINT: PRINT" IF CASH, SPELL OUT AMOUNT AND ENCLOSE 
DOLLAR FIGURE IN PARENTHE-SES , E.G., 'FIVE HUNDRED 

DOLLARS ($500)'. IF INSURANCE," 

1011 PRINT"SPECIFY POLICY, E.G., 'PROCEEDS OF FEDERAL I 
NSURANCE POLICY* .": INPUT C(Z) 

1015 IF C(Z)="NONE" THEN 107 

1020 PRINT: PRINT"THE RELATIONSHIP AND NAME OF THE INDIV 

IDUAL TO WHOM YOU ARE 
1030 PRINT"MAKING THIS GIFT? (SEPARATE RELATIONSHIP AND 
NAME WITH A COMMA. USE DESCRIPTIVE PHRASES IF YOU 
LIKE.) ":INPUT C1(Z) 
1040 PRINT: PRINT"AND THE ALTERNATIVE BENEFICIARY SHOULD 

THAT PERSON DIE BEFORE 
1050 INPUT "YOU"; C2(Z) 
1060 NEXT Z 
1070 CLS : PRINT: PRINT: PRINT: PRINT: PRINTCHR$ (23) " R 

ESIDUARY ESTATE": FOR Z=l TO 1000: NEXT Z 
1080 GOSUB 9000:PRINT"ENTER THE RELATIONSHIP(S) AND THE 

NAME(S) OF THE PERSON (S) TO 
1090 PRINT"WHOM YOU WISH TO LEAVE THE REMAINDER OF YOUR 

ESTATE. SEPARATE 
2000 PRINT"RELATIONSHIP(S) AND NAME(S) WITH COMMAS. USE 

DESCRIPTIVE TERMS IF YOU LIKE.": INPUT Rl 
2010 PRINT: PRINT" IF MORE THAN ONE PERSON IS INVOLVED, I 

NDICATE HOW THE 
2020 PRINT"ESTATE IS TO BE PROPORTIONED. USE PERCENTAGE 

S, TYPING 
2030 PRINT"THEM IN THE SAME ORDER AS YOU DID THEIR NAME 

S. IF THERE 
2040 PRINT" IS ONLY ONE BENEFICIARY, JUST HIT ' ENTER.' ": 

INPUT PI 
2050 GOSUB 9000:PRINT"WHO IS TO BE THE BENEFICIARY IN T 

HE CASE THAT THE PERSON (S) 
2060 PRINT"YOU FIRST NAMED DIE BEFORE YOU? (ENTER RELAT 

IONSHIP(S) 
2070 PRINT"AND NAME(S), SEPARATED BY COMMAS .)": INPUT R2 

: PRINT 
2075 IF R2="NONE" THEN 3040 
2080 PRINT" IF MORE THAN ONE PERSON IS INVOLVED, INDICAT 

E HOW THE 
2090 PRINT"ESTATE IS TO BE PROPORTIONED. IF ONLY ONE, J 

UST HIT 'ENTER. '" 
3000 INPUT P2 
3010 GOSUB 9000:PRINT"AND WHO IS TO BE THE BENEFICIARY 

IN THE CASE THAT ALL OF 
3020 PRINT"THE PERSONS PREVIOUSLY NAMED DIE BEFORE YOU? 
(ENTER RELATION- 

3030 PRINT"SHIP(S) AND NAME(S), SEPARATED BY COMMAS.)": 
INPUT R3: PRINT: IF R3="NONE" THEN 3040 

3031 PRINT" IF MORE THAN ONE PERSON IS INVOLVED, INDICAT 
E HOW THE 

Program continues 
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3032 

3033 
3040 

3050 

3060 

3062 

3070 



3085 
3090 

3091 



3095 
3100 
3101 



3102 
3105 
3106 

3110 

3114 
3115 
3130 
3135 



3140 
3145 



3150 
3156 



3160 
3171 



PRINT" ESTATE IS TO BE PROPORTIONED. IF ONLY ONE, J 

UST HIT 'ENTER' . " 

INPUT P3 

CLS: PRINT: PRINT: PRINT: PRINT: PRINT" IS PRINTER ON-LI 

NE AND READY TO GO?" 

PRINT: PRINT"HIT ENTER WHEN READY TO PROCEED. ": INPU 

T Z 

FOR Z=l TO (V-12)/2:LPRINT" " ; : NEXT Z :LPRINT"LAST 

WILL OF" 

FOR Z=l TO INT((V-LEN(T) )/2) :LPRINT" " ; : NEXT Z:LPR 

INT T 

LPRINT:A=" I, "+T+" OF "+AD+", STATE THAT THIS I 

S MY LAST WILL, REVOKING ALL PREVIOUS WILLS. ":GOSU 

B 10000 

LPRINT" 1 . EXECUTORS:" 

A=" I DESIGNATE "+E1+" , EXECUTOR OF THIS WILL.": 

GOSUB 10000: IF E2="NONE" THEN 3105 

A=" I DESIGNATE "+E2+", AS ALTERNATE EXECUTOR, I 

N CASE "+E1+", IS UNABLE OR UNWILLING TO ACT AS EX 

ECUTOR, OR CEASES TO DO SO." 

GOSUB 10000 

IF E3="NONE" THEN 3105 

A=" IN THE CASE THAT BOTH OF THESE PERSONS ARE U 

NABLE OR UNWILLING TO ACT AS EXECUTOR, OR CEASE TO 

DO SO, I DESIGNATE "+E3+", AS EXECUTOR OF MY WILL 

ii 

GOSUB 10000 

IF EB="NO" THEN 3110 

A=" I REQUEST THAT THE EXECUTOR BE BONDED. " :GOSU 

B 10000:GOTO 3114 

A=" I DO NOT REQUIRE THAT THE EXECUTOR BE BONDED 

.":GOSUB 10000 

IF Y=0 THEN 3187 

GUARDIANS: " 
1 THEN 3145 

A=" IF MY SPOUSE "+SP+", DIES BEFORE ME OR AT TH 
E SAME TIME, I DESIGNATE "+G1+", GUARDIAN OF THE P 
ERSON AND PROPERTY OF MY CHILDREN UNTIL THEY ARE L 
EGALLY OF AGE." :GOSUB 10000 
GOTO 3150 

A=" I DESIGNATE "+G1+", AS GUARDIAN OF THE PERSO 
N AND PROPERTY OF MY CHILDREN UNTIL THEY ARE LEGAL 
LY OF AGE." :GOSUB 10000 
IF G2="NONE" THEN 317 3 

A=" I DESIGNATE "+G2+", AS ALTERNATE GUARDIAN, I 
N CASE "+G1+", IS UNABLE OR UNWILLING TO ACT AS GU 
ARDIAN, OR CEASES TO DO SO.":GOSUB 10000 
IF G3="NONE" THEN 317 3 

A=" ALTERNATIVELY, IF NEITHER OF THESE PERSONS S 
URVIVES LONG ENOUGH TO CARRY OUT THIS RES PONS IBI LI 
TY, I DESIGNATE "+G3+" , AS GUARDIAN OF MY CHILDREN 



3172 
3173 
317 5 

3180 

3187 
3188 
3189 
3190 
3195 
3200 
3205 

3210 
3211 



LPRINT" 2 . 
IF SP="NONE' 



GOSUB 10000 

IF GB="NO" THEN 3180 

A=" I REQUEST THAT THE GUARDIAN BE BONDED. " :GOSU 

B 10000:GOTO 3187 

A=" I DO NOT REQUIRE THAT THE GUARDIAN BE BONDED 

.":GOSUB 10000 
IF D(l)="NONE" THEN 3221 

IF Y>0 THEN 3189 ELSE LPRINT " 2. " ; : GOTO 3190 
LPRINT " 3. "; 
LPRINT"SPECIFIC GIFTS: " 
FOR Z=l TO 10 

IF Z>1 AND D(Z)="NONE" THEN 3221 

A=" I LEAVE MY "+D(Z)+" TO "+D1 ( Z) +" . " :GOSUB 100 
00 

IF D2(Z)O"N0NE" THEN 3215 

A=" IF THAT PERSON DIES BEFORE ME OR AT THE SAME 

Program continues 



REMsoft, Inc. 

Let Your TRS-80® 
Teach You 
ASSEMBLY LANGUAGE 

Tired of buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH? 

REMsoft proudly announces a more effi- 
cient way, using your own TRS-80* . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience 
Our unique package. INTRODUCTION TO TRS-8(T 
ASSEMBLY PROGRAMMING", will provide you with 
the following: 

• Ten 45-minute lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard for the instructor 

• A display program tor each lesson to provide 
illustration and reinforcement for what you are 
hearing. 

• A textbook on TRS-80* Assembly Language 
Programming 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer 

• How to access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio The minimum 
system required is a Level II. 16K RAM 

REM ASSEM-1 only $69.95 



LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOFT • Educational Module REMDISK-1 a 
"short course revealing the details ot DISK I/O 
PROGRAMMING using assembly language 

Using the same lormat as our extremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING" course includes 

• Two 45-minute lessons on audio cassette 

• A driver program to make your TRS-80" video 
monitor serve as a blackboard lor the instructor 

• A display program lor each lesson to provide 
illustration and reinforcement tor what you are 
hearing 

• A booklet ol comprehensive, tully-commented 
program listings illustrating sequential tile I/O 
random-access tile I/O. and track and sector I/O 

• A diskette with machine-readable source codes 
tor all programs discussed, in both Radio Shack 
EDTASM and Macro formats 

• Routines to convert from one assembler lormat 
to the other 

This course was developed and recorded by 
Joseph E Willis, for the student with experience 
in assembly language programming, it is an inter- 
mediate-to advanced-level course Minimum hard- 
ware required is a Model I Level II. 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 




Dealer inquiries invited 

REMsoft, inc. 

571 E. 185 st 

Euclid. Ohio 44119 

(216)531-1338 




^70 



Include $1 50 lor shipping and handling 
Ohio residents add b'/i% sales tax 

TRS-80* is a trademark ol the Tandy Corp 
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SSI'S NEW MANAGEMENT PACKAGES 

DATA MANAGEMENT PLUS > RANDOM FILING. DISKETTE 
CROSS-OVER. MACHINE LANGUAGE SORT ROUTINES. 
MAINTIANS NUMERIC OR STRING DATA INCLUDING 
SUMMING OF NUMERIC FIELDS. PRINTS RECORDS 
AND MAILING LABELS. 

MODEL 1.48K.2DSK T.»129.93 D. »132.95 

VIDEO CASSETTE MANAGEMENT 1 KEEP TRACK OF VUUR 
RECORDED MOVIES. SEARCH FOR PARTICULAR MOVIE 
BY TITLE OR STAR. PRINT LABELS TO ATTACH TCI 
EACH CASSETTE. UPDATE FILES. FEATURES MAC- 
HINE LANGUAGE SORT FOR FAST REFERENCING. 
MODEL 1.32K. 1-DISK D. « 23. '13 

STRUMAP I SSI'S STRUCTURAL MATRIX ANALYSIS 
PROGRAM BRINGS MAIN FRAME POWER TO THE 
MICRO. ANALYSIS TWO DIMENSIONAL FRAMES WITH 
UP TO 28 JOINTS. 
MODEL1.4BK 1-DISK »49. 95 MODEL II SaK »79. 35 

MATH - PAK I LET THE POCKET COMPUTER HELP YOU 
LEARN ENGINEERING MATH PROBLEMS. HIGH SCHOOL 
~ EXAM. TAKEN FROM 



sWcB?L?NE , °ekR?E J 8. P - E - 
LINES * POINTS PAK 
GENERAL EQUATIONS 
MODEL l.LII 



MX-80 PRINTER 

OKIDATA MICROLINE 83 PRINTER 

SPECIFY COMPUTER (BOTH COBELSi 



14.95 
14.35 
19. 95 



•599. '35 
»999. 3"- 

39.95 



SHIPPING * HANDLING FOR PRINTERS » 15 flO 



UPERIOR 
OFTWARE 



MISSOURI RESIDENTS 
PLEASE ADD 

-- — — — — *** ST * TE SAlES ™ 

Write SSI for information about marketing your 
programs: P.O. Box 11676 Kansas City, MO 6*>138 I 



MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquines invited and CO.D.'s 
accepted 

VKA 




PACIFIC ^370 
EXCHANGES 

100 Foothill Blvd. 
San Luis Obispo. CA 

93401. InCal. call 
(800)592-5935 or 
(805)543-1037 



RUN BIG 
CPM* 
PROGRAMS 

ON YOUR 
MODEL 1 TRS-80* 

WITH 39 or 54K of user space.Can use Mixed 
Drivers 5% or 8" (Variable Tracks) 
Compatable with all TRS*80 Operating 
Systems and all TRS*80 Programs.(usable 
on 48K disk systems only) Boards fit into 
keyboard inclosure. 

FREEDOM OPTION $245 

MEMORY EXPANSION OPTION. . . . $295 
Send Check or Money Order to: 

(MASS RESIDENTS. PLEASE INCLUDE 1UH) 

F.E.C. ltd. „,„ 

P.O.Box 2368 • Woburn, MA. 01888 
(•17)944-6329 ;S : ™H... 



3215 



3220 
3221 
3222 
3223 
3224 
3225 
3230 
3235 
3240 
3245 
3246 



3250 



TIME, THIS GIFT IS TO BECOME PART OF MY RESIDUARY 

ESTATE.": GOSUB 10000 :G0T0 3220 
A=" IF THAT PERSON DIES BEFORE ME OR AT THE SAME 

TIME, I LEAVE MY "+D(Z)+" TO "+D2 (Z ) +" . " :G0SUB 10 
000 

NEXT Z 

IF C(l)="NONE" THEN 3252 
X=2 

IF Y>0 THEN X=X+1 
IF D( 1)<> "NONE" THEN X=X+1 
LPRINTX; ". GENERAL GIFTS: " 
FOR Z=l TO 10 

IF Z>1 AND C(Z)="N0NE" THEN 3252 

A=" I GIVE "+C(Z)+" TO "+C1(Z)+".":G0SUB 10000 
IF C2(Z)O"N0NE" THEN 3250 

A= " IF THAT PERSON DIES BEFORE ME OR AT THE SAM 
E TIME, THIS GIFT IS TO BECOME PART OF MY RESIDUAR 
Y ESTATE. ":G0SUB 10000 :G0T0 3251 
A=" IF THAT PERSON DIES BEFORE ME OR AT THE SAME 

TIME, I GIVE THAT AMOUNT TO "+C2 (Z) +" . " :G0SUB 100 



3251 NEXT Z 

3252 X=2:IF Y>0 THEN X=X+1 

3253 IF D(l)O"N0NE" THEN X=X+1 

3254 IF C (1)<> "NONE" THEN X=X+1 
3260 LPRINTX;". RESIDUARY ESTATE: 

3265 IF PIO"" THEN 3270 ELSE A=" I WILL THE REMAINDE 

R OF MY PROPERTY TO "+R1+" . " :GOSUB 10000 :G0T0 327 9 
327 A=" I WILL THE REMAINDER OF MY PROPERTY TO "+R1+ 

", TO BE APPORTIONED RESPECTIVELY AS FOLLOWS: "+P1 

+".":GOSUB 10000 
327 9 IF R2 = ,, N0NE" THEN 3320 
3280 IF P2<>"" THEN 3295 ELSE A=" IF THAT PERSON (THO 

SE PERSONS) DIE BEFORE ME OR AT THE SAME TIME, I W 

ILL THIS PROPERTY TO "+R2+" . " :G0SUB 10000 :GOTO 330 

4 
3295 A=" IF THAT PERSON (THOSE PERSONS) DIE BEFORE ME 
OR AT THE SAME TIME, I WILL THIS PROPERTY TO "+R2 

+", TO BE APPORTIONED RESPECTIVELY AS FOLLOWS: "+P 

2+"." .-GOSUB 10000 

3304 IF R3="NONE" THEN 3320 

3305 IF P3<>"" THEN 3315 ELSE A=" IF THE PRECEDING PE 
RSONS DIE BEFORE ME OR AT THE SAME TIME, I WILL TH 
IS PROPERTY TO "+R3+" . " :G0SUB 10000 :G0T0 3320 

3315 A=" IF THE PRECEDING PERSONS DIE BEFORE ME OR AT 
THE SAME TIME, I WILL THIS PROPERTY TO "+R3+", TO 
BE APPORTIONED RESPECTIVELY AS FOLLOWS: "+P3+".": 
GOSUB 10000 

3320 LPRINT X+l; 

3325 LPRINT". TAXES: 

3330 A=" ALL TAXES AND GOVERNMENT FEES RELATED TO THE 
SETTLEMENT OF MY ESTATE ARE TO BE PAID OUT OF THE 
RESIDUARY ESTATE. ": GOSUB 10000 

3339 LPRINTX+2; 

3340 LPRINT". EXECUTOR'S OPTIONS: 

3345 A=" IN ORDER TO CARRY OUT THE SETTLEMENT OF MY E 
STATE, I CONFER UPON MY EXECUTOR FULL POWER TO SEL 
L, LEASE, MORTGAGE, OR OTHERWISE LIQUIDATE THE ASS 
ETS IN MY ESTATE.": GOSUB 10000 

3360 IF SK="YES" THEN 3365 ELSE 3391 

3365 A=" MY EXECUTOR SHOULD ADJUST THE NUMBER OF SHAR 
ES OF SECURITIES I LEAVE AS SPECIFIC GIFTS TO ACCO 
UNT FOR ALL STOCK DIVIDENDS, SPLITS, OR OTHER CH 
ANGES IN THE FORM OF THE STOCK OCCURRING AFTER THE 
DATE OF THIS WILL." 

3370 GOSUB 10000 

3391 IF VO80 THEN 3400 

3392 LPRINT: LPRINT: GOSUB 3500 :LPRINT"SIGNED: " 

3393 GOSUB 3500:LPRINT" ; 

________ n 

3394 LPRINT: LPRINT: GOSUB 3500 :LPRINT"DATE: " 

3395 GOSUB 3500: LPRINT" 

3397 GOTO 3410 

3400 LPRINT:LPRINT"SIGNED:" 

3401 LPRINT" " 

Program continues 
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PROVEN MONEY MAKERS FOR YOUR TRS-80 

*Tandy Corp. Trademark 



MAIL LIST SYSTEM 



$69.95 



Many businesses require a mailing list. Most use a clumsy, hard 
to edit, and expensive mechanical system to generate addresses. 
This lucrative market is ripe for the picking if you have a 
convenient to use and fast mailing list program. Our system will 
accomodate almost any "custom" requirements of a customer 
and is lightening fast. In addition, the program is easy for your 
non-computer type employees to use. A glance below will show 
that we are light-years ahead of any other system in options, 
speed, and sheer volume of names handled. ..but don't let that 
fool you This system can be used just as easily on one disk for a 
small Christmas card list. 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph. or zip order, essential for large lists. 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entries (2 full 80 track 
double density disks) in only 48K! Made possible with 
our unique data compression techniques on the Model III 

• Super fast sort by alph or zip order (8 sec for 1000 
entries) both orders can exist simultaneously on disk 

• High speed recovery of entries from disk speed of sort is 
meaningless if retreival from disk is slow. ..ours pulls in 
over 11 per sec! 

• In zip order all entries with same zip code are also 
arranged alphabetically 

• Four digit zips have a leading "0" appended on labels. 

• Backup data disks are easily updated as entries are 
created, edited, or sorted extremely useful!! 

• Optional reversal of name about comma for that non- 
computer, personalized look 

• Master printouts of your list in several formats (not just a 
rehash of the labels) Optionally continuous or page 
oriented Your customers will want this! 

• All 0's in address labels are replaced by easier to read 0's 

• All labels optionally support an "Attn " line. Individual 
labels can be printed to the attention of several people 
at a given address while the address is stored only once 
on disk saves memory on disk. 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting, even allows for 
inequalities powerful and easy to use!! 

• Continuous screen display of how many addresses 
c urrentlv printed 

• fcach disk entry automatically "remembers" how many 
mailings have been made for that particulary entry Can 
be tied in with purge/select. 

• Primarily written in BASIC for easy modification 
embedded machine code for those speed sensitive areas 

• Minor custom changes done by us free of charge 

• Editing is simple and fast direct access or automatic 
alphabetical starch 

• Deleted entries have "holes" on disk filled automatically 
. and alph. order is still maintained! 

• Test label printing lets you make horizontal and vertical 
adjustments with ease. 

• Optional "one time" mailing for some selected entries. 

• Extensive use of error traps (both operator and machine 
induced) even recovers from a power failure during a 
printout! 

• Extensive documentations manual available separately 
for $3.95. 

• Hardware requirements 32K. virtually any printer, and 
either one or two disk drives. 



Football Scouting Report $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you? Did you know that each is a potential customer at 
the rate of from $500 - $1000 per season? Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports Using such a service, a coach will typically 
have an opponent scouted several times prior to actually playing 
them Occasionally a coach will also analyze his own team to 
see if they are falling into any predictable patterns This series of 
programs was written to the specifications of a coach with two 
state championships to his credit As a result, the emphasis is on 
producing statistics that will help in predicting what the 
opponent will do in a given situation This is a sophisticated set 
of programs fully equivalent to that used by professional 
football teams 

• Separate and detailed analysis of running, passing, and 
kicking. 

• Passing and running tendancies by field position 

• Point of attack tendancies and statistics for runs 

• Tendancies and statistics for wide/short side, weak/strong 
side, and left/right run 

• Each analysis can be broken down <ic cording to formation, 
down, and yards to go 

• Allows for up to 5 games to be analyzed simultaneously. 

• Convenient disk storage of plays and games 

• Optional hard copy printout of plays 

• Extensive error traps won't let you make an error 

• Two actual games (almost 100 plays) on disk to facilitate 
your learning and evaluation 

• Extensive documentation available separately for $3 95 

..even includes some advertising and price samples to 
help plan your promotion Also included are some sample 
printouts 

• Hardware requirements Y2K, 1 disk drive, and either an 
80 or 1 32 column printer 

Just a few years ago, only the large mainframes could offer such 
a service Now, you not only can compete with them, you can 
offer a vastly superior analysis If you live in an area where th.er._- 
is no such existing service, this could be a gold mine' 



FAST SORT 
$19.95 



Interfaces to your own 
basic programs sort with 
the speed of machine code 
but with the convience of 
basic. 

You don't have to know assembly language programming to use 
these two programs. )ust use your disk to merge our short basic 
programs (with embedded machine code) with your own basic 
program Follow our simple instructions to poke only 2 values 
before making the user call from basic The pokes will set up a 
sort for string, integer, single, or double precision arrays Also 
ascending or descending order is controlled by a single poke. Use 
one of two programs to sort arrays of the form A(1) or A(Q(1)). 
The latter is a sophisticated type of sorting using an integer 
directory. The disk includes six simple basic programs that are 
ready to merge with the main sort programs. Use them for 
learning and evaluation Also included is a ready to use basic 
program (already merged with the ORDER program) Use it to 
obtain a printout of alphabetized names. 
Sample Sort Times 
8 sec for 1000 dbl. prec. numbers .50 sec for 5000 integers 
Time for alphabetizing (string sorting) is comparable but 
dependent on the length of the strings 



Precision 
Prototypes 



410 { Roca 

RefuRio.Tx. 78177 

(512 S2f'»-4758) 



• Specify Model I or III when ordering. 



All programs supplied on disk only. 
Add $1.50 for postage and handling 
Texas residents add 5% 



Mastercharge 



COD. 



• See List ol Advertisers on page 322 
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"They should know you, be established 
in the community, and be young 
enough to survive you." 



3402 


LPRINT:LPRINT"DATE:" 


3403 






3410 


LPRINT:LPRINT"WITNESSES: 


3420 


A=" ACCORDING TO "+T+"'S WISH, WE ALL ASSEMBLED 




ON THE DATE SHOWN ABOVE TO WITNESS THE SIGNING OF 




THIS WILL.":GOSUB 10000 


3421 


IF SX="M" THEN A=" WITH ALL OF US THERE AT THE S 




AME TIME, "+T+" SIGNED IT AND DESCRIBED IT AS HIS 




LAST WILL." 


3422 


IF SX="F" THEN A=" WITH ALL OF US THERE AT THE S 




AME TIME, "+T+" SIGNED IT AND DESCRIBED IT AS HER 




LAST WILL." 


3425 


GOSUB 10000 


3440 


FOR Z = l TO 3:LPRINT:IF VO80 THEN 3450 


3441 


LPRINT"SIGNED: ADD 




RESS:" 


3442 
3443 

3445 






LPRINT: LPRINT : LPRINT" 


GOTO 3460 


3450 


LPRINT"SIGNED:" 


3451 
3452 




LPRINT: LPRINT" ADDRESS: " 




Program continues 



clare that this is your last (i.e., most recent) 
will, and sign and date the will in their pres- 
ence. The witnesses do not need to read the 
will, but they should know you, be estab- 
lished in the community, and be young 
enough to survive you. None of the witnes- 
ses should be mentioned in your will as ben- 
eficiaries. Have the witnesses sign the will 
and record their addresses in the presence 
of yourself and each other. This will allow 
them to bear witness to each other's signa- 
ture, if necessary. If their handwriting is il- 
legible, print their names and addresses di- 
rectly underneath the handwritten informa- 
tion. Although the program permits you to 
print as many copies as you desire, sign on- 
ly one and mark the others COPY. 

If your will is printed on more than one 
page, number each page in the top right 
hand corner and indicate how many pages 
the will runs, e.g., "page one of four pages." 
Initail each page, and have each witness ini- 
tial each page, next to the page number no- 
tation. Be sure that the last page shows 
part of the test of the will— not just the re- 
quired signatures. 




TRS-80 PROGRAMS ON CASSETTE 

CLOAD Magazine for your Model I or III! 



Golcta. Calif. — You can get 7 or X programs on cassette, each month, 
that CLOAD directly into your TRS-80 Model I or III! 

A subscriber, too engrossed in trying to save the world from invading 
aliens (March, 1981 issue) to give his name, stated. "I receive a 30 minute 
cassette by First Class Mail each month containing some of the best games 
and educational programs I have ever played. Some are even in machine 
language! "Another CLOAD subscriber, Claudine Cload. could now 
"tit the computer into her schedule" thanks to the utilities and occasional 
disk programs she received from CLOAD. She was writing about it to all 
of the people on her mailing list (November. 1979 issue). 
Get the news lirsthand. Get a subscription to CLOAD Maga/ine. 



The Fine Print: 

Overseas rates slightly higher — 

please write for them. 
Back issues available— ask for our list.* 
TRS-80 is a trademark of Tandy Corporation 
California residents add 6% to single copies 
and anthologies. Programs are for Level II 
I6K, Model III I6K, and occasionally for disks. 

*24 Level I back issues also available. 



PRICES 

I year subscription . 
6 month subscription 

Single copies 

Anthology-volume I 
Anthology-volume 2 

Mastercard/ Visa Welcome 



$42.00 
523.00 
$4.50 
$10.00 
$15.00 



by Clyde Cload. star reporter 



: — r L_ w M L. : Magazine 




Inc. P.O. Box 1448 Santa Barbara, CA 93102 ^502 (805) 962-6771 



©1981 
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"After completing your new will, 
destroy all previous wills. . . don't 
make any hand written corrections. 



Storage of Will 

Put the will in a place safe from loss, theft 
or fire which will be accessible after your 
death. Do not use your own safe deposit 
box unless you are certain your state allows 
someone else to enter it immediately after 
your death. 

Give your executor the following informa- 
tion in writing: 

• Location of your will and how to gain ac- 
cess to it 

• Burial and funeral instructions 

• Description of unusual situations in your 
will, if any, and explanation of the reasons 
behind them 

• Your mother's maiden name and your 
father's name 

After completing you new will, destroy all 
previous wills and their copies. Don't make 
any handwritten corrections to the will. The 
advantage of having this program is that 
you don't have to do that — if there is some- 
thing you wish to change, just run it through 
again, and have the new version witnessed 
and signed. ■ 



3453 
3454 
3460 
3465 



3470 
3480 
3500 
8999 
9000 

9010 

9020 
9025 
1000 
1001 
1002 
1003 
1003 
1004 
1004 
1005 

1006 
1007 



LPRINT" " 

LPRINT: LPRINT" " 

NEXT Z 

CLS: PRINT: PRINT: PRINT"DO YOU WISH TO PRINT AN ADDI 

TIONAL COPY OF THIS WILL?" : PRINT" IF SO, ADVANCE PA 

PER AND ENTER 'Y 1 . IF NOT, ENTER 'N'." 

INPUT A:IF LEFT$ (A, 1) ="Y" THEN 3060 

END 

FOR Z=l TO 40: LPRINT" ";:NEXT Z: RETURN 

END 

CLS: PRINT: PRINT" *** ENCLOSE INFORMATION IN QUOT 

ATION MARKS ***" 

PRINT" *** ENTER 'NONE' IF ANSWER IS NONE OR NO 

OTHERS ***" 

PRINT : PRINT : RETURN 

END 
U1=LEN(A) :U4=U1:U1=INT(U1/V)+2:A=A+" " 
FOR U2=V-1 TO V/2 STEP -1 

B=MID$(A,U2,1) :IF B=" " THEN 10030 ELSE NEXT 
U3=U3+1:B1(U3)=LEFT$(A,U2) :IF U3=Ul THEN 10050 
5 IF U4<=U2+1 THEN 10050 
A=RIGHT$(A,U4-U2+1) 
5 U4=U4-U2:GOTO 10010 
FOR U5=l TO U3:IF B1(U5)="" THEN 10060 ELSE LPRIN 

T B1(U5) :NEXT 
U3=0:FOR U5=l TO Ul :B1 (U5) ="" :NEXT:RETURN 
END 



COLOR COMPUTER OWNERS! 
CLOAD INC. ANNOUNCES 



CHROMASETTE MAGAZINE! 

A monthly magazine-on-cassette for your 
Extended BASIC Color TRS-80! ' 



Goleta California — With 
CHROMASSETTE 

Magazine, Color Com- 
puter owners can now enjoy 
the variety, economy, and 
easy entry of programs that 
CLOAD subscribers have 
enjoyed for 3 years. 

CHROMASETTE 

Magazine gets rid of the 

type-in-and-edit blues by CHROMASETTE Magazine in its Prime State 

putting a rainbow of ready-to-load programs on cassette, and sending 
them to you by First Class Mail each month. Educational, practical, 
utility, and game programs are delivered right to your mailbox. 




Put a rosy color in you and 
your computer's cheeks, 
stop reading these old 
cliches, and get a subscrip- 
tion to CHROMASETTE 
Magazine. 

Please write for Foreign Rates and 
other info. 



$45.00 year. $25.00 6 months. $5.00 
single issue, or send a Blank Check 
and your account balance. Visa and 
MasterCard also accepted. 



Chromasette Magazine RO. Box 1087 Santa Barbara, CA 93102 ^ 32 (805) 963-1066 



vSee List of Advertisers on page 322 
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^™e PROGRAM STORE 



NEW! 





STARCLASH 

By Stephen Walton from Hayden 

Two enemy empires battle for control of the 

galaxy in this 3 D simulation. You can play 

against the computer or a human opponent, 

but either way it's a battle to the end. 

A new star map is generated at the beginning 

of each game, and both side are provided 

with constantly updated intelligence in for 

Illation. What you don't get except for find 

ing out for yourself is information on your 

opponent's location, travel, and plans. 

16K tape.. .$16.95 



fmtWTMN 




By John Allen from Acorn 

TENPINS brings you all the thrills of champ 
ionship bowling. Up to four players partici 
pate, and the program automatically senses 
the skill of each. Beginners can simply pos 
ition the ball and "roll" it while more skilled 
players can vary the force, roll a curve, and 
cause it to spin as it heads for the pins. All 
this — plus 3-D graphics and sound effects 
- adds up to a realistic and thoroughly chal 
lenging bowling game. 

Protected tape. . . $14. 95 
Protected disk. . . $20.95 




Hrom Interpro 

An illustrated adventure for the TRS-80. It's 
said that "a picture is worth a thousand 
words," and in this program you'll see why. 
While still in the classic text type mold, the 
graphics give you a new perspective and aid 
your sense of direction. This saga of the sea 
contains a 150 word vocabulary and depicts 32 
graphic locations. 

Model I 48K disk. . .$29.95 

16K tape (Text only. No graphics) .. $14.95 




By Scott Adams from Adventure Int. 

The second part of this multilevel adventure 

is finally here. And if you thought the first 

episode was a challenge, wait 'til you see this 

one! 

In this new format you face all the devilment 

of the classic Scott Adams, but now the pro 

gram seems to sense if you are foundering 

around and helps get you moving with a 

ferocious hurricane! Not for beginning ad 

venturers. 

Tape. ..$14. 95 Disk. .. $20. 95 




STRATEGY PACK I 

Two computer games for one low price! In 

eludes : 

Wall Street Challenge — Try your hand 
at the stock market. Choose from an 
array of stocks from blue chip to 
wild speculation. Realistic! 

Roman Checkers An ancient game of 
strategy similar to "Othello". Play 
against a friend or the computer. 
oth on 16K tape... $19. 95 

STRATEGY PACK II 

Three games designed for challenge. 

Includes : 

Metropolis - A whole city is being 

developed. Use your skills at real 
estate and management to build a 
fortune. Up to eight players. 

Mindmaster Match wits for points, 
speed or logic as you try to un 
scramble a combination of letters. 

Wordmaster Multiple players try to find 
the secret words. 3 difficulty levels. 

All 3 on tape for only $19.95 




By Richard Wilkes from Acorn 
Using your Superscript modified Scripsit 
Word Processor and a compatible printer, you 
can now underline, boldface, insert text dur- 
ing printout, slash zeros, set type pitch, 
subscript and, of course, superscript! You 
can even read your directory and kill files 
without ever leaving Scripsit . 

Superscript comes with drivers for popular 
serial and parallel printers (now including 
Centronics 737 and RS Daisy II), and easy in- 
structions for patching to your Scripsit pro- 
gram (does not include Scripsit) . 

Model I 32K disk.. .$29.95 



In July and August, The heat of Washington's 
summer can drive you MAD! It worked on us, 
and you can take advantage of our madness 
with these offers designed to keep you inside 
and cool with your computer. 



$10-16 Value- FREE! 

With any purchase of $30 or more, we'll send 

your choice of one of the following programs' 

FREE! 



i U HM£R 



Basic Bartender 



By William Denman from Med Systems 
Liberation from the chore of mixing libations! 
This program contains complete information 
on mixing and servinr 101 different drinks, 
and you can even add your own "House Spec 
ials." Drink recipes may be requested by 
name or a menu of subcategories may be re- 
quested. Not only useful, this program is 
very instructive in how to program a coded 
database. 

Tape. ..$9. 95 FREE WITH $30 PURCHASE! 



Pigskin 




DragonQuest 



By Laurence, Sothen & Gavenda from Acorn 
Play football against a friend or your com 
puter with PIGSKIN. Featuring a graphic dis 
play of the field, the ball and scoreboard 
statistics, you choose from eleven offensive 
plays and seven defenses. The 30 second 
clock and a variety of penalty calls keep you 
on your toes. If you play against your 
TRS 80, there are five levels of difficulty. 
Includes "save game" feature. 

Tape. .$14. 95 - FREE WITH $30 PURCHASE! 



By Charles Forsythe from Programmers Guild 
It's a desperate race as you search for 
SMAEGOR, who has kidnapped the Princess 
and holds her in a distant and unknown place. 
In aquest for honor and glory, you must 
search the land for tools needed in the ulti- 
mate confrontation. Clues abound, but where 
is the Princess? In this exciting, machine 
language adventure you may never find her 
but you'll enjoy trying! 

Tape.. $15. 95 FREE WITH $30 PURCHASE! 



Visit Our Baltimore, MD Store: W.Bell Plaza- 6600 Security Blvd 



m TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 363-9797 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept.E 08 Box 9609 
Washington, D.C. 20016 



^17 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 
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Get the most from your micro with 
software and accessories from one of 
the world's largest selections. 



The 

Program 
Store 



CALL TOLL FREE 

800424-2738 




DUEL 

«N» 
DROIDS 



By Leo Christopherson from Acorn 
Your 'droid has already learned NIM, so now 
it's time to teach it how to wield a laser sword! 
Starting out as a lowly clown, you teach it 
how to use a laser sword by controlling its 
movements advance, attack, even retreat if 
necessary. After training it to be a "Grand 
Master," you enter the tournament against 
the program's skilled 'droid. Revel in the fan 
fares of the victorious or hear the funeral 
dirges of the defeated! Entertainment for all 
ages. 

Protected tape. ..$14.95 
Protected disk. ..$20.95 




DEATH 
MAZE 

5000 



By Hogue £ Konyu from Big Five 
Terrific sound, graphics and unique chal 
lenges mark this new space game a winner! 
While fighting off the alien convoys each 

more skillful than the last -- you must keep 
track of your rocket fuel or risk explosion. 
Finally your space station appears. Can you 
dock immediately, or is the station overrun by 
aliens? Find out by ordering Cosmic Fighter 
today. 

16K tape $14.95 (Mod I) $15.95 (Mod III) 
For 32K disk $17.95 




ATTACK 
FORCE I 



from Med Systems 

A new breed of adventuring! Venture 
through a graphically represented 3 D maze, 
with halls that could dead end or recede to 
infinity. Step through the doors or drop into 
the pits. Will you encounter monsters and 
mayhem, or will you be treated to useful ob 
jects and information? Will you ever get out 
alive ? 

You may never find your way out of Death 
maze 5000, but you'll keep trying! 

16K TRS-80, 32K APPLE II. ..$12. 95 



By Hogue 6 Konyu from Big Five 
Unlike the usual space "shoot em ups," At 
tack Force lets you control both speed and 
direction as you maneuver all over the screen 
in search of the alien Ramships and Flap 
ships. Enemy ships chase you everywhere, 
and the Flagships' lasers can fire in any dir 
ection! The Ramships can even impersonate 
your spacecraft, so don't look away even for 
an instant. Machine language action with 
sound. 

16K tape $14. 95 (Mod I) $15. 95 (Mod III) 
For 32K disk . . . $17. 95 




INVADERS 
FROM 
SPACE 



By Carl Miller from Acorn 

A fast machine language approach to this 
classic (and addictive) space game. The 
aliens drop bombs and move from side to side 
trying to overrun your bases. You choose the 
speed, enemy bomb frequency and accuracy, 
your number of shots on screen and bases. 
Unlike most such games, you can move your 
base and simultaneously fire at the invaders. 
Full sound effects add even more excitement 
to the incredible action of INVADERS FROM 
SPACE. Fun for all ages and skill levels. 

Protected tape. . .$14.95 
Protected disk. . .$20.95 




SUPER 
NOVA 



By Hogue £ Konyu from Big Five 
Asteroids surround your ship. You must shoot 
the asteroids, as well as any of the five types 
of alien spaceships, use your thrusters for 
full movement and rotation of your ship -- if 
you are overwhelmed, you can even jump to 
hyperspace! Written in fast machine code with 
superb graphics and sound, this game is 
GREAT! 

16K tape $14.95 (Mod I) $15.95 (Mod III) 
For 32K disk $17.95 



LUNAR LANDE R 

By Wall 6 Moncrief from Adventure Int. 
Calling this program simply "LUNAR LAND 
ER" is like calling the space shuttle "air- 
plane" they both offer so much more than 
the names imply! 



You get a vast lunar landscape, graphically 
depicted in both long range and close up, 
with many choices for landing sites. Choose a 
more difficult site and get more points if 

you can land successfully. You have complete 
control of your LEM via main engines and 
small side thrusters, and a successful landing 
is heralded with a flag raising ceremony. 
Great graphics and sound add to the realtime 
challenge and fun. 

16K tape. ..$14.95 




BASKET 
BALL 



By John Allen from Acorn 
You have to be fast to outscore your oppon 
ent as you play one-on-one basketball against 
a friend or your computer. Steal the ball, 
duck around your opponent and slant toward 
the basket for a lay up! The graphics are 
based on a 3 dimensional depiction of a bas- 
ketball court, and ball dribbling sounds add 
to the realism. It's all there but the cheers -- 
so real you'll wonder how the ball keeps from 
coming through the screen of your TRS-80! 

Protected Tape. .. $14. 95 
Protected Disk. . .$20.95 

DISASSEMBLER 

By Roy Soltoff from Misosys & Acorn 
A two- pass disassembler for TRS-80 that con- 
verts machine code to Z 80 assembly language 
listings. DISASSEMBLER produces symbolic 
labels with output to video, printer or tape. 
Radio Shack's Editor /Assembler will read and 
load the tapes for easy modification and re 
assembly. Extend the capabilities of 
Editor/Assembler with this utility. On tape for 
two different memory locations. 

$14.95 
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APPLICATION 



Some ham software. 



Morse Resource Part I 



Allan S. Joffe W3KBM 
1005 Twining Road 
Dresner, PA 19025 



As a ham radio operator, I often use my 
TRS-80 to help me transmit Morse 
code. The programs presented may be read- 
ily changed to suit your special needs. Por- 
tions of one program may also be combined 
with ideas from another to produce soft- 
ware for specialized applications. 

Morse Code 

The Morse code consists of groupings of 
signals of two basic durations. A dot is the 
basic interval of time and a dash is three 
times the length of a dot. Transmitted in 
groups, these time intervals make up the al- 
phabet, numerals and punctuation. 

We use two variables to transmit Morse 
code: a speed variable, determining how 
fast we send our code, and a vocabulary 
variable, determining how many characters 
we need to support. The speed variable is 
open. I prefer to stay at a transmitted speed 
of about 15 words per minute(wpm). If I drop 
below this speed, I still transmit each char- 
acter at the same rate and the wpm count 
drops by the amount of time left between 
words. This makes for uniform ear contact 
at any speed. 

The computer will control the relay (your 
transmitter or code oscillator). The exam- 
ples show the use of the cassette control re- 
lay as output port control. For extended use 
you should build or buy a control interface 
and save your cassette relay for its intend- 
ed use. 

Common Threads 

These programs make liberal use of 
string functions. ASCII value representa- 



tions are used for alphanumeric characters, 
punctuation and a few control functions. 

A dot is represented by an S (short unit 
time). A dash is represented by an L (long 
unit time). The interval between characters 
is represented by an E. 

Thus, the character B would look like 
"LSSSE" and the question mark would look 



Character 


Program Form 


ASCII Value 


A 


SLE 


65 


B 


LSSSE 


66 


c 


LSLSE 


67 


D 


LSSE 


68 


E 


SE 


69 


F 


SSLSE 


70 


G 


LLSE 


71 


H 


SSSSE 


72 


I 


SSE 


73 


J 


SLLLE 


74 


K 


LSLE 


75 


L 


SLSSE 


76 


M 


LLE 


77 


N 


LSE 


78 





LLLE 


79 


P 


SLLSE 


80 


Q 


LLSLE 


81 


R 


SLSE 


82 


s 


SSSE 


83 


T 


LE 


84 


U 


SSLE 


85 


V 


SSSLE 


86 


w 


SLLE 


87 


X 


LSSLE 


88 


Y 


LSLLE 


89 


z 


LLSSE 


90 





LLLLLE 


48 


1 


SLLLLE 


49 


2 


SSLLLE 


50 


3 


SSSLLE 


51 


4 


SSSSLE 


52 


5 


SSSSSE 


53 


6 


LSSSSE 


54 


7 


LLSSSE 


55 


8 


LLLSSE 


56 


9 


LLLLSE 


57 


? 


SSLLSSE 


63 




LLSSLLE 


44 




SLSLSLE 


46 


/ 


LSSLSE 


47 


Morse Character Directory Chart 



like "SSLLSSE." Every character is a combi- 
nation of S (dot) and L (dash) plus a final E 
as the spacing interval generator. They in- 
clude the open and close quote marks be- 
cause they are string representations. 

We will also use the INKEY$, a buffer con- 
cept, and various common functions of the 
Basic interpreter. 

Line Analysis 

Line 5 clears enough string space to ac- 
commodate the program. Line 10 allows 
you to input directions and A$, which be- 
comes your message string as you type. 
Lines 15 and 20 are program mechanics 
which, along with line 25, allow the CODES 
to be processed. 

Line 30 works as follows: There are 40 
If. . .Then statements which represent the 
26 letters of the alphabet, 10 numerals and 
four punctuation marks. Line 30 separates 
these into two groups. The first group is the 
alphabet, as all ASCII numerical represen- 
tations of the alphabet are greater than 64. 
The second group is the numeral and punc- 
tuation group, all of whose ASCII values are 
less than 64. This allows a two-tier search of 
the If... Then statement list which gives 
the program a bit more running speed. 

Line 35 starts the character directory, 
with 26 lines that represent all the letters of 
the alphabet. Line 300 is the start of the 
completion of the character list. It contains 
numerals zero through nine and the four 
punctuation marks supported by the pro- 
gram. Lines 1000 through 1040 perform the 
dissection of CODES so that each element 
of CODES can be operative via the group of 
subroutines that follow the end statement 
in line 1050. 

Line 5000 starts out with TM = 0. This 
statement is needed as a remedy for the fol- 
lowing program anomaly. If the very first 
character that you type into A$ has an S as 
the first element in CODES, then the S be- 
comes elongated in time so that it sounds 
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PLUS 




Model II 64K $3300 



uuunu 



LJU 1 II II 1 1 ) I I L=J 



□ □Dauuuuuu| aoi | aB 

LI LJ _J U U LJ l_l LJK33 " ™ 5 " " 



Pocket Computer $189 




Color Computer 4K $31 
W/16K Ext. Basic $489 




32K Exp. Int. $362 









iRii^^ 1 ^^^^™^* 52 ^ 2 — ^ s - 




I 
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I 






^ U '■■ u 

Model III 16K $859 



Here are just a few of our fine offers . . . 
call toll-free for full information. 



COMPUTERS 

Model II 64K 

Model III 4K LEV I 

Model III 16K 

Model III 32K 
+ Model III 32K 

Model III 48K 
+ Model III 48K 

Model III 32K 

2Disc&RS232c 

Color Computer 4K 

Color Computer 16K 432.50 
+ Color Computer 16K 366.50 

Color Computer 16K 

w/extended basic 

Pocket Computer 

VIDEOTEX 

APPLE 48K only 

ATARI 800 32K 



$3300 

599 

859 

981.50 

915.50 

1104 

972 

2100 
310 



489 
199 
310 
1279 
789 



+ Computer Plus New Equipment. 
180 Day Extended Warranty 



Epson MX80 FT 

plus real back-up warrantees — 



PERIPHERALS 

Expansion Interface OK $249 

Expansion Interface 16K 359 

+ Expansion Interface 16K 305.50 

Expansion Interface 32K 469.95 

+ Expansion Interface 32K 362 
16K RAM N.E.C. 200 N.S. chips 39 

MODEMS 

Lynx Direct Connect 219 

COMM 80 Interface 159.95 

Chatterbox Interface 239 

Telephone Interface II 169 

R.S. Modem I D.C. 130 

Atari 830 Modem 159 

Atari 850 Interface 183 

PRINTERS 

Line Printer IV 849 

Daisy Wheel II 1695 

Line Printer VI 999 

Epson MX80 499 

Line Printer VII 315 

Line Printer V 1610 

599 



Atari 825 

Pocket Computer Printer 

Centronics 737 
DISK DRIVES 

R.S. Model III 1ST-Drive 

TEAC40TrackMI 

R.S. 1 Drive Exp Mil 

R.S. 2 Drive Exp Mil 

R.S. 3 Drive Exp Mil 

Seimans8" Mil 

Atari 810 Disk 
SOFTWARE 

R.S. Software 10% off list 

Atari Software 10% off list 

Newdos + (40) track Ml 

Newdos80MIII 

ST80III 
ETC. 

Verbatum 5" Double Density 32 

Verbatum8"DataLife 49.95 

Ctr-80A recorder 52 

C.C Joysticks 22 



130 
737 

712 
319 
999 
1518 
2040 
799 
499 



88 
149 
149 



Factory warrantees on Apple and Atari equipment. Other 
equipment carries manufacturer's warranty or Computer 
Plus 180 day extended warranty. Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty. 



call TOLL FREE 1-800-343-8124 



com 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Not responsible for typographical errors. 
TRS-80 is a registered trademark of Tandy Corp. 




Dept. D 

245A Great Road 

Littleton, MA 01460 

617-486-3193 



free catalog 



►-See List ol Advertisers on page 322 
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"The Morse Code consists of groupings of signals. . . transmitted in groups, 
these time intervals make up the alphabet, numerals and punctuation." 



like a dash instead of a dot. TM =0 takes 
care of this problem. The next statement in 
this line, OUT 255,4, turns the cassette relay 
on. We then have delay loop TM which 
holds it on for the desired length of our dot. 
OUT 255,0, opens the cassette relay which 
completes the dot duration. Then we have 
the required return which allows the next 
element in the particular CODES being dis- 
sected to be processed. 

Line 6000 is the subroutine that deter- 
mines the length of our dash and except 
that it does not need the TM =0 statement, 
operates in a fashion similar to line 5000. 
Line 7000 processes the length of time be- 
tween characters. It is a simple delay loop 
with no relay operation function. 

Limitations 

Two limitations in this program are: When 
the Basic interpreter hits a comma in a 
string, it displays the error message, Extras 
Ignored. When you type your message, type 
a quotation mark as the first character. This 



will eliminate the error message. 

The TRS-80 string length limit is 255 char- 
acters. If you try to input more characters 
the computer refuses to accept them. A 
concatenated string will violate the charac- 
ter limit. 

This is not a big hassle since CW trans- 
missions on the ham bands abound in ab- 
breviations. 

A Program Bonus 

It would be nice to be able to enter one 
special character which would send a mes- 
sage commonly used, such as a general call 
to see if someone wants to talk. In ham 
Morse terms it might look like this: CQ CQ 
CQ DE W3KBM W3KBM CQ CQ CQ CQ DE 
W3KBM W3KBM W3KBM K, which tells the 
listening world that W3KBM is looking for 
someone to talk to. 

The K at the end of the message says that 
W3KBM is through with his call for a con- 
tact and is now tuning across the band for 
a response. 



5 CLEAR 300 

10 CLS: INPUT'ENTER MESSAGE";A$ 

15 J = LEN(A$) 

20X1 = X1+1 

25 CODES = MID$(A$,X1,1) 

30 IF ASC(CODE$K64 GOTO 255 

32 REM THE NEXT SERIES OF 26 LINES ENTERS THE ALPHABET, ONLY A 

FEW OF THE LINES WILL BE SHOWN AS THEY FOLLOW A DEFINITE PATTERN. 
35 IF CODES = "A" THEN CODES = "SLE" 
40 IF CODES = "B" THEN CODES = "LSSSE" 
45 IF CODES = "C" THEN CODES = "LSLSE" 
50 IF CODES = "D" THEN CODES = "LSSE" 
55 IF CODES = "E" THEN CODES = "SE" 



After the 26 letters of the alphabet are so entered, we enter numerals and punctuation starting 
with line 255 



255 IF CODES = "0" THEN CODES = "LLLLLE" 
260 IF CODES = "1" THEN CODE$"SLLLLE" 
265 IF CODES = "2" THEN CODES = "SSLLLE" 



. we complete the numerals and then insert our four punctuation marks starting with line 300 

300 IF CODES = "."THEN CODES = "SLSLSLE" 

305 IF CODES = "," THEN CODES = "LLSSLLE" 

310 IF CODES = "?" THEN CODES = "SSLLSSE" 

315 IF CODES = "/"THEN CODES = "LSSLSE" 

320 REM Now we come to the part of the program that turns our entries into a form that allows control of the 
cassette relay so that it may be used to key a code oscillator if you so desire. Remember the caution about 
using this relay for controlling loads in excess of its normal load, namely, the cassette motor! 

1000 LN = LEN(CODES) 

1010 FOR X = 1 TO LN 

1020 IF MID$(CODE$,X,1) = "S" GOSUB 5000 ELSE IF MID$(CODES,X,1) = "L" GOSUB 6000 ELSE IF MIDS 
(CODE$,X,1) = "E" GOSUB 7000 

1030 NEXT X 

1035 IF X1 = J THEN X 1 = 0: GOTO 10 

1040 IF X1< J THEN GOTO 20 

1050 END 

5000 TM =0: OUT 255,4:FOR TM = 1 TO 20:NEXT TM: OUT 255,0:RETURN 
6000 OUT 255,4:FOR TM = 1 TO 40:NEXT TM: OUT 255,0:RETURN 
7000 FOR TM = 1 TO 20:NEXT TM:RETURN 



Program Listing 1. 



We can do this in our program by insert- 
ing line 12 into Program Listing 1. 

12 IFA$ = "#"GOSUB8000 

Now insert the subroutine in line 8000. 

8000 AS = "CQ CQ CQ DE W3KKBM 

W3KBM W3KBM K": 

Return 

Now when you type in # when the pro- 
gram asks you to type your message, it will 
send the general call message. You are lim- 
ited only by the number of symbols on the 
keyboard that are not used as part of the 
character directory. 

Speeding It Up 

Program Listing 2 has the same limita- 
tions and advantages as Listing 1. But its 
approach is different, not using the large 
list of If. . .Then statements. This makes 
the program run faster. 

In addition to a Clear statement, we also 
use a DIM statement when the code charac- 
ter directory is entered. In every case the 
subscript is the ASCII value of the character 
(see Table 1). 

The next program is different from the 
first two. It uses the INKEYS function to 
transmit a character as soon as it is en- 
tered. This program handles the comma 
problem without any special treatment and 
removes the string limitation of 255 
characters. 

It is an excellent program for teaching 
Morse code. If you key a code practice oscil- 
lator, you see and hear what you send in 
real time. 

Program 3 

INKEYS continuously scans the charac- 
ter list. When a key is pressed, that charac- 
ter is printed on the screen and passed on 
to the program lines starting with line 830. 
The character directory is entered using a 
series of If . . .Then statements. Line 20 is 
used if you want to erase the screen; merely 
Enter # and the screen will be clean except 
for the heading Type Message. A small por- 
table radio placed near the computer while 
the program is running will let you listen to 
the character list being scanned. 

It takes a certain rhythm on the keyboard 
to keep a continuous flow of code going. 
Enter any character and when you hear it 
starting to come out, hit the next key. You 
do not have to wait for the current character 
to be completed as the program acts like an 
automatic key with self-completing charac- 
ters. With some typing skill and practice 
you can send very nice code. You have full 
control of between-word spacing, while the 
program does the rest.B 
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10 CLEAR 300:CLS 

15 DIM A$(100) :REM CHARACTER TABLE FOLLOWS 

20 A$(65)="SLE" 

25 A$(66)="LSSSE" 

30 A$(67)="LSLSE" 

40 A$(68)="LSSE" 

The entire character directory is entered in this 
fashion. Just follow the pattern as shown 



500 INPUT "TYPE IN MESSAGE ";A$ 

510 LN = LEN(A$) 

520 FOR J = 1 TO LN 

530 Z$ = MID$(A$,J,1) 

540 X = ASC(Z$) 

550 FOR R = 1 TO LEN(A$(X)) 

660 IF MID$(A$(X),R,1) = "S" GOSUB 2000 

670 IF MID$(A$(X),R,1) = 

680 IF MID$(A$(X),R,1) = 

690 NEXT R,J 

700 GOTO 500 

710 END 



"L" GOSUB 3000 
t" GOSUB 4000 



2000 TM=0-OUT 255,4: FOR TM = 1 TO 20:NEXT TM:OUT 255,0:RETURN 
3000 OUT 255,4:FOR TM = 1 TO 40:NEXT TM:0UT 255,0:RETURN 
4000 FOR TM = 1 TO 20: NEXT TM: RETURN 

Program Listing 2. 



5 CLS: PRINT '*IYPE MESSAGE" 
10 A$ = INKEY$: PRINT A$ ; 



20 IF A$ 
30 IF A$ 
35 IF A$ 
40 IF A$ 
45 IF A$ 
50 IF A$ 
60 „ 



"#' 
"A" 



GOTO 5 

THEN A$="SLE" 
"B" THEN A$="LSSSE" 
"C" THEN A$="LSLSE" 

THEN A$="LSSE" 



= "D 

= "E" THEN A$="SE" 



"S" GOSUB 1010 
"L" GOSUB 1030 



Enter rest of character directory following the 
pattern shown. 

830 LN = LEN(A$) 

850 FOR X = 1 TO LN 

870 CODE$ = MID$(A$,X,1) 

890 IF C0DE$ 

910 IF CODE$ 

930 IF CODE$ = "E" GOSUB 1050 

950 NEXT X 

970 GOTO 10 

990 END 

1010 OUT 255,4: FOR TM = 1 TO 20:NEXT TM:0UT 255,0:RETURN 
1030 OUT 255,4: FOR TM = 1 TO 40:NEXT TM:OUT 255,0:RETURN 
1050 FOR TM = 1 TO 20: NEXT TM: RETURN 

Program Listing 3. 
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String 
Packer 

FOR THE TRS 80 
MODEL I OR III 

• Draw a picture; graphics, 
ASCH II Characters or Mixed, 
with String Packer's Screen 
Drawing Routine. 

• Issue the 'Pack' command and 
the screen is packed into a 
string, ready to merge with 
your programs. 

• String Packer also packs 
machine language sub- 
routines — no hassle. 

• String Packer can edit the 
packed strings that it creates. 

500 Band Cassette — $ 9.95 

Single Density Disk — $12.95 

New Ideas in Software Service 

from 

The Maine Software Library 

P.O. Box 197 
Standish, ME 04084 
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REVIEW 



Plug-in, Turn-on, Connect! 



The Microconnection 



The Microconnection 
The Micro Peripheral Corp. 
Mercer Island, WA 
$250 

Fred Blechman 
7217 Bernadine Ave. 
Canoga Park, CA 91307 



If you have a Radio Shack TRS-80 Model I, 
II or III and don't have a modem yet, you 
don't know what you're missing! 

The term "modem" is a contraction of 
"modulate-demodulate", which is electron- 
ic jargon for (loosely defined) talking and 
listening. Unlike conventional radio trans- 
missions, however, modem signals are not 
voice or music signals impressed on carrier 
frequency. Modems communicate over the 
telephone lines, using frequency-shifting to 
transmit and receive binary digits (bits) in 
the standardized ASCII code. 

Various transmission standards exist, 
but the so-called Bell System 103 standard 
is the most generally used, with sending fre- 
quencies of 1070 Hz and 1270 Hz, and re- 
ceiving frequencies of 2025 Hz and 2225 Hz. 
The transmission rate is expressed in baud 
(which can be thought of as bits-per- 
second). The most common rate is 300 
baud, which translates to about 30 charac- 
ters per second for serial mode. 

Modems are the circuitry that codes and 
decodes the signals for use with the phone 
line. You also need a source of power for the 
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modem, a software program to allow the 
computer to communicate in ASCII, and an 
interface from computer-to-modem and 
modem-to-phone-line. If you use Radio 
Shack components, you would need the fol- 
lowing: 26-1171 Telephone Interface II 
Acoustic Modem, 26-1 146 Communications 
Software, 26-1145 RS-232C Interface Board 
and the 26-1140 Expansion Interface. This 
amounts to about $600! 

The Microconnection 

When I became aware of this bits-and- 
pieces approach to adding modem capabil- 
ity to a TRS-80, I decide to wait until some 
enterprising people would find a way to put 
this all into one package. Well, Radio Shack 




Micro Peripheral's Microconnection 



has done it with their 26-5000 TRS-80 
Videotex Terminal which costs about $400. 
The Videotex Terminal includes keyboard, 
modem, built-in software and 4K of mem- 
ory. It attaches to the antenna terminals of 
a color or black and white television set, 
and plugs into the phone line. However, it is 
not a computer. 

Another approach, far less expensive and 
more versatile if you already have a Model I, 
II or III TRS-80, isthe Microconnection, from 
Microperipheral Corp. This modem is about 
$250. 

It plugs directly into the TRS-80 (even a 
Level I 4K!), the phone line and the 1 17 VAC 
line, and converts your TRS-80 into a ter- 
minal capable of accessing the expanding 
world of telecommunications. An RS-232 
output socket built into the Microconnec- 
tion allows you to run your serial printer for 
permanent copy of your communications— 
both incoming and outgoing. It's like having 
your own teletypewriter! 

The Microconnection is directly coupled 
to the phone line, rather than acoustically, 
so you have silent transmissions with in- 
creased line sensitivity and reduction in 
transmission errors. A big plus is that the 
Model I Microconnection plugs directly on- 
to the card-edge at the back of the keyboard 
unit, so you don't need an expansion inter- 
face or RS-232C serial interface board! Six 
screw-terminals on the back of the Micro- 
connection allow you to couple the modem 
to ham radio equipment, a tape recorder for 
ASCII communication or a taped ASCII 
recording. 

Making the Connection 

I got my Microconnection on a Friday, 
and spent part of the weekend reading the 



''Seeing the screen "talking" to me 

from a computer at the other end 

of a long-distance phone line was amazing." 



manual and trying to work up the courage to 
hook it up. Although there are no modifi- 
cations required to the TRS-80, I was hesi- 
tant about connecting to the phone line and 
the keyboard unit. Although the Microcon- 
nection is FCC approved, and comes with a 
standard modular plug, I could envision my 
confusion causing phone problems. And 
confused I was! Although the documenta- 
tion was good, and even had photos to 
show how the unit is installed, it didn't real- 
ly explain what was happening. No sche- 
matic or theory of operation is included, 
and I had learned to be careful about 
mistreating my '80. I was uncomfortable 
about connecting things without having 
any idea what I was doing. 

In addition to my concern was that I al- 
ready had two other peripherals attached 
to the TRS-80 keyboard slot— an Exatron 



"The Microconnection 
is directly coupled 
to the phone line, 

rather than 

acoustically, so you 

have silent transmissions 

with increased line 

sensitivity. 



Stringy Floppy tape unit and a Radio Shack 
Printer Interface Cable. How many things 
could I hang on the keyboard unit? 

After a couple of hours of reading the 
documentation, I took a deep breath and 
went to it. 

I decided to remove the printer cable and 
Stringy Floppy from the keyboard, just to be 
sure that nothing would affect operation of 
the Microconnection. I turned the computer 
off, and pushed the Microconnection 40-pin 
card edge connector (at the end of a 12-inch 
ribbon cable) onto the card edge at the rear 
of the keyboard unit. (If I had an expansion 
interface, I would have used the screen 
printer card edge.) No problem. 

Next, I plugged in the transformer that 
drops 117 VAC to 12 VAC as input to the Mi- 
croconnection's built-in power supply. A 
red LED on the top of the Microconnection 
lights to tell you that the power is on. 
Remember to plug in the transformer before 
the software is loaded or the program will 

sSee List ol Advertisers on page 322 



either not work or crash to Memory Size? 

Connecting to the phone line was easy. 
The Microconnection comes with a modu- 
lar phone plug at the end of a six-foot 
telephone cord. All I needed was a modular 
duplex adapter (Radio Shack 279-357 or 
equivalent). This allowed me to connect 
both the Microconnection and the tele- 
phonetothewall modular phone jack. If you 
have the older four-prong telephone plugs 
and jacks, various outlets sell adapters. 
There are two pushbuttons on the front of 
the Microconnection. Make sure the left 
one is in the voice position or your phone 
line will be affected. 

The Software 

After everything is connected, turn on the 
computer and load the cassette software 
terminal program, S80. I encountered a 
problem at this point and after several un- 
successful tries, I finally made a good load 
(and a backup copy) using a marvelous utili- 
ty tape called Nuload by Marigold Associ- 
ates. The screen identified the program and 
asked, after a short delay, for an input of F 
for full duplex or H for half duplex. I typed F 
and the screen went blank, with only the 
cursor in the upper left hand corner. 

Following the documentation, I tested 
the Microconnection and software by dis- 
connecting the duplex plug from the wall 
jack. The phone and Microconnection were 
connected together, but not to the phone 
line. Next, I put the right hand duplex/ 
simplex switch in the simplex mode and put 
the voice/data switch in the data position. 
The carrier LED flashed on and then off. As I 
pressed the keyboard keys, the letters or 
numbers appeared on the screen and the 
carrier LED lit up. Eureka! It worked! 

Using the Microconnection 

Now what? I couldn't try to get on the na- 
tional CompuServe network, since my mem- 
bership had not come through yet. I 
checked a list of 118 public bulletin boards 
provided by Microperipheral. Since I had a 
TRS-80 I looked for Forum-80, lnfo-80 or 
Comm-80 bulletin boards, since no one had 
told me I could contact any bulletin board- 
even Apple, PET or Heath! I plugged the 
modular duplex adapter back into the 
phone jack, put the voice/data switch on 
voice and the duplex/simplex switch in 
duplex (for two-way modem communica- 
tion). Much as I hated to make a few long- 
distance calls to check out the operation of 
the Microconnection, I didn't know any bet- 
ter—so I made three of them— Seattle, Ful- 
lerton (CA) and St. Louis. 

Seeing the screen "talking" to me from a 
computer at the other end of a long-dis- 
tance phone line was amazing. ■ 
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8-inch Double- Density, $43.95 
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Checks require 3 tweaks to clear VISA. 
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GENERAL 



More on the use of a macro 

and manufacturer-independent applications programs. 



A Macro Processor 
For Basic— Part II 



J. Alan Olmstead 

J. Olmstead Financial Engineering Systems 
3843 West Street, Moritz Lane 
Phoenix, AZ 85023 



Last month's article described a macro- 
processor which, in a sense, makes the 
computer self-programming, and accord- 
ingly, more cost-effective. Those using the 
JOFES macroprocessor have discovered 
that creating 1,000 lines of error-free Basic 
programming per day is normal. 

The macroprocessor is only an incidental 
part of a much larger approach to computer 
optimization. Without the logical function 
libraries drawn upon by means of macro 
calls, you can do nothing with the proces- 
sor. The libraries provide the real value be- 
cause they deliver the final product. 

Programmers should be able to ignore 
the structure of Basic as it has been defined 
by any manufacturer, and use macro library 
modules to perform logical programming 
functions which remain the same on com- 
puters of all makes and models. Whenever a 
new computer model is selected, macro li- 
braries are expanded to include code spe- 



cific to the native (and, therefore, most effi- 
cient) mode of that particular computer. 
When high-level application programs are 
respecialized through these expanded li- 
braries, they come out fully rewritten and 
running perfectly the first time. 

Logical Programming 

The concept of logical programming orig- 
inates in the logical/physical input and out- 
put control utilities provided by manufac- 
turers of large-scale computers as program- 
ming aids to their customers. The logical 
program module is used to define the con- 
cept of the action desired, and the physical 
program module carries out that idea 
through specific commands for that partic- 
ular model. 

Proceeding from the logical/physical divi- 
sion of labor, one arrives at a concept of 
programming which avoids any form of Ba- 
sic command which is peculiar to any com- 
puter manufacturer or individual model 
within a manufacturer's line. For example, 
the Radio Shack Model I command for a 
substring search is: A = INSTR(A$,"SAM"). 
The value "SAM" is compared against each 
incremental three-byte substring of A$, be- 
ginning with position one and ending at 



ABS 




GOTO 


STR$ 


ASC 




IF. ..THEN 


VAL 


CHRS 




INT 


Integer/real numerics to 
99,999,999.99 


DATA 




LEN 




DIM 




MIDS 


String variables to 
256 bytes 


END 




READ 




FOR. . 


NEXT... STEP 


REM and 


Variable names to 
six positions including 


GOSUB-RETURN 


RESTORE 


A-Z, 0-9, $©#%&! 


Math and relational operators 


are the same as in interpreter Basic; all other commands not listed here are called 


from logical function libraries 








Table 1. 


List of Recommended Basic Command Words 



LEN(A$) - 2. If "SAM" is found anywhere in 
A$, the variable A contains the position 
number in A$ corresponding to the S in 
"SAM". 

This function does not exist at all in the 
Northstar Basic, for example, and it exists 
only in an altered fbrm in other makes and 
models. If an application program written 
for the TRS-80 Model I contained the INSTR 
function at a physical level, that is, actually 
using the INSTR command peculiar to Ra- 
dio Shack, that program could not be recast 
for running on other makes and models of 
computers, unless it were manually repro- 
grammed. 

To make the applications program con- 
version free, the substring search function 
should be defined as a logical function, to 
be performed by a call to a macro library 
module: 

1000 ' MACRO = SERCHX,A,A$,B$,TRS801 
1010 'ENDCALL 

Interpretation of this macro call reads: "Be- 
ginning at the position number in A, search 
the string A$ for the first incidence of the 
substring B$. If found, place the beginning 
location number in X, otherwise set X to 
zero and return to the user. Generate object 
code for the TRS-80 Model I." 

Because the code applies only to the ma- 
croprocessor, which is computer-indepen- 
dent, this application coding will not 
change in future uses except for the substi- 
tution of a different object computer name. 

The logical function library module 
would, by further example, provide alter- 
nate forms, depending upon what object 
computers had been included in the original 
design and subsequent extensions. 

1 'MACRO = SERCH 

2 •BOOL((&&05) = (TRS801)) 

3 &&01 = INSTR(&&02,&&03,&&04) 
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"The macroprocessor is only 

an incidental part of a much larger 

approach to computer optimization." 



4 'ENDBOOL 

5 'BOOL()&&05) = (IBM5110)) 

6 &&01 = IDX(STR(&&03,&&02,LEN(&&03) - &&02 + 1), 
&&04) 

7 IF&&01=0GOTO10 

8 &&01 = &&01 + &&02 - 1 

9 'ENDBOOL 

10 RETURN 

11 'ENDMAC 

In the example, the macro module 
"SERCH" will provide accurate code for two 
quite different computers, because the 
'BOOL tests exclude coding based upon the 
object computer model name. The applica- 
tions programs which call this macro mod- 
ule are never affected by a change in the 
name of the object computer. 



Avoiding Errors 

In addition to the INSTR function, there 
are several inherently locked-in features in 
TRS-80 Model I code. The most troublesome 
is the If. . .Then. . .Else compound com- 
mand, with the conflicting interpretation of 
an implied Else where it is not expressly 
coded. Furthermore, the Else statement is 
illegal in many computer Basics; the bal- 
ance of the line must be dealt with in the 
event of a Then test failure; and the Then 
operand is optionally treated as either a re- 
dundant GOTO or a dependent command 
clause. If compilers and translators fail, it 
surely will be in handling the If. . .Then. . . 
Else statement. 

This can be solved by never using the 
Else clause, but rather, defining an "else 
condition" as a drop-through to the next 
line. It is also recommended that the object 
of the Then clause be only a line number, 
making Then redundant for GOTO. 

The Onerror/Resume pair should definite- 
ly be programmed from macro library mod- 
ules, since error trapping is handled unique- 
ly in nearly every computer model. 

The STRINGS function similarly does not 
exist in most Basics, even though it is a 
handy command. 



The LEFTS and RIGHTS functions are Mi- 
crosoft variations of the substring function 
omitted from other systems. The MIDS com- 
mand always has a counterpart, but the 
method of execution can be quite different. 

For example, the Microsoft command 
"MID$(A$,10,5)" means "five positions be- 
ginning from position numberten."ThelBM 
5110/5120 counterpart, "STR(A$,10,5)", 
means exactly the same thing. But the 
Northstar equivalent is "A$(10,14)", indicat- 
ing that the second argument is the name of 
the ending position rather than the length 
of the substring measured from its begin- 
ning position. 

Safe programming procedure here uses a 
simplified programming technique and de- 
pends upon the object computer transla- 
tion utilities provided with the macropro- 
cessor. Always use the MIDS command 
rather than LEFTS and RIGHTS, and use ful- 
ly resolved arguments, not computed argu- 
ments, for the beginning point and length. 
Thus, even without the macroprocessor's 
translator, a simple ten-line Basic program 
can automatically convert every MIDS com- 
mand in the program in no more than a min- 
ute or so. The following illustrates: 



Undesirable Form 
A$ = MID$(B$,INT(X/Y), 
LEN(X$) ) 



Desirable Form 
W = X/Y 
Z = I NT(W) 
L = LEN(XS) 

AS = M I D$( D$.Z. L| 



Many interpreters, and especially compil- 
ers, cannot function with consistent accu- 
racy when the input source code is much 
more complex than these syntactical con- 
structions. 

Though it is permissible to omit the sec- 
ond (length) variable in Radio Shack Basic, 
do not do so. Many other computer Basics 
cannot handle it at all, and some try with in- 
termittent results. 

Finally, do not use a string variable as its 
own working space when shortening it to a 



SEQOPN Open a sequential file 


SEQRD 


Read a sequential file 


SEQWR 


Write a sequntial file 


SEQRWD Rewind a sequential file to beginning 


SEQPOS 


Position a sequential file to logical record "n" 


SEQCLS 


Close a sequential file 


ISQOPN 


Open an indexed sequential file 


ISQRD 


Read an indexed sequential file record by key 


ISQWR 


Write an indexed sequential file record by key 


ISQCLS 


Close an indexed sequential file 


RNDOPN Open a random access file 


RNDRD 


Read a random access file record 


RNDWR 


Write a random access file record 


RNDCLS 


Close a random access file 


Table 2. 


Logical Functions in the Disk Library 




TRS-80 
MODEL I 

DISK 
INTERFACING 

$5.95 

$7.95 Foreign Airmail (U.S. Funds) 

Postpaid mailed to you 
FIRST CLASS 

United Stales Only 
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80-U.S. Journal ^33 

3838 South Warner St. 

Tacoma, Washington 98409 
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HOW LOW 

Can we Go? 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory in TRS-80* l/ll/lll 
and Color Computers, Heath H89, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conversion instructions for TRS-80* I. 

Why pay more. . .we stock the right parts 
at the right price. 

*IRS- 90 <t ■ I'tttomerk of tie Tandy Corpcretion 

Term'. Cal res add la« Allow at least 5°« shipping, excess 
refunded VISA - /Mastercard - orders cat) (415) $62-0636, ?* hours 
Include streel address lor UPS delivery Prices subiect lo change 
without notice 

CompuPro" 

BOX 2355. OAKLAND AIRPORT. CA 94614 



(PIS 

ELECTRONICS 



^75 



ir^bQIQDItfftlQdlQaQQIOQIQolOQldQloplpr^ 



BIGGER isn't BETTER 

While some magazines run 200 pages or 
more. The Alternate Source is just 60 
to 80 pages long. But each and every one 
of those pages contains useful, important 
information that relates to your TRS-80 I 
or III. We don't have millions ol sub- 
scribers (or ads) but we do have thou- 
sands of satisfied readers. Have you seen 
a TAS magazine; 1 You owe it to yourself 
to check it out. For 82 you can sample a 
single issue, or you can subscribe for 6 or 
12 issue periods (812 or 818. respec- 
tively). If you don't agree that it wasur// 
north 82.00, we'll refund your money! 

It's Finally HERE! 

For those TAS readers who've missed 
our first few issues, or for those readers 
who would like a neat, compact set: TAS 
now has their 'bound volume' in stock!! 
Issues 1 through 6, all of 1980, in one 
convenient book form. And only 8 14.95! 
Over 300 pages of useful information and 
applications. Add 82 for shipping costs. 

BTI? WHAT'S BTI? 

An excellent value for your computer 
budget, that's what! BTI is an alternate 
magazine published by TAS -- a more 
subjective mag, containing editorials on 
subjective issues, software reviews, the 
latest news, and more. Ever-changing & 
growing, to keep up with our expanding 
industry. When 6 issues are just 87, can 
you afford not to check it out?!? 
TAS, 1806 Ada, Lansing. Ml 48910 
Ph. (517) 487-3358 or 485-0344 



"Keep the specification 
of entry and exit conditions 
at the most general level." 



portion of its original content. For example, 
A$ = MID$(A$,10,5): The substring is first 
placed into a working location created tem- 
porarily, then the newly formed short string 
is returned to the variable A$. IBM Basic in 
particular executes a veritable slaughter 
job on this command format, apparently at- 
tempting to use the same physical loca- 
tions of memory as sending, work and re- 
ceiving fields all in one. Designate general 
purpose working variables in numeric and 
string form— for example, the X and X$ 
combinations. The command sequence X$ 
= MID$(A$,10,5):A$ = X$ never fails, and X$ 
is always available for transitional use. 

Numeric Constants 

Providing four different internal notation 
methods (integer, real, single and double- 
precision) for computers used principally in 
business application environments is sim- 
ply absurd. Any compiler with the common 
sense of an abacus will provide simple 
10-digit BCD (Binary Coded Decimal) nota- 
tion, with the decimal point initialized be- 
tween the second and third significant dig- 
its (99,999,999.99). The decimal point will 
float freely at run time, and a SETDEC com- 
mand (set decimal point) could be provided 
to position the decimal at a desired round- 
ing position. Ten-digit BCD takes up only 
five positions of memory (99 99 99 99 99H) 
and the Z-80's DAA (Decimal Adjusted Arith- 
metic) hardware command makes math op- 
erations simple. 

Wherever possible, Basic programs 
should be written using only integer and 
real number types. Upon conversion for an- 
other computer, these types will adapt into 
10-digit BCD notation with ease and ac- 
curacy. 
As seen in Table 1, business or commer- 



PTROPN Open the printer file 

PRINT Print a line or line segment 

PTRCK Check printer readiness status 

PTRINI Initialize printer ROM features 

PTRCLS Close the printer file 

Table 3. Logical Functions in the Line 
Printer Library 



cially oriented Basic is quite economical, 
once all the manufacturer-specific com- 
mand words are removed. Functions which 
do not appear in the Table must be provided 
from the logical function libraries, of which 
there are six specific classes: (1) disk I/O, (2) 
screen/keyboard I/O, (3) line printer I/O, (4) 
serial I/O, (5) general utilities, and (6) user- 
designed proprietary functions. 

Entry and exit conditions to and from the 
main program and modules are defined at 
the simplest possible level. Taking the 
INSTR macro call (illustrated above) as an 
example, the entry conditions for the mod- 
ule "SERCH" require that only two numeric 
variables, two string variables, and the 
name of the object computer be specified. 
Each element is assigned a specific func- 
tion with expressed or implied rules. 

For example, it doesn't matter if X is 
cleared to zero on entry, but A$ must be at 
least as long as or longer than B$, and A 
must be an integer value greater than zero 
and equal to or less than the length of A$ 
minus the length of B$. If the macro 
"SERCH" has been expanded to test one or 
more of these entry conditions before at- 
tempting the execution of the substring 
search, it would also contain provisions for 
returning error codes to the calling applica- 
tion program. Upon exit, a single condition 
is expected: the condition of X equal to zero 
or greater than zero, but less than the 
length of A$ minus the length of B$ plus 
one. 

Keep the specification of entry and exit 
conditions at the most general level which 
may be fulfilled by even the most elemental 
computer. The exchange of data between 
the main program and the macro module it 
calls should never depend on the availabil- 
ity of instructions like PEEK and POKE; 
many computer Basics do not offer any 
such commands. Automatic conversion 
from one computer to another in such a 
case would not be possible— even worse, 
the design concept of the application pro- 
gram would have to be redrawn before re- 
programming could begin. 

Arguments 

Arguments included in disk function 
calls include: name of the disk controller; 



CLRSCR 


Initialize the screen and keyboard 


SCROLU 


Scroll-up 


SCROLD 


Scroll-down 


SCROLP 


Set scroll protected region 


CLRLIN 


Clear to end-of-line 


CLRFRM 


Clear to end-of-frame 


STROBE 


Interrogate keyboard once for pressed key 


KEYIN 


Receive typed-in line and edit 


Table 4. Logical Functions in the Screen-Keyboard Library 
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Your best 

Model l/lll 

peripheral buy 

is a modem. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




OLYrvnco 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



re- 



m- 



• 278 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phone 717/291-1116 

TRS-80 is a trademark ot the Radio Shack Division of Tandy Corporation. 
FCC Registration Number: A909KE-68171-DM-N 



Call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 



ADVANCED COMPUTER PRODUCTS 

Irvine, CA 

800/854-8241 

STEVENS RADIO SHACK 
Phoenixville, PA 
800/345-6279 



TSE HARDSIDE 
Milford, NH 
800/258-1790 

SIMUTEK 
Tucson, AZ 
800/528-1149 
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HORSERACE 
HANDICAPPER 



Uses past performance data from daily racing form 
to predict probable order of finish. 

SIMPLE and FAST. Evaluate a horse in seconds. 
Handicap an entire race in minutes. 

Often reveals longshots missed by other methods. 

TRS-80* 

Tape $29.95 Disk $39.95 

Disk $39.95 

Tape $34.95 Listing $24.95 



MODEL I or III 
MODEL II 
POCKET 

BUSINESS 
PROBLEM 
SOWERS 



250 Richards Road. No. 254 

Kansas City, MO 641 16 

(816)471-8660 

^448 



■Trodemork ol Tandy Cap Missouri residents pleose odd 4V»X sales tax 



SIEMENS 
DISK DRIVES 

5V« " flippy with case and power supply 

One Drive 5 3SO 

Two Drive 5 B2D 

Three Drive S 900 

Four Drive $1195 

8" with case and power supply. 
One Drive 5 489 

Two Drive S 940 

Three Drive $1400 

Four Drive S186CJ 

COMPUTER SALES & SERVICE 

5819 Camp Bowie Blvfl 
Fort Wot Hi TX 76107 

817-731-7412 ^36 




AVAILABLE For models I, II, and III as well 
as any standard 12 inch monitor. 



List $725 



FEATURES: 

• lmpro*» d im«|* conlr«it 

• ItrftKM f <••' >i>« 

• |nh«n<M Kfttn l«fl ibilly 

• Dwhmi flier* 

• Oi»»i lyi t «m ■ p^oUiiKMil look 



ORDER NOW 

14 NOU* 

r>H 401-946-1365 



J¥E 



AUDIO- VIDEO 
^146 SYSTEMS 

2413 Auiumnv.l. Dr. San lot*, CA.93133 



" By its nature, a compiler cannot cope 

with the breadth and depth of code which makes 

application programs manufacturer-specific." 



size of the disks; density of disk data (sin- 
gle, double, quad); number of tracks per 
disk, sectors per track, blocks per sector, 
and block length in bytes; number of drives 
on line and number of lowest drive (zero or 
one); port address of disk controller; and ac- 
cess mode for the current logical call (In, 
Out, Both). 

Arguments included in screen/keyboard 
function calls include: model name of con- 
sole unit; number of vertical screen lines; 
number of horizontal screen positions; port 
address of screen; port address of key- 
board; decimal value of cursor character; 
decimal values for various decorative 
graphics. 

Arguments included in line printer func- 
tion calls include: model name of the print- 
er; number of vertical lines per page; num- 
ber of horizontal positions per line; port ad- 
dress of printer controller; page prompting 
indicator; decimal value for various control 
characters. 

Typical arguments included in serial I/O 
function calls include: model name of serial 
controller; name of modem, if used; name of 
protocol, if used; port address of controller; 
default baud rate; default word length; de- 
fault stop bits; and default parity, if any. 



Although 40-60 separate macro subrou- 
tines is not a small writing endeavor, it is 
not all that burdensome, when you consider 
the effort required to convert an applica- 
tions program from one computer to anoth- 
er, and the growing inclination that cross- 
compilation into machine language is the 
minimum acceptable form for commercially 
oriented software. Moreover, large portions 
of each new program will not have to be 
documented: The documentation for the 
macro library modules is written once for all 
future references. 

By its nature, a compiler cannot cope 
with the breadth and depth of code which 
makes applications programs manufactur- 
er-specific and, therefore, highly labor-in- 
tensive during conversion. Whether appli- 
cations programs are intended to execute 
under the interpreter or after compilation, it 
is recommended that their manufacturer- 
specific routines be called from logical 
function libraries by a Basic language 
macroprocessor. ■ 



JOFES precoded macro libraries are 
available from J. Olmstead Financial 
Engineering Systems. 



SERIAL 


Initialize the serial I/O controller 


RACK 


Request acknowledgement 


ACK 


Send acknowledgement 


WRACK 


Wait for request lor acknowledgement 


NACK 


Send negative acknowledgement 


RECEIV 


Receive a line 


XMIT 


Transmit a line 


SEREND 


Close serial I/O controller 


PLOT 


Draw a line from xl.yl to x2,y2 


PENUP 


Lift pen off paper 


PENDWN 


Position pen onto paper ready to draw 


PENSEL 


Select pen number 1,2,3,4 


GRID 


Set X/Y grid increments 


FONT 


Select character font 


SERPRT 


Print in graphics mode 


LJUST 


Left-justify data in field 


RJUST 


Right-justify data in field 


SPREAD 


Typeset line in field 


BOX 


Draw rectangle 


CENCEN 


Center data vertically and horizontally in box 


Table 5. Logical Functions in the Serial I/O (Communications) Library 



FLUD Create a string of a given number of a given byte 

SERCH Search for a substring within a larger string 

BCDASC Convert BCD to ASCII 

ASCBCD Convert ASCII to BCD 

ASCHEX Convert ASCII hex address to pure hex 

HEXASC Convert pure hex to ASCII form 

FORMAT Convert a named 8CD field to ASCII and format it in preparation for printing or display 

ERTRAP General error trapping location 

ERRMSG Generate error messages 

ERLERX Emergency error exit to be used when user's error exit subroutine is not operational 

Table 6. Logical Functions in the Utility Library 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 
Albuquerque, NM 
Kit: $90 
Assembled: $120 

by Carl A. Kollar 

I guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF). This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

AH this for a measly [90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

I work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 




FOR TRS-80 



[Reprint of June 1980 Review, 80 Microcomputing] 



ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of %Vi x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English— not computerese. 

Commands and Features 
SAVE"filename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD"filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD?"filename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN"filename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 

RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN "filename": TC-8 searches for a specified 
program and runs it immediately. 
PUT'Tilename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET"filename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?" filename": Same as LOAD? 
and LOAD? "filename", except it is for use 
with system tapes. 
GETN and GETN"filename": Same as 



LOADN and LOADN "filename", except it is 
for use with system tapes. 
OPEN: Required before cassette input or out- 
put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or siring data to be 
output to a cassette file. 

INPUT*: Allows numerical or string data to be 
input from a cassette file. 

1 haven't counted them, so I don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 1 1), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button. ■ 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4% sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 




^ 190 



JPC PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 
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DON'T SAY WE DIDN'T WARN YOU! 




ASYLUM! 

ASYLUM Is now in stock and ready for immediate 
shipment. This is it! The ultimate adventure. 

ASYLUM is the most sophisticated, sinister, challeng- 
ing 3-D graphics adventure ever written! You are 
placed in an asylum for DEATHMAZE survivors. Your 
only goal: ESCAPE! 

3-D PERSPECTIVE GRAPHICS! 

ASYLUM has over 1200 locations! Hallways recede 
into the screen, as though you are actually there! 
Doors open and close! Beds, desks, and even guards 
and other inmates are drawn on the screen! And 
graphics are generated instantaneously! Simply press 
an arrow key to move or turn, and you are moved. 
Absolutely no waiting! 

ADVANCED 
LANGUAGE INTERPRETER! 

English language commands may be issued at any 
time from a vocabulary of almost 300 words. Com- 
mands may include complete statements. "GET 
EVERYTHING ON THE DESK EXCEPT THE MATCHES" 
is perfectly legal! 



Med Systems Software 

P.O. Box 2674-T Chapel Hill, NC 27514 

(919)933-1990 ^a 




CHALLENGING, CHILLING! 

To whet your imagination: the Hall of Doors. Nichol- 
son the axe murderer, a revolving door, the time 
machine, the guru of nails, the old roadster in the drag 
strip, the ancient catapult room, plus dozens of other 
problems and a reasonable amount of built-in, subtle 
hints. 

ATARI 400 COMPUTER TO 
BE AWARDED TO ESCAPEE! 

Will anyone escape? Who knows? Intelligence, cun- 
ning and patience will be necessary. Send us your 
correct solution postmarked no later than November 
15th. On November 30th we will draw from the 
entrants for an ATARI 400 16K color computer! 

NO HINTS WILL BE GIVEN 
OVER THE PHONE! 

ASYLUM 16K cassette $14.95 

ASYLUM 32K disk $19.95 

TRS-80 LEVEL II, 
MODEL I AND MODEL III ONLY. 



ASYLUM MAY ALSO BE PURCHASED 

FROM THE PROGRAM STORE, 

HW ELECTRONICS (HOBBY WORLD), 

AND DEALERS WORLDWIDE. 
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MICRO-WORLD 



JOURNEY TO THE 
CENTER OF THE TRS-80! 

Micro-World is an adventure like no other You are transformed 
into an electroid, and must travel through the circuits of your 
TRS-80! You will be required to solve many incredible problems, 
and in the process you will gain a knowledge of how a TRS-80 
operates. 

Micro-World is one of the most advanced pieces of machine 
language programming Med Systems has published A special 
encoding scheme has allowed a 21 K adventure to fit in 16K. 
Micro-World is verbose. Messages are frequent and fact filled 
There are over 80 locations that must be explored. 

Micro-World is an excellent educational simulation! It is 
supplied with a booklet containing a glossary and explanations 
of the electronic circuits inside the TRS-80 This does not in any 
way diminish the challenge! If anything, the challenge increases 
since you must gain a working knowledge of your computer to 
gain access to the final circuit! 



Model I Level II 16K or Model II 
Model I disk 



16K cassette 



$19.95 
$2495 



The Playful Professor 

The Playful Professor has been a constant best-seller since its 
introduction in 1980. This program is a mathematical tutorial 
that provides instruction in addition, subtraction, multiplication, 
and division, with or without fractions. Problems are presented 
in a game format that gives a step-by-step tutorial for incorrect 
answers. 



The Playful Professor places the user in a 60 room mansion 
haunted by an intelligent ghost who holds the key to the only 
door out. Options include 3 difficulty levels, choice of problem 
type, 1 or 2 players, pass option, and split difficulty levels to 
allow 7 year olds to play competitively with 27 year olds! 
Graphics are used extensively. 

"I'm so impressed with The Playful Professor, Money Master, 
and Deathmaze. At the Mead School we use these three 
programs daily." R.J., Greenwich, Conn. 

"My 7 year old daughter had a fun way to review her math . . . 
my 4 year old enjoys playing using the pass feature (what an 
experience it is to watch a 4 year old use a computer!)" S.C., 
Highland, Maryland 



Model I or Model III Level 
Model I DISK 



16K 



$1295 
$16.95 



Med Systems Software 

P.O. Box 2674-T Chapel Hill, NC 27514 

(919) 933-1990 




SATISFACTION GUARANTEED! 

If for any reason you are not satisfied with our products, return 
your order within 14 days for a prompt and cheerful refund 



ORDERING INFORMATION 

Orders are processed within five working days. We pay all 
postage and handling within the U S , Canada, and US 
territories. European orders please include $3.00 for air post 



D Asylum ($14*95) 

□ Deathmaze 500 ($12 95) 

□ Labyrinth ($12.95) 
D Adventures on Disk (add $5.00) 
DGRBASIC Cassette ($19 95) 
nGRBASIC TRS-DOS Disk ($24 95) 
DGRBASIC NEWDOS 80 Disk ($24 95) 
DGRBASIC FUNCTION PLOTTER ($14 95) 

□ Playful Professor ($12.95) 
DMICRO-WORLD ($19.95) 
DMICRO-WORLD Disk ($24.95) 

Total 

Name 

Sfreef 

City 



-Sfafe. 



Zip. 



Computer: 

DTRS-80 Lll 16K 
\I\ Mastercard 

MC or VISA ft 



□ Model in 16K 
□ Visa □ check 



Expiration Date 
• 128 



• See List of Advertisers on page 322 
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INTERFACE 



Serial I/O. 



80 to RS-232 to TI-810 



Morris Herman 
503 Rosario Drive 
Santa Barbara, CA 93110 



The TI-810 printer is a multi-copy im- 
pact printer that utilizes a micropro- 
cessor to optimize bi-directional printing. I 
interfaced it to my TRS-80, using the Radio 
Shack RS232C interface. 

The speed of the printer is 150 cps (char- 
acters per second) using a 9 by 7 dot matrix. 
The printer also features adjustable tractor 
feed, switch selectable automatic line feed 
on carriage return, switch selectable auto 
perforation skipover control, six or eight 
lines per inch, switch selectable parity, 
baud rates from 110 to 9600, software or 
hardware-programmable vertical form, and 
a standard RS232 interface. My printer also 
has a compressed character printing option 
which allows 132 characters in an eight- 
inch line length, a battery-backed vertical 
forms control program that is not lost at 
power down, and a full set of ASCII charac- 
ters. In addition the printer features auto- 
matic self-test, a function that checks elec- 
tronic and mechanical parts of the printer. 
I received my Radio Shack RS232C inter- 
face before the TI-810 printer. However, with 
a loaned copy of the TI-810 Operator's Man- 
ual I proceeded to read and compare the seri- 
al interface requirements. It was apparent 
that this interface was not of the plug and 
run variety. Every signal from the serial in- 
terface (with the exception of signal and 
protective grounds) is defined as an input or 
output in the RS232C interface and the 
TI-810 similarly. That is, an input signal to 
the printer is defined as an input signal to 
the RS232C interface also. For example, the 
Receive Data line of the TI-810 was on pin 3 
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whereas the TRS-80 was transmitting data 
on the Transmit Data line— pin 2. It turns 
out that this is the only signal that can be 
switched using a double-pole, double-throw 
switch provided in the RS232C interface. 

Important signals like Request to Send, 
Data Set Ready, Data Terminal Ready, etc. 
are defined to be in conflict in the two doc- 
uments. The reason for this is that the 
RS232C configures the TRS-80 as a data ter- 
minal, while the TI-810 is also configured as 
a data terminal. There would have been no 
problem had the RS232C interface config- 
ured the TRS-80 as a data communication 
device. Table 1 shows these conflicts in 
more detail. 

As far as the TI-810 is concerned, the im- 
portant signals are: 

• Data from TRS-80 on Receive Data— 
pin 3. 

• Positive EIA level on Data Set Ready- 
pin 6. 

• Positive EIA level on Carrier Detect— 
pin 8. 

Status signals from TI-810 are: 

• Printer busy on Reverse Channel- 
positive EIA level = printer not busy- 
pin 11. 

• Printer on-line on Data Terminal Ready 
—positive EIA level = printer on-line- 
pin 20. 

As far as the TRS-80 RS232C interface, the 
important signals are: 

• Data to printer on Transmit Data— pin 
2. 

• Printer busy on Clear to Send— posi- 
tive EIA level = printer not busy— pin 5. 

• Printer on-line on Data Set Ready- 
positive EIA level = printer on-line— pin 
6. 

(See Table 2 to construct a crossover cable.) 

EIA Levels 

For timing and control, the signal is con- 
sidered to be on when the voltage on the 



line is more positive than three volts (with 
respect to Signal Ground); and is consid- 
ered to be off when the voltage is more neg- 
ative than minus three volts (with respect to 
Signal Ground). The on condition corre- 
sponds to a TTL logic zero (0) and the off 
condition corresponds to a TTL logic one 
(1). All these level conversions are per- 
formed by the RS232C interface. 

Transmission of data is performed over a 
single line using an asynchronous-bit-serial 
technique. This means that there is no 
clock line to indicate when the next bit ar- 
rives. However, both the printer and the 
RS232C interface know the baud rate or bit 
rate and parity type (even or odd) at which 
the bits are sent. The printer knows by the 
pencil switch settings while the interface is 
programmed by the driver. Needless to say, 
the two settings must match for correct op- 
eration of the interface. The two EIA levels 
play an important part in the data transmis- 
sion. The start bit on the line is denoted by a 
negative-going EIA level. The next eight bits 
are output serially, using positive EIA levels 
for zero (0) and negative EIA levels for one 
(1). The stop bit is then appended as a posi- 
tive EIA level that is sustained until the next 
start bit of the next character is sent. To en- 
sure against errors due to different clock 
circuits, the actual baud rate is multiplied 
by 16 and data lines are sampled in the mid- 
dle of each bit. This allows a differential of 
one-sixteenth of the baud rate with no data 
loss. 

The Program 

At this point, I looked at the software re- 
quired to run the printer using the RS232C 
interface. The sample program in the 
RS232C manual was not suitable for my 
needs in addition to being in error. The word 
description does not match the program 
listing. Somebody must have fixed the pro- 
gram, but the new listing did not get into the 



"The interface initialization 

and operation 

should be automatic." 



manual. I made the following decisions con- 
cerning the RS232C interface operation: 

• The baud rate should be fixed at 2400 
regardless of the interface switch 
setting. 

• Word lengths should be seven bits with 
one even parity bit plus one start bit 
and one stop bit. 

• Check printer on-line, printer busy and 
RS232C transmit register empty before 
outputting a character. 

• The interface initialization and opera- 
tion should be automatic. 

To accomplish the first three objectives, I 
wrote a machine-language program that 
changed the printer device control block 
(DCB) in the TRS-80 RAM to point to my new 
RS232C interface driver. The DCB is used by 
Basic or any other program as a pointer to 
the driver program for that particular 
device. The character to be output is in reg- 
ister C and a Call instruction is executed to 
the address in locations 4026 and 4027. In 
addition, the program initializes the inter- 
face with the desired baud rate, word 
length, parity, start and stop bits. At this 
point, the program returns to the system. 
Along with the initialization part, the actual 
character output driver is made resident in 
memory and is pointed to by the DCB. (See 
Program Listing 1.) 

The program originates at address FF00 
(hex) since I have a 48K RAM TRS-80. For 
other size machines, this can be changed to 
7F00 for 16K, and BF00 for 32K machines. In 
that case, make sure to change line 170 to 
load 7F or BF into the memory location 
pointed to by HL Lines 120-170 in the pro- 
gram change the DCB to point to the new 
driver. 

The OUT E8 instruction resets the UART 
in the RS232C interface. The A4 value sent 
by the OUT EA instruction sets up even pari- 
ty, seven-bit word length, one-stop bit, en- 
ables Transmit Data and sets up positive 
EIA levels on Request to Send and Data Ter- 
minal Ready. The last two signals will trans- 
late through the crossover cable to signals 
Carrier Detect and Data Set Ready for the 
TI-810 printer. For other printers, these re- 



quirements may change. Remember that a 
zero in the UART control register (see Table 
6 of the RS232C manual), will set up a posi- 
tive EIA level on that line. Conversely, a one 
will set up a negative EIA level. It may also 
be necessary to change the crossover cable 
wiring, in order to set up EIA levels. Only 
one thing is constant, and that is, as Table 6 
of the RS232C manual shows, the interface 
can only affect the signals on pins 4 and 20 
of TRS-80 side (i.e., Request to Send and 
Data Terminal Ready signals respectively). 

The AA value sent with the out E9 instruc- 
tion sets up the 2400-baud rate. This baud 
rate is optimum for the TI-810 since the 
printer operates at 150 characters per sec- 
ond which converts to a 1500-baud rate. The 
next lower baud rate of 1200 will idle the 
printer, while at 2400 baud the printer will be 
operating a maximum rate. For printers that 
operate at lower baud rates, see the 
RS232C manual for Table 5 which describes 
the baud rate settings. Remember to use 
two nibbles even though only the transmit 
channel is used (i.e., 66H for 600 baud). 

At this point, the initialization is com- 
plete and the program jumps to location 
402D which is the entry point to TRSDOS 
without initialization. Now let's take a look 
at the actual character output driver part of 
the program which starts at location FF1C 
in my version. The IN E8 instruction inputs 
the modem status register. This register will 
contain the status of the printer on lines 
Clear to Send and Data Set Ready in bits 
seven and six respectively. Remember that 
the crossover cable translates these sig- 
nals to lines Reverse Channel and Data Ter- 
minal Ready, which contain the busy and 
on-line status of the printer. We are looking 
for positive EIA levels on these signals, and 
therefore our driver will check for zero in 
these bits. If a signal is non-zero, we loop 
back to check the lines. This will result in a 
hang-up of the TRS-80, if the printer is not 
ready. Once the printer is readied, the driver 
will continue. 

The IN EA instruction inputs the UART 
status register which contains error indica- 
tors and a bit that indicates if the previous 



output character has been sent to the print- 
er. This information is reflected in the trans- 
mitter-holding-register-empty bit 6. We are 
looking for a one to indicate that the regis- 
ter is empty and loop back if a zero is found. 

Finally, we take the character to be out- 
put and load it into the A register, output it 
with the OUT EB instruction and perform a 
RET instruction to exit and return to the 
calling program. 

If you look at the RS232C interface man- 
ual, you will note that the driver adds a line 
feed after every carriage return. I have not 
included this feature in order to allow for 
more flexibility. The TI-810 has a pencil 
switch that can generate a line feed auto- 
matically after every carriage return. For the 
Electric Pencil, in order to underline text, it 
is necessary that the two controls be output 
separately. It is easier to change a pencil 
switch than to do a driver change. 

To automate the execution of the above 
program, I put it into a disk file and set up 
the Auto feature of TRSDOS to automatical- 
ly execute this program on power-up. The 
actual code of the program was first assem- 
bled with the Radio Shack editor/assembler 
and the resultant code was input into the 
TRS-80 using the Debug utility of TRSDOS 
as follows: 

• Boot up the TRSDOS. 

• After the display of the DOS Ready 
message appears type Debug. 

• Hit the Break key. This will result in De- 
bug being loaded and started. 

• Use the M command to set up the start- 
ing address of the program. In my 
case, I typed MFF00 followed by a 
space. 

• Enter the hexadecimal values of the 
program followed by a space. The 
space increments the program counter 
so that the next value can be entered. 

• After all values have been entered, exit 
modify-memory mode by typing Enter. 

• Exit Debug by using the G402D 
command. 

At this point the program is in memory 
ready to be made a disk file. The Dump utili- 
ty of TRSDOS will be used to create that file. 



TRS-80 


PIN# 


DESCRIPTION 


TI-810 


— 


1 


Protective Ground 


— 


Output 


2 


Transmit Data 


Output 


Input 


3 


Receive Data 


Input 


Output 


4 


Request to Send 


Output 


Input 


5 


Clear to Send 


Input 


Input 


6 


Data Set Ready 


Input 


— 


7 


Signal Ground 


— 


Input 


8 


Carrier Detect 


Input 


Not Used 


11 


Reverse Channel 


Output 


Output 


20 


Data Term Ready 


Output 


Input 


22 


Ring Indicator 


Not Used 




Table 1. 


Pin Assignments 



TRS-80 




TI-810 


FEMALE 




MALE 


DB25S 




DB25P 


1— Protective Gnd 


to 


1— Protective Gnd 


2— Transmit Data 


to 


3 — Receive Data 


3— -Receive Data 


to 


2— Transmit Data 


4— Request to Send 


to 


8— Carrier Detect 


8— Carrier Detect 


to 


4— Request to Send 


6— Data Set Ready 


to 


20— Data Terminal Ready 


20— Data Terminal Ready 


to 


6— Data Set Ready 


7— Signal Gnd 


to 


7— Signal Gnd 


5— Clear to Send 


to 


11— Reverse Channel 




Table 2 
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SPECTACULAR 
OFFERS 



BASF "FLEXYDISK"... *« MMk 

Superioi (Quality data v,' ^^31~t- - I 
storage medium. \\\. 10'^tf^i 

Certified and guaranteed \w „^5 " 

100% error free. y , ' "" \»k V 

SINGLE SIDED-SINGLE DENSITY 

5V4" or 8" Diskettes 10/$24 

5V4" or 8" Vinyl Storage Pages 10/ $5 

MAXELL- DISKETTES MMM| 

quality H k ^VV 

diskette money can buy. BB^ 

Approved by Shugart ^M 

and IBM. ^J 

Sold only in boxes of 10 ^^^^^^^^^^ 

5", 1 side $3.30 

8", 1-side $3.90 

5", 2-side $4.25 

8", 2-side $5.60 

ALL MAXELL DISKETTES ARE DOUBLE DENSITY 

LIBRARY CASE... fT " * 

I i ing binder album. L. ^ L 1 m . \ 

Protects your valuable ^L^ Hm ■ | 

on disks Hfltafl mm > 

Fully ^91 P^al 

protected on all sides. ^^^^ V ■ 

Similar to Kas-sette storage box. ^^^^^ 

Library 3-Ring Binder $6.50 

5V<" Mini Kas - sette/10 $2.49 

8" Kas-sette/10 $2.99 

DISKETTE DRIVE HEAD CLEANING KITS — -j j 

insure efficient, error- ^^^^^^^^ 

free operation. 

5'/4" or 8" $19.50 

SFD CASSETTES 

C-10 Cassettes 10/$7 

(All cassettes include box & labels) 

Get 8 cassettes, C-10 sonic and 
Cassette/8 library album for 

only $8.00 

(As illustrated) 




HARDHOLE 
Reinforcing ring of 
tough mylar protects 
disk from damage 
5V«" Applicator $3 
8" Applicator $4 




SVa" Hardholes $6 
50/8" Hardholes $8 



VISA • MASTERCHARGE • MONEY ORDERS 
CERTIFIED CHECK • FOR PERSONAL CHECKS 
ALLOW TWO WEEKS • C.O.D. REQUIRES A 10% 

DEPOSIT • CAL. RES. ADD 6% SALES TAX 

MIN $2 SHIPPING & HANDLING • MINIMUM 

ORDER $10 • SATISFACTION GUARANTEED 

OR FULL REFUND 

Write for our free catalog 



PRODUCTS 

8868 Clairemont Mesa Blvd 
San Diego, CA 92123 

Toll Free 

1-800-854-1555 

For Orders Only 
For information or California orders 

(714) 268-3537 



"/ have not found it 
necessary to protect my 
driver in upper memory. " 
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LISTING 1 

TRS-80 SERIAL RS232-C 


INTFC DRVR 


FFBB 




00110 




ORG 


0FF00H 




FF'00 


21254E 


00120 




LD 


HL,4025H 


.•PRINTER DCB ADDR 


FF03 


3602 


00130 




LD 


(HL),2 


;DCB TYPE 


FF05 


212640 


00140 




LD 


HL,4026H 




FF08 


361C 


00150 




LD 


(HL) ,1CH 


;LS BYTE OF DRVR ADDR 


FF0A 


212740 


00160 




LD 


HL,4027H 




t F0D 


36FF 


00.17 




LD 


(HL) ,0FFH 


> MS BYTE OF DRVR ADDR 


FF0F 


D3E8 


00180 




OUT 


(0E8H) ,A 


; RESET L'ART 


FF11 


3EA4 


00190 




LD 


A,0A4H 


;SET UP INTFC 


FF13 


D3EA 


00200 




OUT 


(0EAH) ,A 




FF15 


3EAA 


00210 




LD 


A,0AAH 


;SETUP,BAUD RATE(24Bfl) 


PF17 


D3E9 


00220 




OUT 


(0F.9H) ,A 




FF19 


C32D40 


00230 




JP 


402DH 


;EXIT TO TRSDOS 


FF1C 


DBE8 


00240 


DRIVER 


IN 


A, (0E8H) 


; INPUT PRNTR STAT 


FF1E 


C377 


00250 




BIT 


6,« 


; CHECK PRNTR ONLINE 


TF2G 


20FA 


00260 




JR 


Nil, DRIVER 




FF22 


CB7F 


00270 




BIT 


7, A 


; CHECK PRNTR BUSY 


FF2< 


20F6 


00280 




JR 


NZ, DRIVER 




FF26 


DBEA 


0P290 


STAT 


IN 


A, (BEAM) 


; INPUT UART STAT 


FF28 


CB77 


003H0 




BI1 


6, A 


; CHECK TX REGIS. EMPTY 


FF2A 


28FA 


G0310 




JR 


Z , STAT 




FF2C 


79 


00320 




LD 


A,C 


•WOVE CHARAC. IN A REGIS. 


FF2D 


D3EB 


00330 




OUT 


(0EBH) ,A 


; OUTPUT TO UART 


FF2F 


C9 


00340 




RET 




; RETL'PN 


0000 




00350 




END 










Program Listing 1 


Serial RS232C Interface Driver. 



Make sure the write-protect tab is off the 
diskette before trying to write on it. Type the 
following: 

DUMP RS232/CMD (START = X'FF0O',END = X'FF2F',TRA 
= X'FFOO") 

For other size RAM machines, change the 
Dump parameters accordingly. Finally, the 
RS232 program is made executable on pow- 
er-up by typing: AUTO RS232. 

For a non-disk TRS-80, you have to gener- 
ate a System program to accomplish the 
same purpose. This program will differ from 
the program in Program Listing 1 in two re- 
spects: It is not automatic; the program has 
to be loaded and run after entering Basic by 
using the System command; and the reen- 
try to Basic in a non-disk system is accom- 
plished by jumping to location 1A19. You 
can use the Radio Shack editor/assembler 
or the RSM/2 monitor to create the System 
tape. Remember to change line 230 to per- 
form a jump to 1A19. 

I have not found it necessary to protect 
my driver in upper memory by using a Mem- 
ory Size entry. If you find that your driver 
gets wiped out by Basic, enter the decimal 
equivalent of the starting address of the 
driver minus one. (For 32K and 48K 
machines, subtract 65536 from the actual 
address.) 

Your system is now ready to use an 
RS232 printer, but the work is not done yet. 
You can use LPRINT and LLIST, but if you 
have other software packages such as the 
editor/assembler, RSM2 monitor, cassette 
version of the Electric Pencil, etc., you will 
quickly discover that the printer will not 
work. The problem is that those software 
packages use their own print routines that 
do not utilize the DCB in locations 4026 and 
4027. It is then necessary to find the start of 



the print driver and change it by patching in 
a jump to the RS232 driver in upper memory. 
I have found that I can use the RSM/2D mon- 
itor from Small Systems Software to hunt 
for the memory-mapped address of the 
printer (37E8) and then disassemble the 
code around it to find the start of the driver 
and patch a C31CFF to jump to my driver. If 
the original driver does not have the charac- 
ter to be output in register C, it is also nec- 
essary to save the current contents of C, 
move character to C, call the RS232 driver, 
and upon return restore C to its original val- 
ue. What you have to do depends entirely on 
the way that driver was written. 

The disk version of Electric Pencil in- 
cludes such a driver with a minor problem. 
Since the authors could not know which 
printer is interfaced with the TRS-80, the 
driver does not check to see if the printer is 
busy or on-line. This deficiency limits the 
printer operation to 1200 baud. 

There is another solution to this general 
problem and that is to use a parallel inter- 
face to theTI-810. It turns out that the TI-810 
has a Centronics-compatible interface. This 
is the interface that Radio Shack uses for 
its printers. But alas, the interface is not 
perfect for my TI-810 since the original par- 
allel driver in ROM Basic does not pass 
form control characters such as form feed 
(12) and vertical tab (11). It seems the driver 
is written for a printer with no forms control 
and the driver performs that function by 
counting lines and using a line count of 66 
(unless modified) in RAM. To modify this 
driver, it is necessary to write another driv- 
er, relocate in upper memory and change 
the DCB to point to the new driver. With all 
of your experience in serial interfacing, you 
should be able to do that job very easily. ■ 
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PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL III 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to Ihe Level I! ROMs winch allows 
the machine language or Basic programmer lo easily utilrze Ihe sophislicaied routines 
they contain Concisely explains set-ups calling sequences and variable passage tor 
number conversion ar.thmetic operations, and mathematical functions, as well as 
keyboard tape and video routines Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and 
machine code with the speed and elliciency ol a compiler In addition the 18 chapters 
include a large body ol other information useful to the programmer including tape 
lormats. RAM useage relocation of Basic programs USR call expansion creating 
SYSTEM tapes ol your own programs, interlacing ol Basic variables directly with 
machine code a method ol greatly increasing the speed at which data elements are 
stored on tape and special precautions lor disk systems INSIDE LfcVEL II is a dearly 
organized relerence manual II is luiiy typeset and packed with nothing but useluf 
■nlormation II does not contain questions inrj answers ROM dumps O' cartoons 
Includes updates for Model III. INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STLP80 allows you to step through any Basic or machine language program one 
instructional a time and see the address hexadecimal value Zilog mnemonic register 
contents, and step count lor each instruction The top 14 lines of the video screen are lett 
unaltered so that Ihe target program may perlorm its display functions unobstructed 
STt P80 will loilow program flow right into the ROMs and is an invaluable aid m learning 
how the ROM routines function Commands include step (trace) disassemble run m 
step mode at variable step rale display or alter memory or CPU registers |ump to 
memory location execute a CALL set breakpoints m RAM or ROM write SYSTEM 
tapes and relocate to any page in RAM The display may also be routed to your line 
punier through the device control block so custom print drivers are automatically 
supported 
Specify Model I or Model III. STEP80 $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program allows reliable high speed liie translers between two 
disk -based computers over modems or direct wire it is menu driven and extremely 
simple to use Functions include realtime terminal mode, save RAM buffer on disk 
transmit disk lile receive binary liles examine and modily UART parameters program 8 
custom log ■ on messages automatic 16 bit checksum verification of accurate transmis- 
sion and reception and many more user conveniences Supports line printers and 
lowercase characters With this program you will no longer need to convert machine 
language programs lo ASCII lor transmission and you will know immediately if the 
transmission was ac&rt He 
Specify Model I or Model III. TELCOM $39.95 

PROGRAM INDEX FOR DISK BASIC 

Assemble an alphabetized .naex of your ent.re program library Irom disk directories 
Program names and tree space are read automatically (need not be typed in) and may 
be alphabetized with a fast Shell Metzner sort by disk or program The list may aiso be 
searched tor any disk .program or extension disks or programs added or deleted and 
Ihe whole list or any part sent to the printer Finally Ihe list itself may be stored on disk tor 
luture access and update The best thing smce sliced bread (January issue of 80 
M.crocomputmgi VVo'ks with TRSDOS NEWDOS and NEWDOS80 One drive and 
32K 'equired 
Model I only. Model III version soon. INDEX $19.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 clock modihcation allows CPU speeds to be switched between normal, an 
increase of 50°o or a 50°o reduction selectable at any time without interrupting 
execution or crashing the program instructions are also given for a I00"o increase to 
3 54 MHz The SK-2 may be configured by the user to change speed with a toggle 
switch or on software command it will automatically return to normal speed any time a 
disk is active requires no change to the operating system, and has provisions for 
adding an LED to indicate when the computer is no! al normal speed It mounts inside 
the keyboard unit with only 4 necessary connections lor the switch option (switch not 
included), and is easily removed if the computer ever needs service The SK-2 comes 
fully assembled w.ih socketed IC'S and illustrated instructions 
Model I only. SK-2 $24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new poweriui tape -based assembler and debugger 
lor the TRS-80 Now you can assemble dnectiy to memory and immediately debug your 
program with the bunt m single stepping debugger Quickly switch from assembler to 
debugger and back again without losing the source code This leature makes INSTANT 
ASSEMBLER an excellent learning tool lor assembly language programming 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers m that 4 
produces relocatable code modules that can be linked with the separate LINKING 
LOADER, which is supplied m two versions lor loading programs mto either high or low 
RAM This lets you build long programs with small modules INSTANT ASSEMBLER also 
features immediate detection of errors as the source code is entered, a compactly 
coded source format that uses 1 3 as much memory as standard source and many 
operational features including single stroke entry of DEFB and DEFW pinpoint control of 
listings alphabetic listing of symbol table, separate commands for listing error lines or 
the symbol table block move function and verification of source tapes 
INSTANT ASSkMBLkR's debugger provides single stepping with full register displays 
decimal or hex entry of addresses, forward or backward memory displays disassembly 
ol object code in memory, memory display in ASCII format and hexiodecimai or 
deamal-to-hex conversion The single-stepper will step one instruction at a time or at a 
fast rate to any defined address 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory in a 16K machine 
this win leave you enough memory to write assembly language programs of around 
2000 bytes This and its module-linking feature make INSTANT ASSEMBLER ideal tor 
users with only 16K machines The instruction manual may be purchased separately for 
$5 which will apply towards the purchase ot the INSTANT ASSEMBLER 
Specify Model I or Model III. INTASM $29.95 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature punt formatting package featuring user defmeabie line and 
page length (with ime feeds inserted between weds or after punctuation), screen 
dump, printer pause control and baud rate selection In addition printing is done from a 
4K expandable buffer area so that Ihe LPRINT or LLiST command returns control to the 
user while printing is being done ideai for Seiecinc or other slow printers Allows 
printing and processing to r un concurrently Output may be directed to either the 
parallel port, serial port or the video screen 
Specify Model I or Model III. SPOOLER $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language FFTASM routine 
assembled for 16 32 and 48K machines, a short sample Basic program to access 
them, a 10K Basic program which includes sophisticated interactive graphing and data 
manipulation and a manual ot instructions and examples The machine language 
subroutines use variables defined by a supporting Basic program to make data entry 
and retrieval extremely fast and easy lor custom implementation They perlorm 20 lo 40 
times faster than their Basic equivalent (256 points in 12 5 seconds) and require less 
than 1550 bytes of memory The FFT is useful m analyzing stock market and comodity 
trends as wen as for soentilic information 
Specify Model I or Model III. FFTASM $49.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of any tape written tor Level II They may be SYSTEM tapes or 
data lists The filename, load address, entry point and every byte (m ASCII format) are 
displayed on ihe video screen Model III version allows changing tape speed 
Specify Model I or Model III. CLONE $16.95 

RAMTEST FOR LEVEL II 

This machine language program is a very thorough lest for several types ot RAM errors 
A complete test of each individual bit in a 48K machine takes just 14 seconds Includes a 
separate test for power line glitches 
Model I only. RAMTEST.....$9.95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into Ihe disk version of Electric Pencil 
lor editlmg One command from DOS quickly modilies existing files to Pencil formal 
One disk and 32K required 
Model I only. PENPATCH $9.95 



1VI I IlV/IFT^Rr^ ORDERING: Compile satisfaction is guaranteed t>i .1 lull refund will Ik- rn.uk' All programs 

1~1 vJl'll^ V-/r\L/ are shipped on cassette unless >'> is included loi a * r > hack foi matted I no system) disk ln< hide 

« — . m f- y . -j f-*. >1 f)() foi postage and handling California residents add (> sales las Visa Master chaige and 

]^|C,l\\J COD orders accepted SPECIFY MODEL I OK MODEL 111. Dealei inquiries invited 

SYSTEMS " U Box 400-E Summcrland, California 93067 (805) 969-4557 



vSee List of Advertisers on page 322 
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UTILITY 



At last! Effortless data statements from machine language to Basic. 



Datagen 



Dan & Cass Lewart 
12 Georjean Drive 
Holmdel, NJ 07733 



ATRS-80 programmer will often need to 
use Basic and machine language (Sys- 
tem) progams together. A Basic program 
is great for writing complicated routines 
with lots of logic or with arithmetic calcula- 
tions. But it is too slow for tasks such as 
generating musical tones or for sorting 
large arrays. A machine language program, 
thpugh more difficult to write, will do all 
those jobs quickly and efficiently and will 
get around many limitations of Basic. For 
this reason, sophisticated programs fre- 
quently consist of a Basic program perfor- 
ming some of the chores and then calling 
one or more machine language routines to 
do the rest. 

Storing and Loading of 
Basic/Machine Language Programs 

The Basic and machine language parts of 
a combined program can be separately 



Memory Size? 3 2255 (enter) 

Radio Shack Level II Basic 

Ready 

> CLQAD (Program in Fig. 4) (enter) 

Ready 

> SYSTEM (enter) 

•? MUSIC (enter) 

•? DATGEN (enter) 

*?_Menter) 

First Address? H7000 (enter) 

Last Address? H7014 (enter) 

First Line? 300 (enter) 

Increment? 10 (enter) 

Ready 

> LIST (enter) 

Fig. 1. Dialog with computer to execute 
DATGEN (user entries are underlined) 



stored and then loaded with Level II Basic 
CSAVE, CLOAD and System commands. 
However, this approach is both inconve- 
nient and time consuming, because two or 
more programs have to be loaded everytime 
the program is to be run. Therefore, several 
methods for storing and loading Basic and 
machine language programs as a single 
module were developed. Such methods are 
described in the Basic Level II Manual 



(Pages 8/8-8/1 2), and in this and other maga- 
zines. 

The approach in the Basic manual con- 
sists of storing a machine language pro- 
gram by reading a string of data statements 
with decimal equivalents of the machine 
language program, POKEing it into 
memory, and executing with a USR call 
from a Basic driver program. The difficulty 
with this approach is that the values in the 





Program Listing 1. Assembled Z80 Source Code of DATGEN 


0002 




00100 


BREAK 


EQU 


2 


BREAK KEY BIT 


01C9 




00110 


CLS 


EQU 


1C9H 


CLEAR SCREEN 


1C90 




00120 


CPHLDE 


EQU 


1C90H 


COMPARE HL AND DE 


0088 




00130 


DATA 


EQU 


88H 


BASIC TOKEN FOR DATA 


0001 




00140 


DGT 


EQU 


1 


DIGIT FLAG ON 


40F9 




00150 


END 


EQU 


40F9H 


PTR TO BASIC PROGRAM END 


1AF8 




00160 


FIXPTR 


EQU 


1AF8H 


CALCULATE LINE POINTERS 


1D78 




00170 


GETDGT 


EQU 


1D78H 


SET C FOR NUMERIC CHAR 


1AEF 




00180 


INIT 


EQU 


1AEFH 


RETURN TO BASIC 


1BB3 




00190 


INPSTR 


EQU 


1BB3H 


INPUT STRING FROM KB 


000A 




00200 


LENGTH 


EQU 


10 


BYTES PER BASIC LINE 


0000 




00210 


NODGT 


EQU 





DIGIT FLAG OFF 


28A7 




00220 


OUTSTR 


EQU 


28A7H 


DISPLAY STRING 


3840 




00230 


R0W7 


EQU 


3840H 


BREAK KEY ROW 


7E00 




00240 




ORG 


7E00H 


32256 DECIMAL 


7E00 


CDC901 


00250 


DATGEN 


CALL 


CLS 


CLEAR SCREEN 


7E03 


21247F 


00260 




LD 


HL,PRMPT1 


POINT TO FIRST PROMPT 


7E06 


CDA37E 


00270 




CALL 


GETINT 


INPUT FIRST ADDRESS 


7E09 


225B7F 


00280 




LD 


(MACH) ,HL 


STORE IT 


7E0C 


21327F 


00290 




LD 


HL,PRMPT2 


POINT TO SECOND PROMPT 


7E0F 


CDA37E 


00300 




CALL 


GETINT 


INPUT LAST ADDRESS 


7E12 


22577F 


00310 




LD 


(LAST) ,HL 


STORE IT 


7E15 


213F7F 


00320 




LD 


HL,PRMPT3 


POINT TO THIRD PROMPT 


7E18 


CDA37E 


00330 




CALL 


GETINT 


INPUT FIRST BASIC LINE# 


7E1B 


22597F 


00340 




LD 


(LINE) ,HL 


STORE IT 


7E1E 


214A7F 


00350 




LD 


HL,PRMPT4 


POINT TO FOURTH PROMPT 


7E21 


CDA37E 


00360 




CALL 


GETINT 


INPUT INCREMENT 


7E24 


22557F 


00370 




LD 


(INC) ,HL 


STORE IT 


7E27 


DD2AF940 


00380 




LD 


IX, (END) 


2+ADDR OF PROGRAM END 


7E2B 


DD2B 


00390 




DEC 


IX 


CORRECT IX TO POINT 


7E2D 


DD2B 


00400 




DEC 


IX 


TO END OF PROGRAM 


7E2F 


3EFF 


00410 


NEWLIN 


LD 


A,0FFH 


ANYTHING > 


7E31 


CD1E7F 


00420 




CALL 


PUTCHR 


FILL LINE POINTER 


7E34 


CD1E7F 


00430 




CALL 


PUTCHR 


•TEMPORARILY 


7E37 


2A597F 


00440 




LD 


HL,(LINE) 


•BASIC LINE* 


7E3A 


7D 


00450 




LD 


A,L 


LINE* LSB 


7E3B 


CD1E7F 


00460 




CALL 


PUTCHR 


•ADD TO PROGRAM 


7E3E 


7C 


00470 




LD 


A,H 


;LINE# MSB 


7E3F 


CD1E7F 


00480 




CALL 


PUTCHR 


■ADD TO PROGRAM 


7E42 


3E88 


00490 




LD 


A, DATA 


•DATA TOKEN 


7E44 


CD1E7F 


00500 




CALL 


PUTCHR 


•ADD TO PROGRAM 


7E47 


CD177F 


00510 




CALL 


PUTSPC 


•ADD SPACE TO PROGRAM 


7E4A 


3E0A 


00520 




LD 


A, LENGTH 


; BYTES PER LINE 


7E4C 


32547F 


00530 




LD 


(BYTE) ,A 


•STORE IT 

Program continues 
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"A Basic program. . . is too slow 

for tasks such as generating 

musical tones or for sorting large arrays." 



data statements have to be computed from 
the hex equivalents and manually entered 
into the program. This can be a very awk- 
ward, error-prone procedure. 

A more exotic method is to store a Basic 
and a machine language program as a 
single machine language program and then 
load the combination program with the Sys- 
tem command. Another method is to store 
the machine language program by imbed- 
ding it in a character string in the Basic pro- 
gram. The problem with these two methods 
is that the combined Basic/machine pro- 
grams are difficult to modify and list due to 
special non-printable characters imbedded 
in the character strings. 

DATGEN Does It All 

The machine language program DATGEN 
simplifies the straightforward approach in 
the Basic manual by automatically generat- 
ing data statements equivalent to a ma- 
chine language program stored in memory. 
DATGEN will take a specified section of the 
computer memory, translate it from hex in- 
to decimal, and then append it as nicely for- 
matted data statements to your Basic pro- 
gram. The assembler source code listing of 
DATGEN and the equivalent Basic program 
that will POKE DATGEN into memory are 
shown in Program Listings 1 and 2. 

The unique feature of the DATGEN pro- 
gram is that it actually writes Basic pro- 
gram lines (DATA. . .) and puts them into 
proper slots in the computer memory to 
make them indistinguishable from Basic 
statements entered directly from the 
keyboard. 

How to Use DATGEN 

Enter DATGEN into computer memory 
either by assembling the source Listing 1 or 
by running the Basic Listing 2 (the data 
statements were, of course, generated by 
DATGEN itself). Then the first time around 
store DATGEN on tape with the T-Bug com- 
mand 'P7E00 7F53 7E00 DATGEN' or a simi- 
lar command if you have a different monitor 
than T-Bug. Before calling DATGEN, enter 
the Basic driver and the machine language 
program to be translated into data 
statements into computer memory via the 
CLOAD and System commands, if the pro- 
grams have been previously stored on tape. 
The machine language program can be 
entered manually by means of T-Bug or 
another monitor program, or even by POKE- 
ing it manually, if the program is not too 
long. 

A typical sequence of operations would 
be as follows: 

• Protect DATGEN by providing Memory 
Size = 32255 (16K system). 

• CLOAD or enter manually your Basic 
driver program. 



7E4F 


2A5B7F 


00540 NEWBYT 


LD 


HL, (MACH) 


ADDRESS OF MACHINE BYTE 


7E52 


46 


00550 


LD 


B, (HL) 


MACHINE BYTE 


7E53 


0E00 


00560 


LD 


C , NODGT 


NO DIGITS YET 


7E55 


1664 


00570 


LD 


D,100 


HUNDRED'S DIGIT 


7E57 


CD057F 


00580 


CALL 


DIGIT 


ADD ASCII TO PROGRAM 


7E5A 


160A 


00590 


LD 


D,10 


TEN'S DIGIT 


7E5C 


CD057F 


00600 


CALL 


DIGIT 


ADD ASCII TO PROGRAM 


7E5F 


0E01 


00610 


LD 


C,DGT 


PUT DIGIT, NOT SPACE 


7E61 


1601 


00620 


LD 


D,l 


UNIT'S DIGIT 


7E63 


CD057F 


00630 


CALL 


DIGIT 


ADD ASCII TO PROGRAM 


7E66 


ED5B577F 


00640 


LD 


DE, (LAST) 


ADDRESS OF LAST BYTE 


7E6A 


CD901C 


00650 


CALL 


CPHLDE 


COMPARE WITH MACH ADDR 


7E6D 


3022 


00660 


JR 


NC,DONE 


JUMP IF LAST BYTE DONE 


7E6F 


23 


00670 


INC 


HL 


POINT TO NEXT BYTE 


7E70 


225B7F 


00680 


LD 


(MACH) ,HL 


STORE IT 


7E73 


21547F 


00690 


LD 


HL,BYTE 


BYTES LEFT IN LINE 


7E76 


35 


00700 


DEC 


(HL) 


ONE LESS 


7E77 


2807 


00710 


JR 


Z,FINLIN 


JUMP IF LINE DONE 


7E79 


3E2C 


00720 


LD 


A, ',' 


SEPARATE DATA 


7E7B 


CD1E7F 


00730 


CALL 


PUTCHR 


ADD TO PROGRAM 


7E7E 


18CF 


00740 


JR 


NEWBYT 


DO NEXT MACHINE BYTE 


7E80 


AF 


00750 FINLIN 


XOR 


A 


END OF LINE 


7E81 


CD1E7F 


00760 


CALL 


PUTCHR 


ADD TO PROGRAM 


7E84 


2A597F 


00770 


LD 


HL, (LINE) 


LINEI 


7E87 


ED4B557F 


00780 


LD 


BC, (INC) 


INCREMENT 


7E8B 


09 


00790 


ADD 


HL,BC 


NEXT LINE* 


7E8C 


22597F 


00800 


LD 


(LINE) ,HL 


STORE IT 


7E8F 


189E 


00810 


JR 


NEWLIN 


DO NEXT LINE 


7E91 


AF 


00820 DONE 


XOR 


A 


ZERO 


7E92 


0603 


00830 


LD 


B,3 


THREE OF THEM 


7E94 


CD1E7F 


00840 OUTZKR 


CALL 


PUTCHR 


ADD TO PROGRAM 


7E97 


10FB 


00850 


DJNZ 


OUTZER 


THREE "0"'S 


7E99 


DD22F940 


00860 


LD 


(END) ,IX 


STORE PROGRAM END PTR 


7E9D 


CDF81A 


00870 


CALL 


FIXPTR 


CALCULATE LINE POINTERS 


7EA0 


C3EF1A 


00880 


JP 


INIT 


RETURN TO BASIC 


7EA3 


E5 


00890 GETINT 


PUSH 


HL 


SAVE PROMPT ADDRESS 


7EA4 


DDE1 


00900 


POP 


IX 


IN IX 


7EA6 


DDE5 


00910 MESS 


PUSH 


IX 


RESTORE PROMPT ADDRESS 


7EA8 


El 


00920 


POP 


HL 


TO HL 


7EA9 


CDA728 


00930 


CALL 


OUTSTR 


DISPLAY PROMPT 


7EAC 


CDB31B 


00940 


CALL 


INPSTR 


INPUT STRING 


7EAF 


3A4038 


00950 


LD 


A,(ROW7) 


BREAK KEY ROW 


7EB2 


CB57 


00960 


BIT 


BREAK, A 


BREAK KEY PRESSED? 


7EB4 


2804 


00970 


JR 


Z, NOBRK 


JUMP IF NOT 


7EB6 


El 


00980 


POP 


HL 


FIX STACK 


7EB7 


C3007E 


00990 


JP 


DATGEN 


START OVER 


7EBA 


110000 


01000 NOBRK 


LD 


DE,0 


INTEGER=0 


7EBD 


CD7 81D 


01010 


CALL 


GETDGT 


GET NEXT CHAR FROM INPUT 


7EC0 


3824 


01020 


JR 


C,DEC 


IF DIGIT, BASE 10 


7EC2 


2832 


01030 


JR 


Z, FINISH 


IF CR, RETURN 


7EC4 


FE48 


01040 


CP 


'H' 


IS IT H(EX)? 


7EC6 


20DE 


01050 


JR 


NZ,MESS 


NO, PROMPT AGAIN 


7EC8 


CD781D 


01060 


CALL 


GETDGT 


GET HEX DIGIT 


7ECB 


380C 


01070 HEX 


JR 


C, NUMBER 


JUMP IF 0-9 


7ECD 


2827 


01080 


JR 


Z, FINISH 


RETURN IF CR 


7ECF 


FE41 


01090 


CP 


'A' 


LESS THAN "A"? 


7 EDI 


38D3 


01100 


JR 


C,MESS 


PROMPT AGAIN IF IT IS 


7ED3 


FE47 


01110 


CP 


'F'+l 


GREATER THAN "F"? 


7ED5 


30CF 


01120 


JR 


NC,MESS 


PROMPT AGAIN IF IT IS 


7ED7 


D607 


01130 


SUB 


7 


CONVERT A-F 


7ED9 


E5 


01140 NUMBER 


PUSH 


HL 


SAVE INPUT BUFFER PTR 


7 EDA 


FDE1 


01150 


POP 


IY 


IN IY 


7EDC 


EB 


01160 


EX 


DE,HL 


HL IS INTEGER 


7EDD 


29 


01170 


ADD 


HL,HL 


MULTIPLY 


7EDE 


29 


01180 


ADD 


HL,HL 


INTEGER 


7EDF 


29 


01190 


ADD 


HL,HL 


BY 


7EE0 


29 


01200 


ADD 


HL,HL 


10H 


7EE1 


CDF87E 


01210 


CALL 


ADDCHR 


ADD CHAR TO INTEGER 


7EE4 


18E5 


01220 


JR 


HEX 


LOOK AT NEXT CHARACTER 


7EE6 


E5 


01230 DEC 


PUSH 


HL 


SAVE INPUT BUFFER PTR 


7EE7 


FDE1 


01240 


POP 


IY 


IN IY 


7EE9 


62 


01250 


LD 


H,D 


COPY INTEGER 


7EEA 


6B 


01260 


LD 


L,E 


TO HL 


7EEB 


19 


01270 


ADD 


HL,DE 


MULTIPLY 


7EEC 


29 


01280 


ADD 


HL,HL 


INTEGER 


7EED 


19 


01290 


ADD 


HL,DE 


BY 


7EEE 


29 


01300 


ADD 


HL,HL 


10 


7EEF 


CDF87E 


01310 


CALL 


ADDCHR 


ADD CHAR TO INTEGER 


7EF2 


38F2 


01320 


JR 


C,DEC 


JUMP IF 0-9 


7EF4 


20B0 


01330 


JR 


NZ,MESS 


PROMPT AGAIN IF NOT CR 


7EF6 


EB 


01340 FINISH 


EX 


DE,HL 


MOVE INTEGER TO HL 


7EF7 


C9 


01350 


RET 




RETURN 


7EF8 


D630 


01360 ADDCHR 


SUB 


•0' 


CONVERT TO HEX 


7EFA 


1600 


01370 


LD 


D,0 


•ZERO MSB 


7EFC 


5F 


01380 


LD 


E,A 


•LSB=CHAR 


7EFD 


19 


01390 


ADD 


HL,DE 


•ADD CHAR 


7EFE 


EB 


01400 


EX 


DE,HL 


•RESTORE INTEGER TO DE 


7EFF 


FDE5 


01410 


PUSH 


IY 


j RESTORE INPUT BUFFER PTR 


7F01 


El 


01420 


POP 


HL 


;TO HL 

Program continues 
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"In case of error, 

press the Break key 

and the prompts will reappear. 

• Load the machine language program 
to be appended to your Basic program 
with the System command. 

• Load the DATGEN program with the 
System command, hit / (enter). 

• Answer ail prompts so that the data 
statement line numbers are higher than 
line numbers in your Basic driver pro- 
gram. 

• List the newly combined program to 
make sure it is errorless. 

• Store it with the CSAVE command and/ 
or run it. 

DATGEN will issue the following prompts: 
First Address— Is the first location of the 
machine language program in decimal or 
hex (if in hex proceed with H); 
Last Address— Last location, as above; 
First Line— First line number for data 
statements, should not interfere with 
your Basic program; 
Increment— Line number increment of 
data statements. 
In case of error, press the Break key and 

the prompts will reappear. After you answer 
the last prompt, DATGEN will run, append 
the data statements and then return to 
Basic with Ready. 

Example 

We want to execute within a Basic pro- 
gram a short routine generating either a 
1500 Hz or a 2500 Hz tone on the tape 
recorder jack (Port 255). We will use the 
machine language program called Music 
shown in Listing 3. To execute this machine 
language program, a Basic driver program 
such as the one shown in Program 4 is nec- 
essary. The driver also issues prompts for a 
1500 or 2500 Hz tone (pressing 'X' turns the 
tone off). 

The data statements will be generated by 
DATGEN with a dialogue like the one in Pro- 
gram Listing 5. We assume that you have a 
TRS-80 Level II Basic with 16K of memory 
and that DATGEN, the tone generating pro- 
gram Music, and the Basic driver program 
have all been stored on tape. User's re- 
sponses are underlined. The resulting pro- 
gram with appended data statements is 
shown in Program Listing 6. It now can be 
saved on cassette. Running the program 
will automatically POKE Music into memory. 

In the above example the machine lan- 
guage program is so short the use of 
DATGEN cannot really be justified. How- 
ever, for longer programs DATGEN can 
save a lot of time and trouble. 

Finally a note of caution: If the machine 
language program to be translated into 
data statements is located in the same area 
in memory as DATGEN (7E00H-7F53H), then 
before loading DATGEN move your pro- 
gram out of the way, below DATGEN, with a 
simple PEEK/POKE loop.B 
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7F02 


C3781D 


01430 




JP 


GETDGT 


;GET NEXT CHAR AND RETURN 


7F05 


78 


01440 


DIGIT 


LD 


A,B 


> MACHINE BYTE REMAINDER 


7F06 


1E2F 


01450 




LD 


E,'0'-1 


; ASCI I OF DIGIT 


7F08 


1C 


01460 


DIV 


INC 


E 


;NEXT DIGIT 


7F09 


92 


01470 




SUB 


D 


; DECREMENT PLACE VALUE 


7FBA 


30FC 


01480 




JR 


NC.DIV 


; AGAIN IF NOT NEGATIVE 


7F0C 


82 


01490 




ADD 


A,D 


,-UNDO EXTRA SUBTRACTION 


7F0D 


47 


01500 




LD 


B,A 


;SAVE REMAINDER 


7F0E 


CB41 


01510 




BIT 


0,C 


; CHECK TO SEE IF DIGIT 


7F10 


200B 


01520 




JR 


NZ, NOSKIP 


;ADD DIGIT IF C IS 1 


7F12 


3E30 


01530 




LD 


A, ■0' 


; ASCI I 


7F14 


BB 


01540 




CP 


E 


; COMPARE WITH DIGIT 


7F15 


2004 


01550 




JR 


NZ, NOSPC 


;ADD DIGIT IF NONZERO 


7F17 


3E20 


01560 


PUTS PC 


LD 


A, ' ' 


;LEFT JUSTIFY WITH SPACE 


7F19 


1803 


01570 




JR 


PUTCHR 


j ADD IT TO PROGRAM 


7F1B 


0E01 


01580 


NOSPC 


LD 


C,DGT 


;SET DIGIT FLAG 


7F1D 


7B 


01590 


NOSKIP 


LD 


A,E 


;CHAR 


7F1E 


DD7700 


01600 


PUTCHR 


LD 


(IX+0) ,A 


7 PUT A IN BASIC PROGRAM 


7F21 


DD23 


01610 




INC 


IX 


; POINT TO NEXT BYTE 


7F23 


C9 


01620 




RET 




; RETURN 


7F24 


46 


01630 


PRMPT1 


DEFM 


'FIRST ADDRESS 


; FIRST PROMPT 


7F31 


00 


01640 




DEFB 





;END OF STRING 


7F32 


4C 


01650 


PRMPT2 


DEFM 


'LAST ADDRESS' 


; SECOND PROMPT 


7F3E 


00 


01660 




DEFB 





;END OF STRING 


7F3F 


46 


01670 


PRMPT3 


DEFM 


•FIRST LINE' 


; THIRD PROMPT 


7F49 


00 


01680 




DEFB 





;END OF STRING 


7F4A 


49 


01690 


PRMPT4 


DEFM 


'INCREMENT' 


; FOURTH PROMPT 


7F53 


00 


01700 




DEFB 





;END OF STRING 


0001 




01710 


BYTE 


DEFS 


1 


; BYTES LEFT IN LINE 


0002 




01720 


INC 


DEFS 


2 


;LINE* INCREMENT 


0002 




01730 


LAST 


DEFS 


2 


jADDR OF LAST MACH BYTE 


0002 




01740 


LINE 


DEFS 


2 


;CURRENT LINE* 


0002 




01750 


HACH 


DEFS 


2 


; CURRENT MACH BYTE ADDR 


7E00 




01760 




END 


DATGEN 


j FINIS 



10 DEFINT B,C 

20 A-0 

30 FOR B-32256 TO 32595 

40 READ CxPOKE B,C:A«A+C 

50 NEXT 

60 IF AO35038 PRINT "ERROR IN DATA STATEMENT" : END 

70 PRINT"DONE, STORE WITH T-BOG 'P7E00 7F53 7E00 DATGEN' " 

80 DATA 205,201, 1, 33, 36,127,205,163,126, 34 

90 DATA 91,127, 33, 50,127,205,163,126, 34, 87 

100 DATA 127, 33, 63,127,205,163,126, 34, 89,127 

110 DATA 33, 74,127,205,163,126, 34, 85,127,221 

120 DATA 42,249, 64,221, 43,221, 43, 62,255,205 

130 DATA 30,127,205, 30,127, 42, 89,127,125,205 

140 DATA 30,127,124,205, 30,127, 62,136,205, 30 

150 DATA 127,205, 23,127, 62, 10, 50, 84,127, 42 

160 DATA 91,127, 70, 14, 0, 22,100,205, 5,127 

170 DATA 22, 10,205, 5,127, 14, 1, 22, 1,205 

180 DATA 5,127,237, 91, 87,127,205,144, 28, 48 

190 DATA 34, 35, 34, 91,127, 33, 84,127, 53, 40 

200 DATA 7, 62, 44,205, 30,127, 24,207,175,205 

210 DATA 30,127, 42, 89,127,237, 75, 85,127, 9 

220 DATA 34, 89,127, 24,158,175, 6, 3,205, 30 

230 DATA 127, 16,251,221, 34,249, 64,205,248, 26 

240 DATA 195,239, 26,229,221,225,221,229,225,205 

250 DATA 167, 40,205,179, 27, 58, 64, 56,203, 87 

260 DATA 40, 4,225,195, 0,126, 17, 0, 0,205 

270 DATA 120, 29, 56, 36, 40, 50,254, 72, 32,222 

280 DATA 205,120, 29, 56, 12, 40, 39,254, 65, 56 

290 DATA 211,254, 71, 48,207,214, 7,229,253,225 

300 DATA 235, 41, 41, 41, 41,205,248,126, 24,229 

310 DATA 229,253,225, 98,107, 25, 41, 25, 41,205 

320 DATA 248,126, 56,242, 32,176,235,201,214, 48 

330 DATA 22, 0, 95, 25,235,253,229,225,195,120 

340 DATA 29,120, 30, 47, 28,146, 48,252,130, 71 

350 DATA 203, 65, 32, 11, 62, 48,187, 32, 4, 62 

360 DATA 32, 24, 3, 14, 1,123,221,119, 0,221 

370 DATA 35,201, 70, 73, 82, 83, 84, 32, 65, 68 

380 DATA 68, 82, 69, 83, 83, 0, 76, 65, 83, 84 

390 DATA 32, 65, 68, 68, 82, 69, 83, 83, 0, 70 

400 DATA 73, 82, 83, 84, 32, 76, 73, 78, 69, 

410 DATA 73, 78, 67, 82, 69, 77, 69, 78, 84, 

Program Listing 2. This program will POKE the program DATGEN into memory. 



0A7F 




00100 


GETARG 


EQU 


0A7FH 


;GET ARG FROM BASIC 


0001 




00110 


HI 


EQU 


1 




00FF 




00120 


PORT 


EQU 


0FFH 


; CASSETTE PORT 


3808 




00130 


ROW4 


EQU 


3808H 


;"X" KEY 


7000 




00140 




ORG 


7000H 


; -28672 DECIMAL 


7000 


CD7F0A 


00150 


START 


CALL 


GETARG 


;GET VALUE FROM USR(X) 


7003 


0E01 


00160 




LD 


C f HI 


;TEMP. STORAGE 


7005 


3E03 


00170 


SPKR 


LD 


A, 3 




7007 


A9 


00180 




XOR 


C 


;FLIP HI TO LO, LO TO HI 


7008 


4F 


00190 




LD 


C f A 




7009 


D3FF 


00200 




OUT 


(PORT) , A; OUTPUT 


700B 


45 


00210 




LD 


B,L 


;LOAD DELAY LOOP 


700C 


10FE 


00220 


DEL 


DJNZ 


DEL 


; WASTE TIME 


700E 


3A0838 


00230 




LD 


A, (ROW4 


; CHECK FOR "X" 


7011 


IF 


00240 




RRA 






7012 


30F1 


00250 




JR 


NC,SPKR 


; CONTINUE 


7014 


C9 


00260 




RET 




j RETURN TO BASIC 


7000 




00270 




END 


START 




Program Listing 3. Assembled 180 source code of the demonstration program 


Music 













10 

20 
30 



'DATGEN DEMO PROGRAM FOR TRS-80 BY DAN AND CASS LEWART 

'JUNE 16, 1980 

•LET PROGRAM SET MEMORY SIZE 
40 POKE 16562 r lll:POKE 16561, 254tCLEAR 50 
50 CLS:DEFINT A-Z 

60 'POKE FREQUENCY GENERATING PROGRAM (FIG. 3) 
70 FOR A-28672 TO 28692: READ BtPOKE A,B:NEXT 
80 'SET USR(L) VECTOR 
90 POKE 16527, 112: POKE 16526,0 

100 'PROMPT FOR TONE #1 (1500 HZ) OR #2 (2500 HZ) 
110 CLS:PRINT8465, ,, TONE NUMBER (1 OR 2) ?"CHR$ (14) ; 
120 C$«INKEY$ 

130 'PROMPT TILL YOU GET "1" OR "2" 
140 IF C$<>"1" AND C$<>"2" THEN 120 
150 PRINT C$;CHR$(15); 

180 'DETERMINE ARGUMENT FROM THE FOLLOWING APPROXIMATION: 
'L - INT(69000/FREQUENCY - 4.1) 
'L(1500) - 41 L(2500) - 23 
210 IF C$»"l" THEN L-41 
220 IF C$«"2" THEN L-23 

230 'CALL FREQUENCY GENERATING ROUTINE, TO EXIT PRESS "X" 
240 D-USR(L) 
250 GOTO 110 



190 
200 



Program Listing 4. Driver program for Music without data statements 



10 'DATGEN DEMO PROGRAM FOR TRS-80 BY DAN AND CASS LEWART 

20 'JUNE 16, 1980 

30 'LET PROGRAM SET MEMORY SIZE 

40 POKE 16562, lll:POKE 16561, 254: CLEAR 50 

50 CLS:DEFINT A-Z 

60 'POKE FREQUENCY GENERATING PROGRAM (FIG. 3) 

70 FOR A-28672 TO 28692:READ B:POKE A,B:NEXT 

80 'SET USR(L) VECTOR 

90 POKE 16527, 112:POKE 16526,0 

100 'PROMPT FOR TONE #1 (1500 HZ) OR #2 (2500 HZ) 

110 CLS:PRINT@465,"TONE NUMBER (1 OR 2) ?"CHR$(14) ; 

120 C$=INKEY$ 

130 'PROMPT TILL YOU GET "1" OR "2" 

140 IF C$<>"1" AND C$<>"2" THEN 120 

150 PRINT C$;CHR$(15); 

180 'DETERMINE ARGUMENT FROM THE FOLLOWING APPROXIMATION: 

190 'L ■ INT(69000/FREQUENCY - 4.1) 

200 'L(1500) - 41 L(2500) -= 23 

210 IF C$«"l" THEN L=41 

220 IF C$-"2" THEN L-23 

230 'CALL FREQUENCY GENERATING ROUTINE, TO EXIT PRESS "X" 

240 D-USR(L) 

250 GOTO 110 

300 DATA 205,127, 10, 14, 1, 62, 3,169, 79,211 

310 DATA 255, 69, 16,254, 58, 8, 56, 31, 48,241 

320 DATA 201 

Program Listing 5. Driver from Listing 4 with appended data statements 




TAKE 

YOU 

BEYOND 

p-THE^l 
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ire serious about 
expanding the horizons of your 
TRS-80*, then our professional 
quality software programs are 
for you: 

M-ZAL: DISK EDITOR/ ASSEMBLER: 

full screen editing; modular source and 
object; relocation; link editing; symbol 
table with XREF; 8 character symbols: 
Mod 1 32k disk #1050-10 $149.00 
Mod 3 32k disk #1250-10 S149.00 

T-ZAL: TAPE BASED ASSEMBLER: 

supports relocatable object; Symbol 
table with XREF, Relocating Loader: 
Mod 3 #1250-20-$49.95 

FULL SCREEN PROGRAM TEXT 
EDITORS: full cursor and scrolling 
control; block move/copy/delete; global 
find and change, 26 macro keys: 
For tape and disk BASIC: 
Mod 1 #1010-20-824.95 
Mod 3 #1210-20-$29.95 
For E0TASM source files: 
Mod 1 #1010-31 -$34.95 

XBUG: Self-Relocating Debug Tool and 
Monitor: with multi-speed single step 
feature, 10 invisible breakpoints: 
Mod 1 #1020-10-519.95 
Mod 3 #1 220-1 0-S1 9.95 

Note: these products are not available for 
level 1. 

When ordering specify Model, RAM size, 
# of disks. 

Send check, money order, or MC/VISA 
numbers and expiration date to: 
Computer Applications Unlimited 
P.O. Box 214, Dept. 600 
Rye, New York 10580 



B 



N.Y. State residents add applicable sales 
tax. Allow 4-6 weeks for delivery. 
Dealer Inquiries Invited. 

COMPUTER 
APPLICATIONS 
UNLIMITED tm 

A Oiv. ot CAU , IlK. 

Quality Reliability Service 

'TRS-80 is a TM of Tandy Corp. 



VSI0I flllfUHIO 

OL 



^■See List ot Advertisers on page 322 
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• • • EVERYTHING For Your TRS-80* Model I or Model III • • • 



TRS-80" is a trademark of Tandy Corp 



Inc 



• All orders processed within 24 Hours 

• 30-Day money back guarantee 

• Add S3 00 for shipping in UPS Areas 
• Add S4 00 for CO D or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 



Let Your TRS-80™ 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80 ™ 
i ASSEMRLY LANGUAGE 

DISK 1/0 


REMASSEM-1 

Tired of buying book after book on assembly language programming and 
Still not knowing your POP from your PUSH? 

REMSOFT proudly announces a more efficient way. using your own 
TRS-80" to learn the fundamentals of assembly language programming 
at YOUR pace and at YOUR convenience 
Our unique package "INTRODUCTION TO TRS-80 " ASSEMBLY j 

PROGRAMMING", will provide you with tne following 

* Ten 45-minute lessons on audio cassettes 

* A driver program to make your TRS-80" video monitor serve as a 
blackboard tor the instructor 

* A display program for each lesson to provide illustration and rein- 
forcement for what you are hearing j 

* A textbook on TRS-80" Assembly Language Programming it 

* Step-by-step dissection of complete and useful routines to test 
memory and to gain direct control over the keyboard, video mom- | 
tor. and printer 

* How to access and use powerful routines in your Level II ROM 
This course was developed and recorded by Joseph E Willis and is based 
on the successful series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and other locations in | 
Northern Ohio The minimum system required is a Level II 16K RAM | 


REMDISK-1 

Your disk system and you can really step out with REMSOf I •■ Educational 
Module. REMDISK-1. a short course' revealing the details of DISK I/O 
| PROGRAMMING using assembly language 

Using the same format as our extremely popular introduction toassem- 
bly language programming, this "ASSEMBLY LANGUAGE DISK I/O 
| PROGRAMMING" course includes 

* Two 45-mmute lessons on audio cassette 

* A driver program to make your TRS-80" video monitor serve asa 
blackboard for the instructor 

* A display program for each lesson to provide illustration and rein- 
forcement for what you are hearing 

* A booklet of comprehensive, fully-commented program listings 
illustrating sequential file I/O. random-access file I/O. and track 

1 and sector I O 

j * A diskette with machine-readable source codes for d!i programs 
discussed in both Radio shack EDTASM and Macro formats 

I * Routines to convert from one assembler format to the other 

This course was developed and recorded by Joseph E Willis, for the 
student with experience in assembly language programming it is an 
intermediate-to advanced-level course Minimumhardwarerequiredisa 
Model 1 Level II. 16K RAM one disk drive system 






J 






iEBMRITHQKttCSI ~ 

50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

PLEASE SEND ME: 

DREMASSEM-1 (TRS-80 MODEL I CASSETTE) 
DREMASSEM-1 (TRS-80 MODEL I DISKETTE) . 
DREMASSEM-1 (TRS-80 MODEL III CASSETTE) 
DREMASSEM-1 (TRS-80 MODEL III DISKETTE) 
DREMDISK-1 (TRS-80 MODEL I DISKETTE) ... 
DREMDISK-1 (TRS-80 MODEL III DISKETTE) . . 




€& 



$69 95 
$74 95 
$74 95 
$79 95 
S29 95 
$34 95 



HOUR 
24 ORDER 
LINE 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 



CREDIT CARD NUMBER EXP DATE 

SIGNATURE NAME 



ADDRESS CITY STATE ZIP. 

•" ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE ••• 
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* TRS-80'" is a trademark of the Radio Shack Dn 

MOD-II PROGRAMS 



* TRS-80'" is a trademark of the Radio Shack Division of Tandy Corporation 

* All orders processed within 24-Hours 
• 30-Day money back guarantee on all TRSDOS Software 
■kAdd $3.00 for shipping in UPS Areas 
it Add $4.00 for COD. or NON-UPS Areas 
•Add $5.00 outside U.S.A., Canada & Mexico 
■k We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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M) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing and 
printer tormatting features $325 (STANDARD 
TRSDOS VERSION) $350 (DIABLO. NEC OR OUME 
TRSDOS VERSION) 

(2) GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE, INVENTORY CONTROL, 
INVOICING AND PAYROLL (Small Business Systems 
Group) an extensive business system for the serious 
user can be used one module at a time or as a co- 
ordinated system $225 per module $1299 for the 
complete system 

(3) GENERAL LEDGER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax) a complete user ori- 
ented business system can be used one module at a 
time or as a coordinated system $140 per module 
$995 for the complete system 

(4) MOD-II UTILITY PACKAGE (Racet Computes) 
adds important utilities to TRSDOS copy files 
selectively faster and more accurate file copying 
repair bad directories displays sorted directory of 
all files on 1 to 4 disk drives SUPERZAP change 
disk ID and more $150 

(5) ADVENTURE »1-»9 (Scott Adams - Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way through a maze of obstacles in order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams $99 95 

(6) GSF (Racet Computers) Generalized Subroutine 
Facility a series of super fast machine language 
utilities that can be called from a BASIC program (no 
machine language knowledge required) sorts 1000 
items in under 5 seconds allows PEEK and POKE 
statements move data blocks compress and un- 
compress data works under TRSDOS $50 

(7) DSM (Racet Computes) Disk Sort Merge sorts 
and merges large multiple diskette files on a 1 to 4 
drive system NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type of sort) 4 disk 
drives worth of data sorts one complete disk of 
information in 10 minutes information is provided to 
use DSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(8) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used to 
see and modily memory or disk sectors contains all 
the commands found on the Model-I version plus 
some additional commands for the MOD-II works 
under TRSDOS $39 95 

(9) BLINK BASIC LINK FACILITY (Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 

$50 

(10) BASIC CROSS REFERENCE UTILITY (Racet 
Computes), lists all variables and strings used in a 
program (with the line numbers in which they appear) 

lists all GOTOs and GOSUB's (with the line num- 
bers in which they appear) searches for any specific 
variables or strings (with the line number in which 
they appear) $50 

(11) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (to see. print or change any byte on a 
diskette) Disassembler and MOD-II interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk I/O assemble 
directly into memory save all or portions of source 
to disk dynamic debug facility (ZBUG) entended 
editor commands $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The software essential to interface any of the popular 
large hard disk drives completely compatible with 
your existing software and files allows up to 20 
megabytes ofstorage (and larger) directory expand- 
able to handle thousands of files $400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1') 

(14) HARD DISK DRIVES coming soon (Nov 1?) 

(15) H • E COMPUTRONICS. INC. SHARE-A- 
PROGRAM DISKETTE HI works under TRSDOS a 
collection of programs written by MOD-II owners 
programs include data base management a word 
processor mail system mortgage calculations 
checkbook register and many others $8 (add $3 
postage outside of the United States, Canada and 
Mexico) FREE if you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(16) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 
50 diskettes comes complete with index-dividers, tilt 
plates and ad|ustable spacing $44 95 

(18) MASTER PAC 100 100 essential programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORY CONTROL PAYROLL 
BOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and two diskettes $149 95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd ) 
the first user oriented Editor Assembler for the 
MODEL II and was designed to utilize all the features 
of the MODEL II It includes innovative features for 
ease of coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 

$229 00 

(21) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

(22) MAIL/FILE SYSTEM from Galactic Software Ltd 
stores 2.500 names per disk No sorting time is 
required since the file is automatically sorted by first 
and last name plus Zip Code on input Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumenca Zip Supports a message line Comes 
complete with user-oriented documentation (100- 
page manual) Allows for company name and individ- 
ual of a company and complete phone number (and 
extension) works under TRSDOS $199 00 

(23) INCOME TAX PAC Professional income tax 
package most forms and schedules output to video 
or line printer automatic memory storage of all 
information data can be loaded Irom diskette, 
changed and edited built In error checking $199 95 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine. Star-Trek III. Concentration. Treasure Hunt. 
Banco. Dog Star Adventure $74 95 
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(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II that allows MOD-II 
owners to use any of the hundreds of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 
guide to CP/M takes the reader through each of the 
CP/M commands numberous sample programs 
practical hints reference tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 
AND PAYROLL (Peachtree Software) requires CP/M 
and MICROSOFT BASIC professional business 
systems turn key operation can be used as single 
modules or as a coordinated system $500 per 
module $2500 tor the complete system 

(4) WORD-STAR The ultimate word processor a 
menu driven word processing system that can be used 
with any printer All standard word processing 
commands are included plus many unique com- 
mands only found on WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send form letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP/M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CP/M. WORD STAR and 
andy CP/M based mail program $150 

(6) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes 
manages any list defined by the user includes 
additional modules for simplified inventory control, 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system all features use the SELECTOR 
III plus data file format conversions full page report 
formatter computations global search and replace 

hard disk compatible oata/text merging $550 

(8) GLECTOR (Micro-Ap) add on package to the 
SELECTOR general ledger that allows the user to 
define a customized chart of accounts $350 

(9) CBASIC-2 a non-interactive BASIC used for 
many programs that run under CP/M allows user to 
make more efficient use of disk files eliminates the 
use of most line number references require on such 
programs as the SELECTOR $120 

(10) MICROSOFT BASIC an enhanced version of the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user to LOAD 
and RUN a new program without losing the variables 
currently in memory) long variable length file 
records WHILE/WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
times faster execution) $325 

(11) MASTER TAX (CPAids) professional tax 
preparation program prepares schedules. A. B. C. D. 
E F G.R/RP. SE. TC. ES and forms 2106. 2119. 2210. 
3468. 3903. 2441. 4625. 4726. 4797. 4972. 5695 and 
6521 Printing can be on readily available pre-printed 
continuous forms, on overlays, or on computer 
generated IRS approved lorms Maintains dint history 
files interactive with CP/Aids General Ledger $995 

(12) GENERAL LEDGER II (CPAids) designed tor 
CPA's stores complete 12 month detailed history of 
transactions generates financial statements, 
depreciation, loan amortizations, lournals. trial 
balances, statements of changes in financial position, 
and compilation letters includes payroll system with 
automating posting to general ledgers prints 
payroll register. W2s and payroll checks $450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Standard 
printer version) $300 (DIABLO. NEC or OUME 

version) 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

• (CP/M IS A REGISTERED TRADEMARK 
OF DIGITAL RESEARCH) 
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NEW!!! 

MOD-II NEWSLETTER 
$12/year Cor 12 issues) 
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100 sc**l MASTER PAC 100 

tlflOGl^^ [«nd EDITION (COMP LETELY REVISE D} 

FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 

ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 

1. CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3 FEDERAL FICA & WITHHOLDING TAX 

3 COMPUTATIONS 

4 HOME BUDGET ANALYSIS _-, 

5 ANNUITY COMPUTATION .tClUES' 
6. UNIT PRICING Rl 1 ***^ 

7 CHANGE FROM PURCHASE "^ 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 

11 INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 
15. FUTURE VALUE OF AN INVESTMENT 
16 EFFECTIVE INTEREST RATE (LOAN) 

17. PRESENT VALUE OF A FUTURE AMOUNT 
18 RATE OF RETURN VARIABLE INFLOW 

19. RATE OF RETURN CONSTANT INFLOW 

20. REGULAR WITHDRAWAL FROM INVESTMENT 
21 STRAIGHT LINE DEPRECIATION 

22. SUM OF DIGITS DEPRECIATION 

23 DECLINING BALANCE DEPRECIATION 

24 BREAK EVEN ANALYSIS 

25 SALVAGE VALUE OF INVESTMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 
28. CREDIT CARD FILE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30 VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32. MONTHLY CALENDAR 

33. DAY OF WEEK 

34. CASH FLOW VS DEPRECIATION 

35. COMPLETE MAIL SYSTEM 
36 INTEREST RATE ON A LEASE 



T 1 S T1CS 



finance 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 

38 ANGLO METIC CONVERSION 

39 MEAN. STANDARD DEVIATION. 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 

45 SIMPLE T TEST _«« * ' 

46 CHI SQUARE TEST S » ** 
47. NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPLICATION 

54 SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56. LINEAR EQUATION SOLUTIONS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTON'S METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN DEGREE CONVERSION 

63. NUMERICAL INTEGRATION 

UTILITIES 

64. QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68. SHELL SORT 

69. CASSETTE LABEL MAKER 
70 CODES MESSAGES 

71. MERGE TWO FILES 

72. SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 

74 DRAWS HISTOGRAM 

75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 

77. GOVERNMENT QUIZ 

78. HORSE RACE 

79. MAGIC SQUARE 

80. ARITHMETIC TEACHER 
81 HIGH LOW GAMBLE 
82. UNSCRAMBLE LETTERS 
83 HANGMAN 

84. GAME OF NIM 

85. RUSSIAN ROULETTE 

86 ROULETTE GAME 

87 ONE ARMED BANDIT 

88. HIT THE TARGET 

89. WALKING DRUNK 

90 STATE CAPITAL QUIZ 

91. TIC TAC TOE 

92. DICE GAME 

93. LUNAR LANDAR GAME 

94. BIORHYTHM 

95 HORSE SELECTOR (CLASS CALCULATOR) 

96. RANDOM DICE ROLL 

97. RANDOM ROULETTE ROLL 

98. RANDOM CARD DEALER 

99. GUESS THE NUMBER 
100. WHITE OUT SCREEN 



oambuh 6 



lt O PAGE 
USEE 



~~ZZZ> 



GUARANTEED SATISFACTION 

30-DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



•CQMPLJTRQNXCS 



NA*TV^tV1*TcLAl A**Vt>»Ti 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

PLEASE SEND ME: 

D MASTER PAC 100 CASSETTE VERSION $59.95 

□ MASTER PAC 100 DISKETTE VERSION $59.95 

D MASTER PAC 100 (TRS-80 MODEL II VERSION) $99.95 



--^ i ^ . HOUR 
Mfm\24 ORDER 
LINE 

(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N.Y. STATE) 

(800) 431-2818 

* All orders processed within 24-Hours 

• 30-Day money back guarantee on all Software 




CREDIT CARD NUMBER EXP. DATE. 



SIGNATURE . 



NAME 

ADDRESS CITY STATE ZIP 

••• ADO $3.00 FOR SHIPPI NG IN UPS AREAS • ADO $4.00 FOR C.O.D. OR NON-UPS AREAS • ADD $5.00 OUTSIDE U.S.A, CANADA & MEXICO 
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CQMPUTRQNICS": 

EVERYTHING FOR YOUR TRS-80 • 

^ S- W m '** TR»ao to aTVadfmark^T ih e Radio Shack Division of Tandy Corporation 

BUSINESS PAC 100 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations 

Checkbook Maintenance.... Accounts Recehrable.....Accounts Payable 

BUSINESS 100 PROGRAM LIST 



1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNO 1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 I FARFINT friterest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL Straightline depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with daily register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortization table 

1 5 MULTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

1 7 RRVAR1N Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

19 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SIMPDISK Simple discount analysis 

25 DATEVAL Equivalent & nonequivalent dated values for oWig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for terns 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVAL Value of a warrant 

34 BONDVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE1 Portfolio selection model-i.e. what stocks to hold 

38 OPTWRITE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALAD1NF Value of additional information 

44 UTILITY Derives utility function 

45 SIMPLEX Linear programming solution by simple* method 

46 TRANS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Costvokimeprofit analysis 

50 CONDPROF CondWonal profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fbted quantity economic order quantity model 

NAME DESCRIPTION 

53 FQEOWSH As above but with shortage* permitted 

54 FOEOOro A» above but wHh quantity price breaks 

55 QUEUECB Coat-beneAt watting line analysis 

56 NCFANAL Net caaMtow a nalysis far simple Investment 

57 PROFIND ProltaMKy Index of a project 

58 CAP! Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRINDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 T1METR Time series analysis linear trend 

69 T1MEMOV Time series analysis moving average trend 

70 FUPRINF Future price estimation with inflation 

71 MA1LPAC Mailing list system 

72 LETWRT Letter writing system-links with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL 1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 T1MECLCK Computes weeks total hours from timeclock info 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC In memory accounts receivable system storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay required for given net 

87 SB I PR Computes selling price for given after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 INSFILE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale^seback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storage-valuation program 



□ CASSETTE VERSION $99.95 

□ DISKETTE VERSION $99.95 
D TRS-80* MODEL D VERSION $149.95 

ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A. CANADA & MEXICO 



N£ W TO U _ Ff , E(t 



«• «>-£« 



•CQK1RJTRDJ50CS! 




MA-ri-0^rr<lAi. AP«*JCAT«H6 sconce 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



HOUR 

O A 0B0 ER 
^ LINE 
^ (914) 425-1535 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 

TRS-80 Is a trademark of (he Radio Shack Division of Tandy Corporation 

* All orders processed within 24-Hours 
^%^%^%W& TW^T Ik »■%■ . ' ^% * 30-Day money back guarantee on all Software 
WUUIUJlnA J. mLmJ * Add $300 for shipping in UPS Areas 

• Add $4.00 for C.O.D. or NON-UPS Areas 
RTJC| Yltf ¥7 C|C * Add $500 outside U.S.A., Canada & Mexico 

SMALL BUSINESS - 

SYSTEMS 



SYSTEMS GROUP 




V/SA* 




FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1. S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2. Each of the S.B.S.G. Business Modules may be purchased separately. ..or you may purchase the entire coordinated business system. 

3. Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee, the user may upgrade his 
individual modules for the coordinated system). 

4. Foolproof, Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step. 

5. Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system. 

6. A complete users manual is supplied with each module. 

7. Demo Data diskettes are supplied with sample data. 

8. S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail). 

9. First-Time Computer Owners Note-Instructions are provided for entering state payroll withholding tables. There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data. 

10. Minimum system requirement is 2-drives to run any single module. 

11. Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL). 

12. Minimum system requirement is 4-drives to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING). 

13. The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual). 

14. The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15. Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING. 

16. Memory requirement is 48K for the MODEL-I and 64K for the MODEL-II. 

1 7. All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives. No data is ever lost during an upgrade. There is a standard S.B.S.G. 
charge for all upgrades. 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. In 
addition, it produces cash management reports. This system aids in 
tight financial control over all cash disbursements of the business. 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements. All 
A/P data feeds General Ledger so that data is entered into the system 
just once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then. The package has been converted to the TRS-80'* and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems). 

CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice; handles 
new invoice or credit memo or debit memo 

* invoce information recorded; invoice #, description, buyer, check 
register #, invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A/R system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales while minimizing losses from bad debts. The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer. They have been tested in 
many environments since then. Each module can be used stand alone 
or can feed General Ledger for a fully integrated system. 
CAPABILITIES: 

• menu driven; easy to use; full screen prompting and cursor control 

• invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

• allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

• allows for progress payment 

• transaction information includes: 

• type of A/R transaction • billing date 

• customer P.O. # • general ledger account number 

• description of P.O. • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

• customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

• reports include: (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

• fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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TRS-80 is a trademark of thr Radio Shark Division of Tandy Corporation 



PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies. It is an ideal candidate for the computer. With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions. The package has been converted to the TRS-80™ and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 
CAPABILITIES: 

• performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

• can handle salaried and hourly employees 

• employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

• employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

• special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

• health and welfare deductions can be automatically calculated for 
each employee 

• earnings-to-date are accumulated and added to permanent records: 
taxes are computed and deducted: US income tax, Social Security 
tax, state income tax, other deductions (regular or one time) 

• paychecks are printed; computer checks with your company letter- 
head can be purchased from SBSG 

• calculations are accumulated for; employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

• fully linked to General Ledger. Each employee's payroll information 
can be distributed to as many as (12) twelve different GL accounts; 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

• ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

• Pre-Allocated Files for IMMEDIATE update and inquiry capabilities. 

• Fast Disk storage and retrieval. 

• Inventory Master Record includes. ..class ...SKU... Division. ..Retail... 
Cost. ..Beginning Balance. ..Period Sale Units. ..Period Receipts. ..On 
Order. ..On Hand. ..Minimum Reorder Point. ..Recommended Re- 
order Amount. ..Vendor Number. ..Period Sale Dollars. ..YTD Sale 
Units.. .YTD Sale Dollars. 

• Calculated and Displayed Formulas include. ..Gross Margin ($)... 
Gross Margin (%)... Gross Margin ROI (%)... Average Inventory Retail 
($)... Average Inventory Cost ($)... Turn-Over (%). 

• Reports Generated include. ..Master File Listing. ..Class Description 
Listing, ..Transaction Audit Trail. ..Minimum Reorder Point by Ven- 
dor. Retail Price List. ..Retail & Cost Price List. ..Period Sales Report 
...Year to Date Sales Report. ..Stock Status (Screen or printer output) 
...Commission Report (for salesmen and buyers). 

• Transaction Types include. ..Sales, Vendor Receipts. ..Vendor 
Orders. ..Customer Returns. ..Vendor Returns. ..Transfer Stock. 



GENERAL LEDGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems (A/R, A/P, Payroll, direct posting) in 
an accurate and timely manner. Major reports include the Income State- 
ment and Balance Sheet and a "special'' report designed by manage- 
ment. The beauty of this General Ledger system is that it is completely 
user formatted. You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements. These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then. The package 
has been converted to the TRS-80'" and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems. 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R, A/P. Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



PRICING MOD-1 MOD-II MOD-III 

khi^inu VERSION VERSION VERSION 

ACCOUNTS RECEIVABLE 5125 $225 $199.95 

ACCOUNTS PAYABLE 5125 $ 225 $199.95 

GENERAL LEDGER 5125 $225 $199.95 

PAYROLL $125 $225 $19995 

INVENTORY 5175 $275 $199.95 

INVOICING 5150 $250 $199.95 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 $749 $599.95 

COORDINATED AR-AP-GL 5375 $675 $599.95 

COORDINATED AR-AP-GL with PAYROLL 5495 $899 $799.95 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 $1299 $1199.95 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



TRS 80'" IS A TRADEMARK OF TANDY CORP 



SOFTWARE 

FOR TRS-80 ' 

OWNERS 



H 



CQMPLITRQNICS 



| MONTHLY 

|| NEWSMAGAZINE 

C. 



FOR TRS-80 • 
OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & III 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARTICLES PUBLISHED IN RECENT ISSUES 
INCLUDE THE FOLLOWING: 

• FINCAl.C A COMPLETE FINANCIAL APPLICATIONS PACKAGE 

• INFORMATION SYSTEM REVIEW 

• STATISTICAL COMBINATIONS 

• PASCAL'S TRIANGLE 

• ASSEMBLY LANGUAGE FOR BEGINNERS 

• DISK FILES 

• MOD III REVIEW 

• KEYBOARD THUNDER AND LIGHTING EXPI AINED 

• DOS COMMANDS IN LEVEL II 

• PROBABILITY CURVE GENERATOR 

• CALCULATOR SIMULATIONS 

• THE MEGABYTE GAP 

• STOCKS AND BONDS 

• BUDGET ANALYSIS (FOR BUSINESS AND HOME) 

• NEWDOS 80 REVIEW 

• DUTCHING THE HORSE SYSTEM THAT CAN' I LOSE 

• A SIMULA LED GOLF GAME 

• CONTINUOUS FORM SOURCES 

• TAX SAVER REVIEW 

AND MORE 



<>»»»»»»»»»»»»%»»» »»»»»»»»»»»»<■ 



0tf# 



* t£* <* 1F1NCALC 

" \psC^ *^° Calculate Markup, Margin, Annuities, Compound Interest, Nomina 

S" O^ - And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 



A Complete Financial Analysis Package Used 



*t 



t^CV Savings and Insurance, Percentage Difference Between Two Numbers, 
Amortization Schedule and More 



SEND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS 80" PROGRAMS AVAILABLE ON 
CASSETTE AND DISKETTE) $2.00 OR FREE WITH EACH SUBSCRIPTIONS OR SAMPLE ISSUE 



* All programs are supplied on cassette (add $3 for Diskette Version - add $5 for modified Mod-ll Version). 



iCQMRJTRQNICS": 



^9 



WV«MA'l 



50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

(a I July 1978 • *12 June 1979 • »24 July 1980 • «30 January 1981) 

NEW SUBSCRIPTION RENEWAL 



CREDIT CARD NUMBER 
SIGNATURE 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



NEW!!! 

MOD II NEWSLETTER 
$1 8/year Cor Vt issues) 



HOUR 
24 ORDER 
LINE 



iHS (914) 425-1535 





.EXP DATE 



NAME 



ADDRESS 



.CITY. 



..STATE . 



ZIP. 



ADD S12/YEAR (CANADA, MEXICO) - ADD S24/YEAR AIR MAIL - OUTSIDE OF USA, CANADA & MEXICO 
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MODEL III 



* All orders processed within 24-Hours _ 

* 30-Day money back guarantee on all TRSDOS Software 
* Add $2.00 for shipping in UPS Areus 
* Add $4.00 for COD or NON-UPS Areas 
* Add $5.00 outside USA., Canada & Mexico 
* We will match any honafide advertised price 
in any of the Major Computer Magazines 



' TRS-80 h a trademark of Tandy Corp. 



(1) GENERAL LEDGER, ACCOUNTS RECEIVABLE, ACCOUNTS PAYABLE, PAYROLL, 

INVENTORY CONTROL AND INVOICING (Small Business Groupl an extensive business 
system lor the serious user can be used one module at a time or as a coordinated system 
$199.95 per module $1199.95 lor the complete system ' 



(2) MASTER PAC 100 100 essential programs 
STATISTICS MATH GAMBLING GAMES 



BUSINESS PERSONAL FINANCE 
includes 125 page manual and 5 diskettes 
$59.95 



(3) BUSINESS PAC 100 100 essential business programs INVENTORY CONTROL PAY- 
ROLL BOOKKEEPING SYSTEM STOCK CALCULATIONS CHECKBOOK MAINTEN- 
ANCE ACCOUNTS RECEIVABLE ACCOUNTS PAYABLE includes 125 page manual 
and five diskettes $99.95 

(4) INFORMATION SYSTEM (The Bottom Shell) An in-memory information system lor small 
mailing lists, inventories (i.e books, articles, records, program relerence tiles) Can be used 
for anything that you would use rolodex or index card files Up to ten user define fields 
Programmable printouts for rolodex cards mailing labels, etc Will identify all records lhat 
contain a group of characters you ve entered even if that group is in the middle of a line Sorts 
data base by any field $49.50* 

(5) DATA MANAGER II (The Bottom Shelf) RANDOM ACCESS Disk based DATA MANAGE- 
MENT SYSTEM (Similiar to INFORMATION SYSTEM above but RANDOM ACCESS 
STORAGE expands the amount of storage space available) Used to replace index cards for 
medium sized mail lists, inventories, personnel records, sales prospects, etc Uses up to four 
disk drives on line Up to twenty user defined fields, programmable printouts lor rolodex 
cards, etc will identity all records that contain a group ol characters you've entered even if 
that group is in the middle of a line maintain up to 5 changeable presorted "key" files 
variable length random records (the smaller the record you detme. the more records yu can 
store) $99.95* 

(6) BUSINESS MAIL SYSTEM (The Bottom Shelf) Handles large mailing lists (up to 150.000 
names) supports 3 or 4 line addresses files automatically in zip code order, alphabetical 
within zip code formats for 1 to 4 across mailing labels supports quick disk location ol 
single or multiple names meets all industry and postal standards numeric code fields 
included for printing selected records $125.00" 

(7) ANALYSIS PAD (The Bottom Shelf) A Columnar Calculator for financial analysis, line item 
budgeting, cost analysis, sales analysis and almost any financial function (and many statistical 
functions) create matrixes of 29 ■ 39 makeallentnesatonetimeeitherby roworcolumn 
add. delete, move or switch columns and rows edit any data from full screen display add. 
subtract, multiply and divide one column by another and put results in designated column (up 
to six calculations can be made and placed in designated column) define columns as con- 
stants, save calculations and lormulas on disk results can be printed in a variety of report 
formats $99.95* 

(8) CHECKBOOK II (The Bottom Shell) A complete in memory checkbook balancing and 
reconciliation program live column keyboard input with 5 characters lor check number. 16 
for payee. 4 for code numerical sort routine $49.50* 

(9) CHECK REGISTER ACCOUNTING SYSTEM (The Bottom Shell) A complete random access 
checkbook syslem set and define up to 60 accounts with as many income accounts as you 
choose, complete checkbook balancing and reconciliation single entry input where 
transaction can be dispersed over several accounts enables user to make a 64-characier note 
on each transaction printout your own check after data entry prints monthly summaries of 
each account with month and year-to-date totals create a suspense file to remind you ol 
coming expenses Reports generated included Check Register (for any month), notes to 
Check Register. Income/Expense Distribution Report. Statement ol Selected Accounts. Bank 
Reconcile Statement. Suspense File and Full Account Distribution Statement $74.95* 

(10) LIBRARY 100 (The Bottom Shell) 100 Programs on a broad range of topics Finance 
Education Graphics Home Games CASSETTE VERSION $49.50 
DISK VERSION $74.95 

(11) ADVENTURE (by Scott Adams) A series ol games (lor ages 10-99) wander through en- 
chanted worlds seeking treasures 1 Adventureland 2 Pirate's Adventure 3 Mission 
Impossible Adventure 4 Voodoo Castle 5 The Count 6 Strange Odyssey .....7 Mystery 
Fun House 8 Pyramid ol Doom 9 Ghost Town («1 and »2 recommended lor the movie 
adventure) Each adventure $14.95 (ion cassette) Diskette versions sold in groups ol three 
at $39.95 per three programs (HI - *3. »4 - #6. *7 - #9) 

(12) HORSE SELECTOR II (Dr Hal Davis) New simplified version ol the original Horse Selector 
(lor Hats) The first Horse Selection System to actually calculate the estimated oils lor each 
horse easy to lollow rules uses 4 lactors (speed rating, track variant, distance ol the 
present race, distance ol the last race) calculated estimated odds FREE DUTCHING 
TABLES allows betting on 2 or more horses with a guaranteed prodt $50.00 

(13) MON-3 «nd MON-4 (Howe Software) Powerful utility programs enabling you to interact 
directly with your TRS-80 in MACHINE LANGUAGE The monitor comes with complete 
40-page instruction manual making it useful for both the beginner and advanced programmer 
simple commands make il easy to use functions include DISPLAY. DISASSEMBLE. MOVE 
and COMPARE. SEARCH. MODIFY. RELOCATE. PRINT. READ and WRITE. UNLOAD. SAVE 
and READ. INPUT and OUTPUT. SEND and RECEIVE MON-3 $39.95 (for cassette) 
MON-4 $49.95 (for disk) 



enables your TRS-80 to be used as a remote terminal 

$69.95 



(14) SMART TERMINAL (Howe Software) 
to a time sharing computer system 

(15) FAST SORT (Howe Software) a series ol machine-language subroutines lo sort data from 
BASIC programs data may be alphabetic (string) or numeric easily interlaced with your 
BASIC programs (no machine language knowledge is necessary) $9.95 

(16) MAILING LIST (Howe Soltware) maintains mailing lists ol over 1000 names commands 
allow adding, changing, deleting, and finding names Sorting is done in machine language 
subroutine labels printed in 1. 2 or 3 columns $69.95 

(17) HOME BUDGET (Howe Software) combines the maintenance ol your checkbook with 
analysis ol your income, expenses and monthly bills Handles data including bills, income, 
deposits, checks and debits to your checking account, and cash expenses Computes check- 
book balance, list ol unpaid bills, monthly and year-to-date summaries ol income and expenses 
showing income tax deductions All output printed on video display or line printer comes 
with complete instructions manual $49.95* 

(18) SMALL BUSINESS ACCOUNTING (Howe Software) Based on the DOME BOOKKEEPING 
SYSTEM keeps track of all income, expenditures and payroll for a small business of up to 16 
employees income and expenditures can be entered on a daily, weekly or monthly basis 
computes monthly and year to date totals manual contains complete instrucitons lor custom- 
ization Cassette version $29.95 Diskette version $49.95 



(19) REMODEL-PROLOAD (Racet Computes) 
one part ol a program to another 



Renumber program lines 



nove statements from 
$34.95 



(20) GSF (Racet Computes) Lightning last in-memory machine language sort utility that can be 
made part of your BASIC progams without any machine language knowledge includes 
several other utilities lo speed up your BASIC programs no machine knowledge necessary 
lo use GSF in your BASIC programs $30.00 



(21) DOSORT (Racet Computes) 
on multiple disk drives 



includes GSF (above) extends the in memory sort to sorts 

$45.00* 



(22) COPSYS (Racel Computes) allows the user lo make copies of machines language cassettes 
without any knowledge ol machine language $20.00 

(23) COMRPOC (Racet Computes) an auto load program lor disk users allows the user to 
insert a diskette into their MOD-III and have the computer take over all loading load a 
machine language program. BASIC. RUN a certain program all without pressing a single button 

allows your computer lo perform 10, 20. 30 or more functions without pressing a single 
bulton «30.00* 

(24) INFINE BASIC (Racel Computes) adds a variety ol machine language subroutines to your 
BASIC programs (without any machine language knowledge) last sorts matrix operations 

.. compress and uncompress data and more $60.00 

(25) INFINITE BUSINESS (Racet Computes) in add on package lo INFINITE BASIC adds a 
variety ol routines important to the businessman (increase accuracy ol calculations and more) 

$30.00 

(26) DMS (Racet Computes) lightning last machine language sort sorts up to 4 disk drives Of 
information $90.00* 

(27) BLINK (Racet Computes) allows you to RUN new programs without losing the variables 
stored in your previous program line many programs together without losing important 
variables M0.00" 

(28) KFS-80 (Racet Computes) now you can use ISAM (Index Sequential Access Files) on your 
MOD-III using ISAM in your BASIC programs allows instant access of your items in your 
data files use wilh mail programs inventory programs etc $100.00* 

(29) MAIL LIST (Racet Computes) all routines are in machine language allowing for quick 
access * 7 »-°° 

* FOR DISK ONLY 



•CQMPLITRQMCS! 



50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 
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iQP\24 ORDER 
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EDUCATION 



Why baffle them with Boolean when you can guide them with graphics? 



Alternate Course 



Michael A. Duff in 
1507 East Ave. 
Berwyn, IL 60402 



A number of years ago I took 
a course called "An Intro- 
duction to Data Processing". It 
was the dullest, most useless 
course that I have ever taken. 

Most introduction courses to 
data processing at that particu- 
lar point in time were for people 
who worked or were planning to 
work in data processing. There 
wasn't a course for the layman. 
These earlier courses encour- 
aged the fallacy that people who 
enter data processing must 
have a strong background in 
math or science. These courses 
also tried to touch on every con- 
cept of data processing without 
ever giving the student a chance 
to use these concepts. Most 
data processing courses at the 
time were what I considered 
GI/GO courses (garbage in/gar- 
bage out). 
The material was presented 



by the instructor, memorized by 
the student and then regurgitat- 
ed by the student on a test. In 
retrospect, it is not difficult to 
understand why many people 
chose not to continue in data 
processing after taking an intro- 
ductory course. 

Last summer the Assistant 
Dean at Morton College, Cicero, 
IL, asked me if I would be inter- 
ested in teaching an "Introduc- 
tion to Data Processing" course 
which utilized newly acquired 
TRS-80s. Although my back- 
ground as a systems program- 
mer qualified me to teach this 
type of course, I didn't know 
Basic and I didn't know a TRS-80 
from a can opener. 

I purchased a TRS-80 and 
began writing programs to learn 
the fundamentals of Basic. 
These could be used as exam- 
ples in a classroom environ- 
ment. 

A Different Approach 

Learning Basic and learning 
about the TRS-80 was the easy 
part of the task. There was still 
the problem of avoiding the pit- 
falls that would make my class 
similar to the introductory 
classes that I had taken. My first 
step was to talk to other instruc- 



tors who had used the TRS-80 in 
this type of course. They men- 
tioned many techniques for ty- 
ing the concepts of the TRS-80 
operating system into other op- 
erating systems. However, when 
it came to teaching Basic, I 
found that most of them had 
their students running math, 
science or business problems. 
As a former math teacher I knew 
that many people have a funda- 
mental fear of mathematics and 
that before some people can 
show their potential in mathe- 
matics they must overcome this 
fear. Some people have a similar 
fear of computers; to illustrate 
this, the following is an episode 
that occurred shortly after I 
bought my TRS-80. 

A group of people were visit- 
ing me one evening and, like 
anyone with a new toy, I tried to 
show off my new TRS-80. I 
showed them a checkbook bal- 
ancing program and a loan ap- 
propriations program I had ac- 
quired. 

No one seemed very excited. 
At this point I was quite sure 
that there was no way that I 
would ever convince anyone who 
wasn't predisposed to data pro- 
cessing that it was an accept- 
able field. 



As a last ditch effort I loaded 
a very simple game that made 
use of some of the TRS-80's 
graphics. A complete change 
came over the group. They 
crowded around the machine 
and everyone wanted to play. I 
didn't get to use my TRS-80 for 
the rest of the evening, but I did 
discover a less frightening 
method for teaching the funda- 
mentals of Basic— graphics. 

Before the class began I de- 
cided upon four objectives that I 
wanted my class to attain: 

• The first objective was to 
alleviate the fear that many peo- 
ple have about computers. 

• Second, I wanted the stu- 
dents to learn only about data 
processing. I wanted to avoid 
lengthy discussions concerning 
principles in math, science or 
business. This does not mean 
that I avoided these concepts 
entirely. Many of these con- 
cepts are directly related to data 
processing, such as number 
systems (i.e., binary, octal, deci- 
mal and hexadecimal) and the 
Order of Operations used for 
mathematical interpretations of 
formulas. However, I wanted to 
avoid presenting algorithms or 
formulas for their own sake. 
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• Third, I wanted to promote 
creativity and logic and dispel 
the fallacy that only someone 
with a mathematical mind can 
program a computer. 

• Fourth, I wanted the stu- 
dents to be able to write simple 
programs in Basic and finally, I 
wanted the students to have a 
rudimentary knowledge of data 
processing concepts. That is, I 
wanted the students to be able 
to explain the fundamentals of a 
computer to a novice. 

We used graphics extensively 
(although not exclusively). By 
using graphics, the students 
could immediately see if some- 
thing was wrong with their pro- 
grams and thus could correct 
the instruction or group of in- 
structions, regardless of wheth- 
er the student used PRINT®, 
POKE or Set to create their fig- 
ures. I provided students with 
sample problems to illustrate 
various instructions. I then 
asked the students to logically 
deduce how these instructions 
worked before they were dis- 
cussed in class. (This not only 
promoted common sense but in 
certain cases the deductions 
were unbelievably creative.) 

The students were encour- 
aged to work in teams. Some in- 
structors might argue that this 
encourages cheating and that 
one of the students would end 
up doing all the work. This might 
be true if every student had a 
fixed teammate. However, I also 
encouraged different people to 
work together at different times. 




I knew that students working to- 
gether could communicate con- 
cepts to each other more clearly 
than an instructor could. 

Students were required to 
keep their programs on tape. 
This gave their work permanence 
and allowed for the creation of 
larger, more sophisticated pro- 
grams. Unfortunately, it also 
showed them some of the frus- 
trations of programming, such 
as accidental erasures or ma- 
chine failure. 

The TRS-80 and the Basic in- 
struction set were used to illus- 
trate the general concepts of 
data processing such as mem- 
ory, firmware, software, etc. 

Space Ship Game 

I used Program Listing 1 to 
show my students that com- 
puters can be fun. For most of 
them, playing with this game 
was their first hands-on ex- 
perience with a computer. 

This game utilizes some of 
the graphics capabilites of the 
TRS-80. It was designed on a 
16K Level II machine. I believe 
the only modification required 
to run it on a Level I machine is 
to replace the single quotation 
mark with the word Remark. 

The object of this game is to 
shoot enemy ships (controlled 
by the computer) before they 
shoot you. The user's ship is il- 
lustrated in Fig. 1. The ships the 
computer controls are illustrat- 
ed in Fig. 2. 

A brief description of the vari- 
ables used in the program is giv- 




Fig. 1 



Fig. 2 




Screen Display of Space Ship Game 



en in lines 12 through 82. 

When the program starts, di- 
rections for the control of the us- 
er's ship are given. The first few 
times you run this game there 
may not be enough time to read 
and understand the instruc- 
tions. Thus, you may want to in- 
crease the upper limit in the 
For... Next loop in lines 140 
=*nd 180 to a number larger than 
2500. The option that I gave my 
students was to hit the Break 
key when instructions came on 
the screen and then when they 
were ready, the students were 
instructed to type in CONT and 
then hit the Enter key. 

When the game begins, three 
enemy ships appear at the top 
of the screen and your ship ap- 
pears somewhere on the right of 
the screen. The enemy ships are 
moving and shooting when they 
appear. The user's ship remains 
stationary until a number be- 
tween 1 and 4 is typed. Once the 
number is entered the ship con- 
tinues to move in that direction 
until directed to stop (enter the 
number 5) or move in another di- 
rection (enter a number between 
1 and 4). If the user decides to 
shoot (by hitting the number 6) 
the shot moves in the same di- 
rection the ship is moving. 

The direction of the shot is 
controlled by the value of P in 
the subroutine between lines 
2500 and 290*. The actual shot 
being fired is controlled in the 
subroutine between lines 3000 
and 3199. This subroutine also 
prints Hit on the screen if an en- 
emy ship is hit. The POKE in- 
struction is used to print Hit (line 
3110) to avoid the automatic up- 
ward movement of the screen 
when a Print or PRINT® instruc- 
tion is printed on the bottom line 
of the screen. This subroutine 
(lines 3000 to 3199) also in- 
crements the counter for the 
user's hits (D) at line 3100. 

Once an enemy ship is de- 
stroyed, Iines3144to3150 deter- 
mine how many additional ene- 
my ships will be built. The maxi- 
mum number of enemy ships is 
30 (controlled by the variable L 
and line 3150). 

There are a few things about 
the program which aren't obvi- 
ous until you've played it for a 
while. One thing is that the ene- 
my ships cannot be permanent 



ly damaged by the shots of an- 
other enemy ship. The enemy 
ships regenerate any damage 
caused by their allies. Another 
thing is that if the user acci- 
dentally runs into an enemy ship 
or comes within the range of 
their shields (i.e., one space on 
any side of an enemy ship) the 
enemy is credited with a hit. 

If the user is hit, then his/her 
ship will again appear some- 
where on the right side of the 
screen moving in the same di- 
rection as before it was hit. 
Since two objects cannot ap- 
pear in the same space at the 
same point in time, the enemy is 
credited with a hit if the user's 
ship tries to materialize in the 
space occupied by an enemy 
ship. 

The main body of the program 
is contained between lines 186 
and 350. It makes extensive use 
of subroutines to control the 
particulars of the program. Al- 
though subroutines slow down 
the program (especially if there 
are 30 ships on the screen) main- 
tenance on the program is much 
easier since a function or group 
of functions is contained within 
specific lines of code. 

Line 186 contains initial val- 
ues for a number of variables. Of 
particular interest is the array 
W. By specifying additional ele- 
ments such as W(4)=-64; 
W(5) = 65; or W(6) = 63 the ene- 
my ships can be given the 
capability to move in a variety of 
different directions. The values 
specified for W on line 186 
cause the ship to move to the 
right— W(0), down— W(1), stay in 
the same position— W(2) or 
move to the left— W(3). If addi- 
tional values such as W(4) (move 
up), W(5) (diagonal, top to bot- 
tom, left to right) or W(6) 
(diagonal, top to bottom, right to 
left) are used, then the first part 
of line 4300, AB = RND(3) will 
have to be modified. This in- 
struction randomly picks the 
direction the ship will move and 
thus the number in the RND in- 
struction must reflect the 
largest number of array ele- 
ments. 

Line 188 goes to the subrou- 
tine that prints the score in the 
upper left of the screen. 

Lines 190 to 194 go to the sub- 
routine to build the enemy (i.e., 
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Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV "products and so on. 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at $19. 95 



Announcing 





NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only*14.95 



(COUPON) 

Micro Matrix ^m 

P.O. Box 938 • Pacifica. CA 94044 

Send for yours NOW: (415)355-4635 

Name 

Address 

City 

Zip 



St. 



Photopoint 
f] $19.95 

Pen Basic 
n $14.95 



Card* 
Ex. 
Date _ 



Money 
CK. Order Visa MC 

n n n n 



the computer's) ships. Lines 
3250 to 3390 build the computer's 
ships and also go to the subrou- 
tine that builds the user's ship 
(lines 1000 to 2904). 

The variable T determines if a 
new ship must be built for the 
user (lines 1000 to 1080). Line 
2020 goes to the appropriate 
section of code to move the ship 
indicated by the value of INKEY$. 
The If statements between lines 
2100 and 2430 avoid trying to 
POKE values that are outside of 
the range of 15360 to 16383. 
These are the values which re- 
flect the positions on the screen. 
POKEing outside of this range 
may cause the program to be 
wiped out. 

Line 230 goes to subroutine 
3400 which erases the current 
enemy ship. Subroutine 4200 
(entered from line 232) deter- 
mines how many positions the 
ship will move and what direc- 
tion the ship will move. It also 
determines if the enemy ship 
has crashed into the user's ship. 

Lines 234 to 280 erase (sub- 
routine 3400) and rebuild (sub- 
routine 3300) the enemy ship. 
The If statements determine if 
the enemy ships have reached 
the end of the screen. When 
they have, a new ship is started 
(subroutine 3250) and the pro- 
cess is continued. 

Lines 294 to 320 determine if 
the enemy ship is going to shoot 
(subroutine 3600). Lines 3600 to 
3790 cause the enemy ship to 
shoot and determine if the 
user's ship has been hit. 

A detailed description of each 
of the subroutines is included 
below. 

User's Ship Routine 

The routine for the user's ship 
first determines if a new ship 
must be built based on the value 
of variable T. If a new ship must 
be built (i.e., T = 0) then the start- 
ing position of the ship is ran- 
domly determined by lines 1020 
to 1031. The ship is built in line 
1060. If the routine is used to 
move an existing ship (i.e., T = 1), 
the existing ship is erased first. 
If a key (1 through 6) has been 
depressed since the last time 
this routine was entered then 
the appropriate move routine is 
entered via line 2020. If a key has 
not been depressed, line 2030 



will keep the ship moving in the 
same direction it had been mov- 
ing. 

Lines 2100 through 2430 con- 
trol the various directions of the 
user's ship. The If statements 
used in these lines keep the ship 
from going outside the bounda- 
ries (i.e., 15360 through 16383) of 
the screen. Lines 2500 through 
2890 control the movements of 
the user's shot. The variable P is 
based on the last direction the 
ship was moving (i.e., N), thus 
the shot moves in the same di- 
rection as the ship. Finally, the 
ship is built and another subrou- 
tine is entered to determine if 
the user's ship has hit an enemy 
ship. 



User's Shot Control 

The value of the variable M is 
set between lines 2500 through 
2890. When the routine to con- 
trol the user's shot is entered, 
line 3000 first determines that 
the value is within the range of 
the screen. Line 3004 checks to 
see if M is blank. If it is blank 
then an asterisk is written on the 
screen and we Return. Line 2530 
in the calling subroutine causes 
this process to be repeated 30 
times. If the value of M is not 
blank then the address of M is 
checked against the addresses 
of all of the enemy ships (lines 
3020 to 3040). If they don't 
match, we return to the point of 
origin. If M does match a value 
of one of the enemy ships, the 
following happens. The counter 
is incremented (line 3100). The 
enemy ship is blanked (line 
3102). Hit is printed and erased 
(lines 3110 to 3132). A new 
enemy ship is built to replace 
the old one (line 3142). From one 
to three new enemy ships are 
built (lines 3144 to 3160). 

Build Enemy Ship, 
Determine it User is Hit 

A random location at the top 
of the screen is selected by lines 
3260 and 3270. Line 3280 causes 
the new enemy ship to avoid 
overwriting the score. The ad- 
dress of the enemy ship is then 
checked against the value of the 
users ship. If they are the same 
then the enemy's score is incre- 
mented and T is set to so that a 
new user's ship will be built (line 
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Throw 
It Awa 



(your dictionary, that is) 




Now you can proofread and correct ten pages of text in less 
than one minute, with MICROPROOF dictionary software 

• EASY TO USE: Prepare your text on any Z-80 based microcomputer, using any of a number of popular word 
processing programs. When you are finished, enter the appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the screen. Then MICROPROOF displays each error 
separately, requesting you to enter the correct spelling for each. Finally, MICROPROOF corrects your document. 
All in less than a minute. 

• COMPREHENSIVE: MICROPROOF comes with a 50,000 word vocabulary. That's equivalent to a Webster's 
Pocket Dictionary. And MICROPROOF's dictionary is INFINITELY EXPANDABLE. You can add your own 
technical words and jargon. 

• RECOGNIZES prefixes, suffixes, hyphenation and comment lines. 

• REQUIRES ONLY 32K of memory and one single or double density 5% inch or 8 inch disk drive. 

• AFFORDABLE: Available in three forms: fully independent program to identify errors, independent program 
to identify and correct errors, or with a conversion program that will permit MICROPROOF to operate from 
within your own word processing software. 

Now Available Fully integrated for Scripsit® TRS-80 Mod. II 

PRICES 
$125.00 Correcting Feature $60.00 

$169.00 Word Processing Conversion 

$169.00 Scripsit or Electric Pencil $35.00 

available soon Separate User's Manual $5.00 



TRS-80 Model I or 111 version 
TRS-80 Model II version 
CP/M version 
APPLE version 



Master Charge and Visa accepted. No COD please. California residents add 6% sales tax. Send for a 
brochure— specify type of microcomputer and word processing software used. Dealer inquiries welcome. 

CORNUCOPIA SOFTWARE ^m 

Post Office Box 5028 

Walnut Creek, California 94596 

(415)893-0633 




Let MICROPROOF Find Your Errors 
Before Someone Else Does! 



*-See List ol Advertisers on page 322 
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Radio Shack Dealer #R491 
MODEL III 

LEVEL III BASIC 
26-1062 




$825.00 



WE ACCEPT CHECK, MONEY ORDER, OR PHONE ORDERS WITH VISA OR MASTER 
CHARGE, SHIPPING COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, 
PRINTERS. PERIPHERALS, AND SOFTWARE— YOU NAME IT, WE'VE GOT IT. 
WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

C & S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN. MICH. 481 60 
^ 145 (313)439-1508 (313)439-1400 



C » S ELECTRONICS MART IS AN AUTHORIZED RADIO SHACK DEALER #491 



COMPUTER 

EQUIPMENT 

& SOFTWARE 

BARGAINS 

EVERY MONTH 



fe COdlPUTBR SHO0PBR | 



fciSE 
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Get Your 
rjrst Issue FREE/. 



[TBS-Ms at Super Otacotfflt Prtflft ] 



BUY, SELL OR TRADE ALL TYPES OF COMPUTER 
EQUIPMENT AND SOFTWARE (pre-owned and 
new) among 20,000 readers nationwide. 
FEATURES: 

• Low classified ad rates - 10$ a word 

• Hundreds of ads from individuals 

• Categorized ads so you can find them instantly 

• Large (11 by 14") easy to read pages 

Subscribe now for $10 and receive 13 issues/year 
(one FREE plus 12 regular issues). After receiving 
your first issue if you're not completely satisfied 
you may have a 100% refund and you still keep the 
first issue free. Bank cards accepted. 
BONUS: // you have something to advertise (pre- 
owned or software) send in a classified ad with your 
subscription and we'll run it FREE. 

<i} The Nationwide Marketplace for Computer Equipment 

& HOmPUTBR SHQW3R „ 2 « 

^ P.O. BOX F 27 • TITUSVILLE. FL 32780 • 305-269-3211 

MasterCard & VISA subscriptions only, call TOLL FREE 1-600-528-6050 Ex. 164 . 



3307). Regardless of whether 
the address of the enemy's ship 
equals the address of the user's 
ship, lines 3310 through 3320 
print and erase the word Bam. 
Next, the user's ship is incre- 
mented or rebuilt and finally the 
enemy ship is built (line 3380). 

Control Enemy 
Shots, Increment Score 

The enemy ship always shoots 
from a top to bottom, left to right 
diagonal (line 3620). It shoots a 
dash (— ) (line 3640). The user's 
ship shoots an asterisk. Once 
the enemy has finished shooting 
and if he hasn't hit anything, 
then the enemy ship is moved 
(line 3662). If the user's ship is 
hit the computer's score is in- 
cremented (line 3700) and Hit is 
printed and erased (lines 3720 
and 3750). 



Direction of Enemy Ship 

Line 4200 sets a value of U be- 
tween one and 11. This is the 
amount of spaces that an ene- 
my ship will move. This value is 
used between lines 234 and 280 
in the main part of the program. 
Then the area surrounding the 
user's ship is checked. If these 
are blank then the routine re- 
turns to the point of origin. If the 
area is not blank then the user's 
ship is blanked (line 4430), Bam 
is printed and erased, the score 
is incremented and T is set to 
zero so that the user's ship will 
be regenerated. 

Needless to say, my students 
were not given such a lengthy 
explanation of this program at 
the time. In later classes, how- 
ever, they did learn many of the 
fundamentals used in this pro- 
gram.! 





Program Listing 1. Space Ship Game 


2 ' 


it*************************************************** 


4 ' 
6 ' 
8 ' 
10 


* VIDEO SPACE SHIP GAME ' 


*************************************************** 




***** i 


12 


LIST OF VARIABLES USED ' 


14 


A= COUNTER IN FOR NEXT LOOPS' 


15 


AB= RANDOM NUMBER USED TO DESCRIBE NEXT ARRAY ELEM 




ENT' 


16 


B= RANDOM VALUE FOR COMPUTER SHOT' 


18 


CD= COUNTER IN FOR NEXT LOOP' 


20 


D= NUMBER OF HITS BY GOOD GUY' 


22 


E= NUMBER OF HITS BY COMPUTER ' 


24 


F= LOCATION WHERE HIT IS PRINTED' 


26 


G= ' 


28 


H= PRINTS AND ERASES "BAM" 3 TIMES' 


30 


1= USED TO DETERMINE RANDOM STARTING POSITION OF G 




OOD GUYS SHIP' 


31 


IN= DIRECTION OF CURRENT ENEMY SHIP' 


32 


J= INDEX FOR COMPUTERS SHIPS' 


34 


K= POSITION OF COMPUTERS SHOT INDEXED BY J' 


36 


L= NUMBER OF COMPUTERS SHIPS—MAX OF 10' 


38 


M= POSITION OF GOOD GUYS SHOT' 


40 


N= LAST DIRECTION OF GOOD GUYS SHIP' 


42 


1= UP' 


44 


2=DOWN ' 


46 


3=LEFT' 


48 


4=RIGHT' 


50 


5=STOP' 


52 


6=SHOOT' 


54 


0=' 


56 


P= DIRECTION OF SHOT : INITIALLY DETERMINED BY N' 


58 


Q= COUNTER FOR HIT' 


60 


RANDOM NUMBER OF NEW ENEMY SHIPS— MAX =3' 


62 


R= USED TO CHECK IF 2 SHIPS HIT' 


64 


S=' 


66 


T= INDICATES IF NEW GOOD GUY SHIP MUST BE BUILT' 


68 


0=YES : l=NO' 


70 


U= RANDOM NUMBER-NUMBER OF TIMES ENEMY SHIP WILL 




MOVE' 


72 


V= LOCATION WHERE BAM IS PRINTED 1 


74 


W= ARRAY USED TO DETERMINE DIRECTION OF ENEMY SHIP 


76 


X= POSITION OF COMPUTERS SHIP—INDEXED BY J' 


78 


Y= POSITION OF GOOD GUYS SHIP' 


80 


Z=' 


82 


Y$= SAME VALUES AS N: INITIAL VALUE FROM INKEY$' 


100 


'*** ROUTINE TO WRITE MESSAGES AT START OF GAME *** 


105 


CLS : PRINT: PRINT CHR$ ( 23) ; ■ INSTRUCTIONS" 


110 


PRINT "HIT 1 TO MOVE UP" 


115 


PRINT "HIT 2 TO MOVE DOWN" 


120 


PRINT "HIT 3 TO MOVE LEFT" 


125 


PRINT "HIT 4 TO MOVE RIGHT" 


130 


PRINT "HIT 5 TO STOP" 




Program continues 
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i FIELD PROVEN!! 

i 10 MEGABYTES and MORE for the TRS-80* Model II 

. plus SHARED ACCESS to HARD DISK DRIVE 

1 Hard/Soft Disk System (HSDS) Sottware allows access as single drive. You can have that 10 Megabyte continuous file - that 50,000 name maillist or inventory! 

Or a directory with 1000 entries! All completely compatible with TRSDOS 2.0 BASIC. You can mix floppy and hard disk drives. Includes special utilities including 
£ HPURGE. DCS Directory Catalog System, HZAP Hard Disk Superzap, and many special formatting options. Three to eight times faster than floppy! RACET quality 

2 HARD DISK DRIVE & CONTROLLER $5995. Second User $595. HSDSSoftware $400. (Note: HSDS now also available for CORVUS drives!!) 

1 KFS-80 (1 -drive 32K Min - Mod II 64K) Mod I and III $100, Mod II $175 

|2 Assembly language ISAM facility! Interfaces with BASIC. Very fast access to records in large files. Access/insert times 1 -4 seconds. 

t B-Tree directory structure eliminates record search. No file reorganization required. Sector buffering reduces media and drive wear while increasing performance. 

P Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive 

2 file maintenance and debugging utilities are included. Attention applications programmers - Save time in implementing your custom database application software. 
u MAILLIST (1 -drive 32K Min - Mod II 64K) Mod I and III $75, Mod II $150 

a. This ISAM-based maillist minimizes disk access times. Four keys — no separate sorting. Supports 9-digit zip code and 3-digit state code. Up to 30 attributes. 

I Mask and query selection. Record access/update time 1 -4 seconds! ! 

12 DISCAT (32K 1 -drive Min) Mod I and III $50 

This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library. Machine language program 
h works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette 
S free space. RS232 drivers and other features. 

S LPSPOOL (32K 1-drive Min) Mod I $75 

I LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues 

3 maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. 

1 BASIC LINK FACILITY 'BUNK' (Mod I Min 32K 1 -disk) Mod I $25; Mod II $50; Mod III $30 

| Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program 

£ may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin may 

^ b6 SD6CJfJ6d' 

£ INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 

I Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds!! 

{2 Select only functions you want to optimize memory usage. 

E INFINITE BUSINESS (Requires Infinite BASIC) Mod I & III $30 

p Complete printer pagination controls — auto headers, footers, page numbers. Packed decimal arithmetic — 127 digit accuracy +, -,*,/. Binary search of 

P sorted and unsorted arrays. Hash codes. 

§ COMPROC (Mod I & Mod III — Disk only) Mod I $20; Mod III $30 

I Command Processor Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR, FREE, pause, wait for user input, BASIC 

I No. of FILES and MEM SIZE, RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lowercase driver software, debounce and screenprint! 

{2 GSF (Mod I & III Tape or Disk -Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 . ■ 

§ Generalized Subroutine Facilities. The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful! 

» Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. 

§ DSM (Mod I Min 32K 2-drive system. Mod II 64K 1-drive. Mod III Min 32K 1-drive) Mod I $75; Mod II $150; Mod III $90 

t Disk Sort/ Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. 

I Execute from DOS. Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O 

g times make this the fastest Disk Sort/Merge available on the TRS. 

t UTILITY PACKAGE (Mod II 64 K) $150 _ n . 40< 

e important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even one application! Fully documented in 1 24 page manua ! 

8 XHIT XGAT XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, wild-card mask select 

fc absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0, and absolute disk backup/copy with I/O 

< recovery DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change uisk 

T ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses. DEBUG!! adds single step, trace, subroutine calling, program looping, 

<], dynamic disassembly and more! ! 

£ BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 

d SEEK and FIND functions for Variables, Line Numbers, Strings, Keywords. 'All' options available for line numbers and variables. Load from BAbiC — can witn 

= 'CTRL'R. Output to screen or printer! 

fc DEVELOPMENT PACKAGE (Mod II 64K) $125 ni , . , .. 

3 Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus software package including 

°r uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly 

J, into memory, MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG), extended editor commands, 

fe DEALER inquiries invited. System Houses -check for special pricing on hard drives and software. — 

t CIRCLE READER REOUEST FOR FREE 24-PAGE CATALOG CHECK. VISA. M/C. COO ., PURCHASE ORDER L llAUtl COMPUTES -J ^ 41 

£ -TRS-80 IS A TRADEMARK OF TANDY CORPORATION TELEPHONE ORDERS ACCEPTED (714) 997-4950 1330 N GLASSELL SU(TE M 0RANGE M g266? 

<E 
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Dept C, Box 839 / No Hollywood, Ca 91603 / (213) 764-3131 




INTRODUCES 



PROFESSION AL 

WORD PROCESSING 

<#> for t h • <«> 

TRS — 80' Modals I «&ncJ III 



Powerful editing and formatting features formerly 
available only on large IBM.Time-Sharing computers 

Easy-to-use true Full-Screen Editing 

Typeahead - never loses keystrokes 

Flexible - big documents, Form Letters, Index, 
Table of Contents, block move/copy, global change 

EPSON*MX-80 - all 12 fonts, including EMPHASIZED 

Line Printer IV - Right-justified Proportional font 
(ours was the first complete system to do so) 

PLUS? underlining , sub scripts, * upar scripts 

cJouta lee- width, Centering, and much more 

Diablos* and others, underlining and good support 

Excellent documentation - hundreds of examples 



NEWSCR I F>T : 



♦99.95 



Requires 48K, runs under TRSDOS* NEHDOS, 
NEWDOS/80 8 , VTOS*4.0, LDOS? (Upgrade privilege 
from SUBSCRIPT applies to current licensees,) 



DVORAK! 

Keyboard translator with press-on labels! $19.93 

Typing Tutor (requires a translator): $19,95 

Special: Both DVORAK programs! $34,95 

(32K disk systems) 

Software $peedip$ 

FASTER »29.95 

Analyses executing BASIC programs, then 
identifies a simple program change to improve their 
execution speed. fiO. hardware changes are involved, 
works with packages as well as your own code and 
can reduce run-times by 10-50%. Example: 
"move selection" in "Othello" dropped from 48 to 32 
seconds. Runs on 16-48K Level II tape or disk. 
Models I and III. Written in Z-80. This will be one 
of your most valuable utilities! 



XTEMP4Q 



$19.95 



Quickly upgrades Model I 35-track disks to 40 
tracks with your 40-track drives and DOS. 

I <»> ORDERINO <»> I 

He accept checks, C.O.D's, charge, and even cash* 

Telephone orders accepted for M/C and VISA. 

Please add $3.00 for shipping to orders under 
$25.00. Add 6% tax in Calif., and 10% outside U.S.A. 



•V. 



Program continued 

135 PRINT "HIT 6 TO SHOOT" 
140 FOR 1=1 TO 2500:NEXT I 

145 CLS : PRINT: PRINT CHR$( 23) ; " INSTRUCTIONS" 
150 PRINT "3 TO 30 ENEMY SHIPS WILL APPEAR" 
155 PRINT "YOU MUST SHOOT THEM BEFORE" 
THEY SHOOT YOU." 



160 PRINT 
165 PRINT 
17 PRINT 
17 2 PRINT 
17 4 PRINT 



"WHEN YOU SHOOT, YOUR SHOT WILL" 

" MOVE IN THE SAME DIRECTION" 

" YOU ARE MOVING." 
176 PRINT "IF YOU ARE STOPPED, THE SHOT" 
17 8 PRINT " WILL GO UP." 
180 FOR 1=1 TO 2500: NEXT I 
182 CLS 

184 '*** INITIALIZTION ROUTINE ***' 

185 ONERROR GOTO 10000 

186 W(3)= -1:W(0)=1:W(1)=64:W(2)=0:IN=0:U=0:DIM K(32) : 

DIM X(32) :J=1 : L=3 : D=0 : N-0 : N=5 : T=0 : E-0 
188 GOSUB 3800 
190 FOR J=l TO L 

192 GOSUB 3250 : 'ROUTINE FOR ENEMY SHIP' 
194 NEXT J 

200 '*** ROUTINE TO MOVE COMPUTERS SHIPS ***' 
210 GOSUB 3800 
220 FOR J=l TO L 
230 GOSUB 3400 : 'ROUTINE TO ERASE LAST POSITION OF SHI 

P' 

232 GOSUB 4200 

233 IF IN=0 THEN U=l 

234 FOR CD=1 TO U 

235 GOSUB 3400 

240 X(J)=X(J)+IN: 'MOVE SHIP 1 DOWN AND 1 TO LEFT' 

242 IF X(J) < 15360 THEN GOSUB 3250 

250 'SHIP OFF SCREEN CREATE A NEW SHIP' 

260 IF X(J) >= 16383 THEN GOSUB 3250 : GOTO 280 

270 GOSUB 3300 : 'INCREMENT SHIP POSITION ' 

280 NEXT CD 

294 IF E<D+2 THEN GOTO 310 

296 B=RND(5) : 'ROUTINE TO INITIALIZE SHOOTING' 

300 IF B <> 3 THEN GOTO 330 

310 K(J) = X(J)+3 

320 GOSUB 3600 

330 NEXT J 

340 GOSUB 1000 

350 GOTO 200 

1000 •*** ROUTINE FOR GOOD SHIP ***' 

1010 IF T=l THEN GOTO 2000 

1020 I=RND(14) : 1=1+1 

1030 Y=63*I + (I-1):'SHIP STARTS AT RIGHT OF SCREEN' 

1031 Y=Y+15360 

1050 IF Y-2 <= 15360 THEN Y=16383 

1056 T=l 

1060 POKE Y.183 : POKE Y-1,140 : POKE Y-2, 140 :' BUILDS S 

HIP' 
1070 FOR A=l TO 100: NEXT A 
2000 'ROUTINE TO MOVE GOOD GUY SHIP' 
2005 POKE Y,32 : POKE Y-1,32 : POKE Y-2, 32 
2010 Y$=INKEY$ 

2020 ON VAL(Y$) GOTO 2103,2200,2300,2400,2890,2500 
2030 OH H GOTO 2100,2200,2300,2400,2900,2500 
2040 GOTO 2600 



2100 
2105 



2200 
2205 



'*** MOVE UP ***' 

Y=Y-64 : N=l 
2110 IF Y<15360 THEN Y=Y+1023 
2115 IF Y=15360 THEN Y=16383 
2120 GOTO 2900 

*** MOVE DOWN ***' 

Y=Y+64 : N=2 
2210 IF Y=16383 THEN Y=15360+192 
2212 IF Y>16383 THEN Y=Y-1023 
2214 IF Y<15378 THEN Y=Y+192 
2220 GOTO 2900 
2300 '*** MOVE LEFT ***' 
2305 Y=Y-1 : N=3 
2310 IF Y-2< 15360 THEM Y=16383 
2320 GOTO 2900 
2400 '*** MOVE RIGHT ***' 
2410 Y=Y+1 : N=4 

2420 IF Y>16383 THEN Y=15360+192 
2430 GOTO 2900 

2500 P=N : 'SHOT FIRED IN SAME DIRECTION AS MOVEMENT' 
2504 G=5 

2510 IF P=5 THEN P=l : 'SHOOT UP IF NOT MOVING' 
2520 M=Y-3 : 'NEW SHOT* 
2530 FOR A=l TO 30 
2540 POKE M,32 
26 00 'DUMMY STATEMENT' 
2610 ON P GOTO 2620,2640,2660,2680 
2615 STOP 

2620 '*** SHOOT UP ***' 
26 26 M=M-64 
2632 GOTO 2800 
2640 ' *** SHOOT DOWN ***' 
26 46 M=M+64 
2652 GOTO 2800 
2660 '*** SHOOT LEFT ***' 
2666 M=M-1 
2672 GOTO 2800 
2680 '*** SHOOT RIGHT ***' 

Program continues 
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Program continued 



2685 
2686 
2800 
2810 
2830 
2840 
2842 
2890 
2900 
2902 
2903 
2904 
3000 
3004 
3010 
3020 
3030 
3040 
3050 
3100 
3102 
3104 
3110 
3130 
3132 
3134 
3140 
3142 
3144 
3146 
3140 
3150 
3152 
3154 
3160 
3170 
3199 
3250 
3252 

3260 
3270 
3280 
3300 
3302 
3303 
3304 
3305 
3307 



3308 
3309 
3310 
3312 
3318 
3320 
3360 
3370 
3372 
3380 
3390 
3394 
3400 
3410 
3600 
3610 
3620 
3630 
3640 
3650 

3660 
3662 
3670 
3700 
3710 
3720 
3730 
3740 
3742 
3750 
3790 
3800 
3810 
3820 
4000 
4200 
4300 
4400 
4402 
4404 



4420 
4430 
4432 
4440 
4450 
4452 



Y=16383 

POKE Y-2,140 



IF H=Y-3 THEN H=Y 

H-M+l 

GOSUB 3000 

POKE H,32 

NEXT A 

M=0 

GOTO 290 
N«5 

IF Y-2 <= 15360 THEN 
POKE Y,183: POKE Y-1,14 
GOSUB 4 400 
RETURN 

IP H<15360 OR M > 16363 THEN H-0: GOTO 3199 
IP PEEK (M) -32 THEN POKE M,42 t GOTO 3199 

POKE M,42 

FOR J=l TO L 

IF M=X(J) OR M=X(J)+1 OR M=X(J)+2 THEN GOTO 3100 

NEXT J 

GOTO 3199 

D=D+1 : GOSUB 3800 

GOSUB 3400 

'PRINTS "HIT"' 

POKE X(J),72:POKE X ( J ) +1 ,7 3 : POKE X(J)+2,84 
FOR Q=l TO 100: NEXT O. 
•BLANKS "HIT" 

POKE X(J),32:POKE X ( J) +1 , 32 : POKE X(J)+2,32 
M=0 

GOSUB 3250 
Q=RND(2) 
Q=Q+1 

J=L+1 : L=L+Q 
IF L+l >= 31 THEN L=30 
FOR A=J TO L 
GOSUB 3250 : J=J+1 
NFXT A 
GOSUB 3400 
RETURN 

'*** ROUTINE TO BUILD ENEMY SHIP ***' 
'*** ALSO DETERMINES IF SHIPS HIT EACH OTHER *** 

I=RND(61) 
X(J)=15360+I 

IF X(J)<= 15377 THEN X ( J) =X ( J) +192 
R=X(J) 

FOR H=l TO 3 
C=PEEK(R) 

IF C=32 THEN GOTO 3360 
IF C=32 THEN GOTO 3360 

IF R=Y-63 OR R=Y-64 OR R=Y-65 OR R=Y+1 OR R=Y-3 O 
R R=Y OR R=Y-1 OR R=Y-2 THEN E=E+1 : GOSUB 3800: T 
= 

IF R+3>16383 THEM R=16380 
'PRINTS "BAM"' 

POKE R,66:POKE R+l,65:POKE R+2,77 
FOR B=l TO 50 : NEXT B 
'ERASES "BAM"' 

POKE R,32:POKE R+l,32:POKE R+2,32 
R=R+1 
NEXT H 
GOSUB 1000 

POKE X(J),187 : POKE X(J)+1,157 : POKE X(J)+2,140 
RETURN 

'*** BLANKS OUT SHIP ***' 

POKE X(J),32 : POKE X(J)+1,32 : POKE X(J)+2,32 
RETURN 

FOR A=l TO 47 
POKE K(J) ,32 
K(J)=K(J)+65 

IF K(J) >= 16383 THEN K(J)=0 : GOTO 3790 
POKE K(J) ,45 

IF K(J)=Y OR K(J)=Y-63 OR K(J)=Y-64 OR K(J)=Y-65 O 
R K(J)=Y OR K(J)=Y-1 OR K(J)=Y-2 THEN GOTO 3700 
NEXT A 
GOSUB 2000 
GOTO 37 90 
E=E+1 : GOSUB 3800 
T=0 

'PRINTS "HIT"' 

POKE Y-2,72:POKE Y-l,73:POKE Y,84 
FOR Q=l TO 100 : NEXT Q 
'BLANKS "HIT"' 

POKE Y,32:POKE Y-l,32:POKE Y-2, 32 
RETURN 

PRINTS 0, "COMPUTER GOOD GUY" 
PRINTS 131, E : PRINTS 142, D 
RETURN 
GOTO 200 

U=RND(10) : U=U+1 
AB=RND(3) : IN = W(AB) 
IF Y=16383 THEN Y=15483 
IF Y<15423 OR Y>=16319 GOTO 4499 

IF PEEK(Y-3)=32 AND PEEK(Y+1)=32 AND PEEK (Y+64 ) =32 
AND PEEK(Y+63)=32 AND PEEK (Y+65 ) =32 AND PEEK(Y-6 
5)=32 AND PEEK(Y-64)=32 AND PEEK (Y-63 ) =32 THEN GO 
TO 4499 
GOSUB 3400 

POKE Y,32 : POKE Y-1,32 : POKE Y-2, 32 
'PRINTS "BAM"' 

POKE Y-2,72:POKE Y-l,73:POKE Y,84 
FOR B=l TO 100 : NEXT B 
IF T-0 THEN GOTO 4470 



for the TRS-80 from Micro- Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 



THE ULTIMATE STAR TREK PACKAGE 




Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart." 

The package is built around the latest version of Lance 
Mick I us' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays, before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGE (for Level II. IBKonly). 
Add $2.00 lor postage and handling. 



$22.95 



Terms: Check or money order, no CODs or credit cards, please. Add amount 
shown lor postage and handling to price of the item. All items shipped within 48 
hours by lirst class or priority mail. Virginia residents, add 4% sales tax. 



Micro -Mega • P.O. Box 6265 • Arlington, Va 2S2Q6 



•sSee List ol Advertisers on page 322 
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EDUCATION 



Turn your '80 into a table top teacher. 



Quiz 



Fred Olsen 
4153 Arey Drive 
San Diego, CA 92154 



Education and training is a 
microcomputer application 
that each of us can enjoy. Quiz 
will help you realize the great 
potential as a teaching tool that 
is stored within your machine 
and should provide a few ideas 
for putting the teacher to work. 
Teachers use flash cards to 
review a great range of subject 
material. A problem is displayed 
to students on the front of a card 
while the teacher sees the an- 
swer printed on the back of the 
card. The teacher provides rein- 
forcement based upon student 
response to the problem. Flash 
cards are also highly effective 
as self-teachers when used in 
private study. 

Flash cards led to develop- 
ment of a training device known 
as the tabletop teacher, a pin- 
ball type of machine with flash- 
ing lights, bells and buzzers. 
Questions with multiple-choice 
or true/false answers were pre- 
pared on cards. The correct an- 
swer was encoded on the back 
or edge of the card for interpre- 
tation by the machine. The de- 
vice displayed a card and timed 
the wait for student response. 
The response was immediately 
graded. As each item was 
scored, the card was mechani- 
cally replaced by another from 



the supply of question cards 
stored within the device. 

The New Tabletop Teacher 

Programming the TRS-80 to 
perform the tasks of the table- 
top teacher starts with a review 
of the previous description. We 
find that we will require means 
to prepare and store decks of 
question and answer cards, and 
present the prepared items and 
score responses. 

The screen provides the page 
on which to prepare and edit 
each item for ultimate transfer 
to storage. Maximum item length 
is 1 K (a full screen). The require- 
ment will be to maintain a file of 
items much beyond the capaci- 
ty of even the maximum TRS-80 
memory expansion. All of us 
have cassette capability provid- 
ing unlimited storage capacity. 
Long term storage requires tape 
utilization anyway, so let's look 
at the feasibility of tape as our 
storage medium for the decks of 
cards. 

Tape storage and retrieval 
does not allow random access 
and is quite slow. Random ac- 
cess would be necessary if there 
were a requirement to shuffle 
the decks, but we can probably 
live without that feature. Cas- 
sette-oriented Basic doesn't 
seem to be capable of delivering 
1K of data in a timely manner. 
The greatest time expense is the 
block leader required at 255-byte 
(maximum) intervals. (Leaders 
are time intervals introduced to 
allow the tape mechanism to 
reach operating speed.) If items 



are limited to 255 characters 
(one-quarter screen) we have no 
problem. However, one-quarter 
screen is not sufficient for this 
application. I therefore abandon 
Basic during the tape handling 
processes. 

Brief assembly language pro- 
cedures can move data directly 
from display memory to tape 
and from tape back to display 
memory in reasonable time. A 
block leader is still required, of 
course, but the block length is 
unlimited so one such delay will 
serve a full screen. 

The Program 

The Basic program and as- 
sembly language procedures 
presented here provide only the 



necessities to generate item 
decks and to administer the 
quiz. Notice that the machine 
language is provided in data 
form and is loaded into high 
memory by the Basic program. 
USR instructions provide the 
linkage between the proce- 
dures. The program listings are 
thoroughly remarked to ease un- 
derstanding of the program op- 
eration. Asterisk, pound sign 
and up arrow are used to com- 
municate directly with the pro- 
gram and therefore must not ap- 
pear on the screen except at the 
point where the program is to 
take control. An asterisk indi- 
cates that the next character to 
be entered is the item answer. A 
pound sign marks the last char- 









Program Listing 1 




7531 


00100 




ORG 


7531H 






00110 


,17 FEB 1980 - 


RECORD SCREEN - DEVELOPED FOR QUIZ 


7531 3E00 


00120 


SAVE 


LD 


A.O 


CASSETTE 


7533 CD1202 


00130 




CALL 


0212H 


0EFINE DRIVE 


7536 CD8702 


00140 




CALL 


028 7H 


WRITE LEADER 


7539 01003C 


00150 




LD 


BC.3C00H 


SET START POINT 


753C OA 


00160 


L00P1 


LD 


A.(BC) 


GET 8YTE TO REC0R0 


753D CD6402 


00170 




CALL 


0264H 


RECORD BYTE 


7540 03 


00180 




INC 


BC 


STEP TO NEXT BYTE 


7541 FE23 


00190 




CP 


23H 


HAS IT 1? 


7543 C23C75 


00200 




JP 


NZ.L00P1 


NO, LOOP 


7546 C0F801 


00210 


EXIT 


CALL 


01F8H 


YES, STOP RECORDER 


7549 C39A0A 


00220 




JP 


0A9AH 


RETURN 


754C 00 


00230 




NOP 






7540 00 


00240 




NOP 






754E 3E00 


00250 


READ 


LD 


A.O 


CASSETTE 


7550 C01202 


00260 




CALL 


0212H 


DEFINE 0RIVE 


7553 CD9602 


00270 




CALL 


0296H 


FIN0 SYNC BYTE 


7556 21003C 


00280 




LD 


HL.3C00H 


SET START POINT 


7559 C03502 


00290 


L00P2 


CALL 


0235H 


READ BYTE (DATA) 


755C FE2A 


00300 




CP 


2AH 


IS IT *? 


755E C26075 


00310 




JP 


NZ.DISP 


NO, DISPLAY IT 


7561 CD3502 


00320 




CALL 


0235H 


READ BYTE (ANSWER) 


7564 6F 


00330 




LD 


L.A 


ANSWER INTO L 


7565 2600 


00340 




LD 


H.O 


CLEAR H 


7567 CD3502 


00350 




CALL 


0235H 


READ BYTE (#) 


756A C34675 


00360 




JP 


EXIT 


BACK TO BASIC 


756D 77 


00370 


DISP 


LD 


(HL).A 


DISPLAY BYTE 


756E 23 


00380 




INC 


HI 


INCR DISPLAY POINTER 


756F C35975 


00390 




JP 


L0OP2 


NEXT BYTE 


0000 


00400 




EN0 
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acter to be processed to or from 
tape. An up arrow (unshifted) 
tells the Basic program to end 
operator input and begin pro- 
cessing the screen memory on- 
to tape. A triple pound sign is 
called for in the operating in- 
structions primarily to cause the 
operator to glance at the screen 
one last time before handing 
control to the program by de- 
pressing the up arrow. 

Operator instructions are pro- 
vided on the screen at the start 
of each of the two segments 
which are menu selected. Quiz 
keeps the cursor on the screen 
during the preparation segment 
to help in editing the item. The 
item number that appears on 
the screen is for convenience 
only and can be erased, re- 
placed, or relocated. The tab key 
(right arrow) is programmed to 
provide five spaces— a conve- 
nient indentation for formatting. 
Up arrow (shifted) and down ar- 
row are handy to position the 
cursor. Down arrow (unshifted) 
performs the same as Enter (car- 
riage return, line feed, erase 
line). Shifted up, down, right 
and left arrows move the cursor 
one space or line without eras- 
ing the character at the new po- 
sition. The best way to learn to 
use the editing capability is to 
spend a few minutes driving the 
cursor around the screen enter- 
ing or altering data. 

Using Quiz 

The sample item shown in 
Fig. 1 is in a typical format and 
shows the use of a title line, 
repositioned item number and 
an application. Prepare your 
own items from text material or 
use problems presented in a 
text. 

Essay format can be handled 
by preparing the question as a 
note page. Note pages are 
marked by a space in the ter- 
minator where the program ex- 



California Driver License Review 
1. When two automobiles meet on a narrow 
mountain road, the right-of-way belongs to: 

A. The Automobile Going Downhill. 

B. The Automobile Going Uphill. 
C The Larger Automobile. 

D. The Larger Driver. ' B###t 

Fig. 1. Sample Quiz Item Format 



pects to find the correct re- 
sponse (*###t). The next page 
might then be prepared as an 
essay response and allow for 
self-scoring. The note page is 
also useful in presenting ex- 
planations and solutions. Con- 
sider using note pages to store 
text material. Note pages do not 
count as items in the pro- 
grammed 10-item procedure, so 
you will be able to handle a lot of 
text material, the limit being the 
length of tape. When such mate- 
rial is later processed by the 
Read procedure, pages are ad- 



vanced by simply depressing 
the space bar. 

Challenges 

Quiz, as stated earlier, is in- 
tended only as a starting point. 
There is plenty of room for im- 
provement and refinement. 
Keep in mind that changes must 
be made in such a manner so 
that previously prepared decks 
will be compatible. All that really 
means is that you must not 
change the terminator format. 
The following improvement 
ideas have occurred to me and 



are planned for future versions. 

• Variable length quizzes. 

• Print correct response. 

• Varying point weights. 

• Timed response. 

• Student name and score 
file. 

• Double buffer input to ac- 
celerate next item display. 

• Provide for large character 
display. 

• Graphics. 

• Link Quiz with other pro- 
grams to save program- 
generated displays. 

• Repeat key.B 



Program Listing 2 




100 'QUIZ— MARCH 1980 — W6PNT 




110 i***** ijp ARROW APPEARS AS LEFT BRACKET IN THIS LISTING 




120 ' MOVE THE MACHINE LANGUAGE PROGRAMS INTO HIGH MEMORY 




130 FOR N=30000 TO 30069 


'N IS DESTINATION 


140 READ M 


'GET A BYTE 


150 POKE N,M 


'STORE BYTE AT N 


160 NEXT N 


'MOVE 70 BYTES 


170 CLS : PRINT" ****** QUIZ ****** 




180 PRINT: PRINT-MAKE A SELECTION FROM THE FOLLOWING:" 




190 PRINT:PRINT" 1 - WRITE A QUIZ 




200 PRINT: PRINT" 2 - TAKE A QUIZ 




210 PRINT: PRINT" ENTER 1 OR 2 




220 A$=INKEY$:IF A$="" THEN 220 




230 IF A$="2" GOTO 550 




240 IF A$<>"1"PRINT"1 OR 2 PLEASE !!!":GOTO220 




250 CLS : PRINT"YOU HAVE CHOSEN TO WRITE A QUIZ. 




260 PRINT: PRINT"1. THE SCREEN WILL CLEAR 




270 PRINT" 2. PREPARE THE SCREEN AS YOU WISH. 




280 PRINT" 3. TAB (RIGHT ARROW) SPACES FIVE PLACES. 




290 PRINT" 4. * AND [ ARE RESTRICTED TO PROGRAM CONTROL. 




300 PRINT"5. END AN ITEM WITH: *X###( . THE CORRECT RESPONSE 




310 PRINT" GOES AT 'X' (USUALLY A,B,C,D,T, OR F) 




320 PRINT"6. A PAGE OF NOTES TERMINATES WITH: * ###[ (X=BLANK) 


330 PRINT"7. THE PROGRAM WILL LOOP UNTIL YOU HAVE ENTERED TEN 




340 PRINT" ITEMS. PAGES OF NOTES DO NOT COUNT AS ITEMS. 




350 PRINT: PRINT"DEPRESS 'ENTER' WHEN READY 




360 A$=INKEY$:IFA$=""THEN 360 


'WAIT 


370 CLS : PRINT"PREPARE TAPE RECORDER. WRITE DOWN START POINT. 




380 PRINT: PRINT"WHEN SET TO RECORD, DEPRESS 'ENTER'. 




390 A$=INKEY$:IF A$=""THEN 390 


'WAIT 


400 CLS : PRINTCHR$(14) 


'CURSOR ON 


410 FOR N=l TO 10 




■ITEM COUNTER 




420 PRINTN;". "; 


•PRINT ITEM * 


430 A$=INKEY$:IF A$=""THEN 430 


'WAIT 


440 IF ASC(A$)=9 A$=" 


'R ARROW, 5 SPACES 


450 IF K=l AND A$=" "N=N-1 


'NOTE IS NOT ITEM 


460 IF A$="*" K=l 


'SET NOTE FLAG 


470 PRINTAS; 


'DISPLAY CHARACTER 


480 IF A$O"["THEN430 


' [=RECORD DISPLAY 


490 POKE 16526,49 : POKE 16527,117 : X=USR(0) 


'CALL TAPE WRITE 


500 CLS : K-0 


■RESET NOTE FLAG 


510 NEXT N 


'NEXT ITEM 


520 PRINT"TEN ITEMS RECORDED. WRITE DOWN THE TAPE COUNTER. 




530 PRINT: PRINT"DEPRESS 'ENTER' WHEN READY. 




540 A$=INKEY$:IF A$=""THEN 540ELSE CLS:GOTO180 


•WAIT & RESTART 


550 CLS : PRINT"THIS IS THE QUIZ APPLICATION — 




560 PRINT: PRINT"SET UP THE TAPE RECORDER TO PLAY THE QUIZ. 




570 PRINT:PRINT" DEPRESS 'ENTER' WHEN READY. 




580 A$=INKEY$:IF A$="" THEN 580 




590 K = 


'CLEAR THE SCORE 


600 FOR N = 1 TO 10 


'PROCESS 10 ITEMS 


610 CLS 




620 POKE 16526,78 : POKE 16527,117 : X=USR(0) 


'CALL TAPE READ 


630 A$=INKEY$:IF A$="" THEN 630 


'WAIT (ANS IN X) 


640 IF X=32 N=N-1 :GOTO 670 


'SPACE IS NOTES 


650 IFASC(A$) =XPRINT@896 , "CORRECT" :K=K+1ELSEPRINT§896 , "WRONG" 


'SCORE RESPONSE 


660 FOR M=l TO 500: NEXT M 


'HOLD ITEM SCORE 


670 NEXT N 


'LOOP (DISPLAY X?) 


680 CLS : PRINT: PRINT" END QUIZ " 




690 PRINT: PRINT" YOUR SCORE IS";10*K; " PER CENT" :GOTO180 




700 DATA 255,62,0,205,18,2,205,135,2,1,0,60,10,205,100,2,3,254 


710 DATA 35,194,60,117,205,248,1,195,154,10,0,0,62,0,205,18,2 


720 DATA 205,150,2,33,0,60,205,53,2,254,42,194,109,117,205,5: 


,2 


730 DATA111, 38, 0,205, 53, 2, 195 ,70, 117, 119, 35, 195, 89, 117, 0,0,0 





740 END 
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Yes, You Can 
Increase Your 
Programming 
Productivity 

SNAPP II EXTENDED BASIC 

5NAPP II EXTENDED BASIC A family of 
enhancements to the Model II BASIC 
interpreter. Part of the pacKage origi- 
nated with the best of APPARAT. iNC.'s 
thoughts in implementing NEWDOS 
BASIC. The system is written entirely in 
machine language for SUPER FAST exe- 
cution. The extensions are fully 
integrated into Model II BASIC, and 
require NO user Memory, and NO user 
disk space. The package is made up of 
the following six modules. 
XBASIC-Six single key stroke com- 
mands to list the first, last, previous, 
next or current program line, or to edit 
the current line. Includes quick way to 
recover BASIC program following a 
NEW or system or accidental re-boot. 
Ten single character abbreviations for 
frequently used commands: AUTO. 
CLS. DELETE. EDIT. KILL. LIST. MERGE. 
NEW, LLIST. and SYSTEM. 
XREF-A powerful cross-reference 
facility with output to display and/or 
printer. Trace a variable through the 
code. Determine easily if a variable is 
in use. 

XDUMP-Permits the programmer to 
display and/or print the value of any or 
•all program variables. Identifies the 
variable type for all variables. Each ele- 
ment of any array is listed separately. 
XRENUM-An enhanced program line 
renumbering facility which allows 
specification of an upper limit of the 
block of lines to be renumbered, sup- 
ports relocation of renumbered blocks 
of code, and supports duplication of 
blocks of code. 

XFIND-A cross reference facility for 
key words and character strings, also 
includes global replacement of 
keywords. 

XCOMPRESS-Compress your BASIC 
programs to an absolute minimum. 
Removes extraneous information: 
merge lines: even deletes statements 
which could not be executed. Typically 
saves 30-40% space even for pro- 
grams without our REM statements! 
Also results in 7-10% improvement in 
execution speed. 

ENTIRE PACKAGE FOR MODEL II S200 

ENTIRE PACKAGE FOR MODEL III SIZS 

SNAPP SCREEN 

Another dependable product from 
Snapp. Inc. Using rigid plastic. Snapp. 
Inc. designed the ultimate green 
screen at the lowest price. The Snapp 
Screen installs in a Snapp with the use 
of pressure sensitive tape. Reduce 
user fatigue with the Snapp Screen. 
DOSFIX 515 

A collection of patches to TRSDOS and 
BASIC to enhance their usability and 
function. Includes our well known 
BREAK7E patches and facilities to dis- 
able and verify detect which will 
increase average disk speed by 30%. 
Free with any Model II Software Pack- 
age. Purchased separately. s 1 5 



SUPERSNAPP X 

You can sort fast using your present 
facilities, or you can do it faster with 
Racets superb facilities, or you can use 
the fastest: SUPERSNAPP X. The heart 
Of SUPERSNAPP X IS a SUPER FAST in- 
memory sort routine that has been 
benchmarked against everything on 
the market and beats them all . . . 
hands down. 

SUPERSNAPP X is the most important 
component of SNAPP X EXTENDED 
BUILTIN FUNCTIONS which is a much 
needed set of additions to the Model II 
BASIC interpreter that will put time sav- 
ing power at your fingertips. Let's 
compare (using random data) SUPER- 
SNAPP X and Racets GSF SORT for 
speed 

bORT SUPERSNAPP X RACETGSF 

1 0.000 integers 39 seconds S9 seconds 
5.000 Singles 22 seconds 34 seconds 
2.000 Strings 10 seconds 1 5 seconds 
SUPERSNAPP X is guaranteed to be the 
FASTEST in memory SORT on the mar- 
ket or your money back. With it you 
also get these EXTENDED BUILTIN FUNC- 
TIONS: PEEK. PEEKW. POKE. POKEW. 
XDATS. XTIMS. ETIMS. FILES. AND THE 

SPECIAL SCMD (SNAPP COMMAND). 

PLUS: open "E" Set SCROLL PRO- 
TECTION. ERASE all ARRAYS in one 
command. Specify size and Blink rate 
Of CURSOR. LONG E~RROR MESSAGES. 
Read from Video Screen Read. 
PEEK complete strings from memory. 
POKE complete strings to memory, 
convert upper case to lower case and 
vice-versa, turn complete screen off 
and on at will, extract largest or small- 
est values from user supplied list of 
numbers 

We consider this next function as prob- 
ably the most powerful addition ever 
made to Microsoft BASIC. PRINT USING 
INTO A STRING. The ability to arrange 
data into a string variable should perk 
your imagination. 

Modem S 100.00 

Model III s 75.00 

SPOOLER Model I, Model II 
and Model III 

Our workhorse! Unltke the one sup- 
plied with TRSDOS 2.0. ours requires 
no special knowledge or training on 
the part of the operator. Additionally, 
ours performs much better. On the 
Tandy SPOOLER, every time a disk is 
accessed, the printer stops dead! This 
package is available for Model I. in the 
TRSDOS/ NEWDOS 80 versions, or for 
the Model II or Model III. Greatly 
enhances system performance when 
running typical business applications. 
Many applications have been bench- 
marked to run nearly TWICE AS FAST 
with the SPOOLER installed. Installs in 
minutes and no changes are required 
to your programs. The Model II version 
requires NO user memory. $ i oo 

SORTDIR 

Locate directory entries with ease. SORT- 
DIR will rearrange your directory entries 
in alphameric sequence on either a 
TRSDOS operating system or data dis- 
kette. The routine performs its function 
in seconds. No more wasted time hunt- 
ing for your entries. Another time saver 
fromSNAPPWARE. 30.00 



XSCREEN 

Supports the copying of the full video 
screen to the printer. Can be invoked by 
the operator with a keystroke, or from 
your program with a USR call. Requires 
NOusermemoru $30 

AUTOFILE 

Another big time saver from Snapp. 
Inc. Autofile offers all programmers 
much needed time saving tools to use 
when working with direct files. Elimi- 
nate tedious commands such as 
LSET'S. MKISS. MKDS'S. MKSSS. CVD'S. 
CVI's and CVS's. Even the FIELD 
statement has been eliminated. You 
won't have to guess as to where the 
FIELDed variable is. The ASC and CHRS 
function references will be performed 
automatically. MODEL ll S75 

_ MODEL III S60 

AUTOMAP 

Save time creating a formated screen 
with our Extended Basic Mapping Sup- 
port system. The programmers task of 
communicating and displaying infor- 
mation with the user operator is 
completely automated with simple 
SEND and RECEIVE statement com- 
mands. Many different types of 
information can be sent and received 
from the operators with the use of a 
single command. Many hours of pro- 
gramming time are saved and cost 
efficiency is truly realized using 
Autdmap. 

MODEL II SI 00 
DOTWO MODEL III S75 

Allows programmer to build a list of 
any commands. All languages are sup- 
ported. With DOTWO a programmer is 
now allowed to add any new com- 
mands of any kind and not be limited 
to subset restrictions. Anything that 
can be typed into the keyboard makes 
an acceptable command with DOTWO 
files. A programmer can virtually build 
an unlimited series of commands and 
not be limited to just TRSDOS com- 
mands. Included at no charge: BUILD/ 
BAS which gives a programmer an eas- 
ier method of creating and 
maintaining DOTWO or DO 
files. s 50 

MASTER /SLAVE 

This software package was designed 
to support the transferring of files 
from one Model II to another, via direct 
connection or modem/phone line 
connection. ALL kinds of files, and 
baud rates up to 9600 are fully sup- 
ported. Transfer files in either 
direction, even with the SLAVE Model II 
UNATTENDED! sioo 

HOSTII/TERMII 

Allows remote control of a Model II 
from another Model II. or any ASCII ter- 
minal. Our Host system, unlike the one 
supplied with TRSDOS 2.0. supports 
accurate screen positioning on the 
Term station. Without this feature, for- 
mated displays appear on the screen 
looking like randomly placed garbage. 
Requires NO user memory! This sys- 
tem is designed to provide software 
support to our customer locations 
without ever leaving the office. Cus- 
tom versions are now available for 
most nationally distributed terminals 
as a $25.00 option. Call for details. $50 



PL/B 

The most powerful logical com- 
ponents have been selected from the 
worlds most powerful language to 
give you the most unbeatable pro- 
gram development tool to improve 
your programming productivity! 
Snapp. Inc. has merged the most use- 
ful components of BASIC with the 
power of PL/ 1 . An unbeatable struc- 
tured programming facility resulted 
that can increase programmers pro- 
ductivity up to 50%. Unlike competitive 
products, which are slow rigid pre- 
processors' representing a primitive 
attempt to bring Structured Program- 
ming concepts to the Micro-Based 
user. PL/B is today's fourth generation 
answer to a fourth generation prob- 
lem! PL/B can give you triple the 
power of the earlier preprocessors at 
triple the speed. PL/B is fully 
integrated into the BASIC interpreter. 
Two modes of operation are available. 
Transparent (hidden) or Compile and 
save mode. Increase your productivity 
and save time with PL/B. szou.OO 

XPRINT 

Print neatly formated hard copy listings 
of BASIC programs from dish. Programs 
may be ASCII or compressed. Quick and 
easy group selection allows you to print 
many listing with one command S35. 

L25 

Add a line to your video display L 25 
allows you to type ahead of your video 
display. Your most recent command will 
appear on the bottom and remain, until 
display can accept new input. L 25 is an 
important aide for verifying input using 
fast keyboard entry. 50.00 

3M SCOTCH DISKETTES 

Double density certified 8" Floppies 
for the Model II. Better quality is not 
available at any price. Ten diskettes to 
a box. 




Quantity 


Price 


(boxes) 


Per/ Box 


1 


S34 


5 


S33 


10 


$32 



HEAD CLEANERS. The wet process 
cleaners causes less wear on your drive 
heads. Package of two including 
fluid. 25.00 

Authorized Distributor 

Information Processing Products 

TERMS OF SALE 

Shipments normally made within one day or 
receipt of your order Customer normally pays 
shipping cost, except pre-paid orders including 
software, in which case shipping cost is absorbed 
by Snapp. Inc COD orders willhave standard 
COD fee added to shipping charge Net 10 days 
will be granted to governmental agencies, educa- 
tional institutions and well rated business firms 
Please include purchase order number Ohio resi- 
dents add 5v.% sales tax or exemption certificate 

OUR GUARANTEE: 

if your diskette arrives damaged, we will replace it 
without charge. If you ever accidentally damage 
It. we will replace it for a s 10 handling charge. For 
a period of one year, we will provide you with 
any enhancements or updates for a s i s handling 
charge . For a period of one year, if errors are dis- 
covered in the programs, they will be corrected 
without charge. In the event we cannot correct an 
error, you may return the program material for a 
refuna 

TRS-80 and TRSDOS are trademarks of the 
Radio Shack division of Tandy/Corporation. 
NEWDOS and NEWDOS/80 are trademarks of 
Apparat. Inc. 
RACET CSF is a trademark of Racet Computes. 



Call our toll Free number: 1-800-543-4628 

Ohio residents call collect: (513)891-4496 

SNAPPWARE 

37l9AAantell 
Cincinnati. Ohio 45236 



APPLICATION 



Trace your roots by computer. 



Family Relationships 



Sil Horwitz 

152 Mill Run Drive 

Lake Mary, FL 32746 

My wife is a genealogy fiend 
who finds the research fas- 
cinating. She usually considers 
my work with the computer in the 
same category as playing with 
model trains, but one day she 
brought me a card and asked, 
"Could this be programmed into 
that thing of yours?" 

The card was a pyramid of 
sorts, which showed the relation- 
ship of one person to another 
from a common ancestor (pro- 
genitor). Following the lines of 
relationship was driving her 
crazy. Not knowing what I was 
getting into, and wanting to 
make the point that my TRS-80 
was not a toy, I agreed to write a 
program so she wouldn't have to 
follow the lines down a card. It 
looked like a simple job. It 
wasn't. 

The Program Listing follows 
the official designations for rela- 
tives to the sixth generation. (If 



you need more than that, the pro- 
gram is easily modified. My wife 
advises that more are rarely 
needed.) This program has made 
her life easy; she can now easily 
determine the relationship of a 
second cousin once removed to 
her great uncle! 

The Program Once Removed 

Lines 40 and 600 POKE in and 
out of video and hard copy print- 
out (when requested) so the com- 
mands appear on the screen in- 
stead of messing up your print- 
ing. Lines 220 through 380 pro- 
vide graphics to make it easier to 
visualize the generations from 
the common progenitor. Instruc- 
tions are given in lines 400 
through 560; these were made 
very concise, to fit on one page. 
Lines 550, 555 and 590 are traps 
to prevent the entry of unaccept- 
able data (it does not trap incor- 
rect data, such as calling a man 
F or putting a person in the 
wrong generation). Lines 640 to 
2640 include many GOTOs for 
the branching required to show 
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## 1 ####### 2 ####### 3 ####### 4 ####### 5 ####### 6 

* 

## 1 ####### 2 ####### 3 ####### 4 ####### 5 ####### 6 
GENERATIONS FROM COMMON PROGENITOR 



TO ESTABLISH RELATIONSHIP, CONSIDER GENERATION OF FIRST INDIVIDUAL, AS 
COMPARED WITH SECOND, USING NUMBERS TO INDICATE GENERATION FROM 
NEAREST COMMON PROGENITOR. COMMON PROGENITOR IS CONSIDERED '0'- 
COUNT FROM THERE. 

AS REQUESTED, ENTER NAME, SEX (M/F), GENERATION #-IN THAT ORDER, WITH 
EACH SEPARATED BY A COMMA AS SHOWN. 

ENTER NAME, SEX, GEN # OF FIRST INDIVIDUAL? JOAN.F.2 
ENTER NAME, GEN # OF SECOND INDIVIDUAL? JOHN,4_ 

Fig. 7. 



the relationships. 

How to Find Old Aunt Tillie 

It is most important that the 
proper common progenitor be 
selected. As an example, if you 
want to show the relationship of 
your uncle's children to each 
other, the common progenitor is 
your uncle. But, if you want to 
show the relationship of your un- 
cle's child, Joan, to your 
daughter's child, John, the com- 
mon progenitor is your grandfa- 
ther. (Logic: Grampaw = 0, your 
father and your uncle both = 1, 
you and your uncle's child = 2, 
your daughter = 3, and your 
daughter's child = 4— Joan is 
John's first cousin twice re- 
moved.) 

If you start at zero with the 
wrong person, every relationship 
will be wrong. There must be a di- 
rect lineage, and the common 
progenitor must be the first one 
you come to, working backwards 
from the relatives involved. 



Fig. 1 shows the screen 
display for the example given 
above. If you don't want this to 
appear each time, change 
ELSE220 in line 50 to ELSE540. 

As written, the program uses 
4K bytes, with another 1K re- 
quired for string manipulation. 
You could save enough space to 
get this into a 4K machine by 
eliminating the REMs, instruc- 
tions (lines 420 to 520), and intro- 
ductory material (lines 30, 100 to 
110, 3000 to 5000). You could 
also modify the program for 
Level I by changing to a Set rou- 
tine for the graphics in line 220, 
changing the @ to AT, using nu- 
merics instead of strings for the 
input (except A$ and B$), and 
eliminating line 130 and the 
POKE statements, as only the 
screen will be used. But it will 
work, and on a 4K machine, too! 

And, unlike human genealo- 
gists, the computer won't go 
crazy trying to figure the rela- 
tionships! ■ 



Program Listing 1. 



IB REM FAMILY RELATIONSHIP PROGRAM BY SIL HORWITZ, REV 3.6 80068 

7 

30 GOSUB3000:FORX«1TO8:GOSUB3048:NEXT:GOSUB3820:GOTO 100 

40 POKE16414,88:POKE16415,4 

50 Z»1:GOSUB70:PRINT§900,"TO CONTINUE, PRESS ENTER, OR '0' TO EN 

D"j: 

INPUTZ:IFZ-0THENEND ELSE220 

70 PRINT8832,STRINGS(62,32); 

80 PRINTe896,STRINGS(62,32);:IFZ-IRETURNELSEGOTO 120 

100 PRINT8333, "GENEALOGICAL RELATIONSHIP PROGRAM"; 

110 PRINTg464,"BY SIL HORWITZ, LAKE MARY, FL" ; 

120 PRINTS900,"LINE PRINTER (L) OR SCREEN (S)?" 

130 VS-INKEYS:IFVS="L"THEN 150 ELSEIFV$="S"THEN220ELSEGOTO 130 

140 CLEAR1000 

150 IF(VS""L")AND(PEEK(14312)>127)PRINT"LINE PRINTER NOT OPERATI 

NG; 

TURN ON BEFORE CONTINUING! II " :FORX«1TO1008 :NEXT: Z-8:GOTO 80 

220 CLS: PRINTS74, STRINGS (64, 140) ;:PRINTg202, STRINGS (54,140); 

240 FORY-4TO10:SET(20,Y) :NEXT 

260 PRINTM28," B "; 

280 PRINTS76," 1 " ; :PRINTe204 , " 1 "; 

300 PRINT§86," 2 " ; : PRINT3214 , " 2 "; 

Program continues 



192 • 80 Microcomputing, August 1981 



Program continued 

320 PRINT?96," 3 " ; : PRINT?224 , " 3 

340 PRINT6106," 4 " j : PRINT§234 , ■ 4 "j 

360 PRINTeil6," 5 " ; : PRINTS244 , " 5 "; 

380 PRINTei26," 6 " ; : PRINTS254 , ■ 6 

400 PRINT0271, "GENERATIONS FROM COMMON PROGENITOR* 

420 PRINT:PRINTTAB(5)"TO ESTABLISH RELATIONSHIP, CONSIDER GENERA 

TION OF* 

440 PRINTTAB(5)"FIRST INDIVIDUAL, AS COMPARED WITH SECOND, USING 

NUMBERS" 
460 PRINTTABI 5) "TO INDICATE GENERATION FROM NEAREST COMMON PROGE 
NITOR." 
480 PRINTTABI 5) "COMMON PROGENITOR IS CONSIDERED '0' - COUNT FROM 

THERE." 
500 PRINT: PRINTTAB(S) "AS REQUESTED, ENTER NAME , SEX (M/F) .GENERAT 
ION « - IN" 

520 PRINTTABI 5) "THAT ORDER, WITH EACH SEPARATED BY A COMMA AS SH 
OWN." 

540 PRINT: INPUT"ENTER NAME, SEX, GEN I OF FIRST INDIVIDUAL" ; AS, X 
S,A 

550 IF(XS<>"F")AND(XSO"M")PRINT"USE ONLY "F" OR 'M' FOR SEX" :GO 
TO540 

555 IFA>6THEN590 

560 INPUT'ENTER NAME, GEN • OF SECOND INDI VIDUAL" ;BS,B 
590 IFA>6ORB>6CLS:PRINTg450, 

"GEN I'S GREATER THAN 6 NOT ACCOMMODATED BY THIS PROGRAM" :GOTO 4 


600 IFVS-*L*POKE16414,141:POKE16415,5 
620 CLS:PRINT@390,AS+" IS "+BS+"'S "j 
640 IFXS-"F"GOTO700 
660 IFXS-"M"GOTO740 
700 IFA=0THEN780 

720 ONAGOTO1060, 1320, 1560, 1840, 2100, 2400 
740 IFA-0GOTO920 

760 ONAGOTO1180, 1480, 1760, 2020, 2260, 2600 
780 IFB-0PRINT*COMMON PROGENITOR* : GOTO 40 "A=0 

800 ONBGOT082 0,8 40, 860, 88 0,90 0,910 
820 PRINT"MOTHER":GOTO 40 
840 PRINT"GRANDMOTHER":GOTO 40 
860 PRINT"GREAT-GRANDMOTHER*:GOTO 40 
880 PRINT"GREAT-GREAT-GRANDMOTHER":GOTO 40 
900 PRINT"GREAT-GREAT-GREAT-GRANDMOTHER":GOTO 40 
910 PRINT"GREAT-GREAT-GREAT-GREAT-GRANDMOTHER":GOTO 40 
920 IFB-0PRINT"COMMON PROGENITOR" : GOTO 40 'A=0 

940 ONBGOTO960, 980, 1000, 1020, 1040, 1050 
960 PRINT "FATHER": GOTO 40 
980 PRINT"GRANDFATHER":GOTO 40 
1000 PRINT"GREAT-GRANDFATHER":GOTO 40 
1020 PRINT "GREAT-GREAT-GRANDFATHER": GOTO 40 
1040 PRINT"GREAT-GREAT-GREAT-GRANDFATHER":GOTO 40 
1050 PRINT"GREAT-GREAT-GREAT-GREAT-GRANDFATHER":GOTO 40 
1060 IFB=0PRINT"DAUGHTER":GOTO 40 'A=l 

108 ONBGOTO1100, 1120, 1140, 1160, 1170, 117 5 
1100 PRINT"SISTER":GOTO 40 
1120 PRINT"AUNT":GOTO 40 
1140 PRINT*GREATAUNT":GOTO 40 
1160 PRINT"GREAT-GREATAUNT":GOTO 40 
1170 PRINT"GREAT-GREAT-GREATAUNT":GOTO 40 
1175 PRINT"GREAT-GREAT-GREAT-GREATAUNT":GOTO 40 
1180 IFB»0PRINT"SON":GCTO 40 
1200 ONBGOTO1220, 1240, 1260, 1280, 1285, 1290 
1220 PRINT"BROTHER":GOTO 40 
1240 PRINT"UNCLE":GOTO 40 
1260 PRINT"GREATUNCLE":GOTO 40 
1280 PRINT"GREAT-GREATUNCLE":GOTO 40 
1285 PRINT"GREAT-GREAT-GREATUNCLE":GOTO 40 
1290 PRINT"GREAT-GREAT-GREAT-GREATUNCLE":GOTO 40 
1320 IFB=0PRINT"GRANDDAUGHTER":GOTO 40 'A-2 

1340 ONBGOTO1360,1380,1400,14 20,1440,14 50 
1360 PRINT"NIECE":GOTO 40 
1380 PRINT'FIRST COUSIN" :GOTO 40 
1400 PRINT'FIRST COUSIN ONCE REMOVED ": GOTO 40 
1420 PRINT'FIRST COUSIN TWICE REMOVED" :GOTO 40 
1440 PRINT'FIRST COUSIN THRICE REMOVED" :GOTO 40 
14 50 PRINT'FIRST COUSIN FOUR TIMES REMOVED" : GOTO 40 
1480 IFB=0PRINT"GRANDSON":GOTO 40 'A=2 

1500 ONBGOTO1S20,1380,1400,14 20,1440,14 50 
1520 PRINT"NEPHEW":GOTO 40 

1560 IFB»0PRINT"GREAT-GRANDDAUGHTER":GOTO 40 'A=3 

158 ONBGOTO1600,1400,1640,1660,1680,1700 
1600 PRINT"GRANDNIECE":GOTO 40 
1640 PRINT*SECOND COUSIN" :GOTO 40 
1660 PRINT'SECOND COUSIN ONCE REMOVED" :GOTO 40 
1680 PRINT'SECOND COUSIN TWICE REMOVED" :GOTO 40 
1700 PRINT'SECOND COUSIN THRICE REMOVED" :GOTO 40 
1760 IFB-0PRINT"GREAT-GRANDSON":GOTO 40 "A=3 

1780 ONBGOTO1800, 1400, 1640, 1660, 1680, 17 00 
1800 PRINT"GRANDNEPHEW":GOTO 40 

1840 IFB-0PRINT"GREAT-GREAT-GRANDDAUGHTER":GOTO 40 'A'4 
1860 ONBGOTO1880, 14 20, 1680, 1940, 1960, 1980 
1880 PRINT"GREAT-GRANDNIECE":GOTO 40 
1940 PRINT'THIRD COUSIN" .-GOTO 40 
1960 PRINT'THIRD COUSIN ONCE REMOVED" :GOTO 40 
1980 PRINT'THIRD COUSIN TWICE REMOVED" :GOTO 40 
2020 IFB=0PRINT"GREAT-GREAT-GRANDSON":GOTO 40 'A-4 

2040 ONBGOTO2060, 1420, 1680, 1940, 1960, 1980 
2060 PRINT"GREAT-GRANDNEPHEW*:GOTO 40 

2100 IFB-0PRINT"GREAT-GREAT-GREAT-GRANDDAUGHTER":GOTO 40 'A-5 
2120 ONBGOTO2140, 1440, 1680, 1960, 2220, 2240 
2140 PRINT"GREAT-GREAT-GRANDNIECE":GOTO 40 
2220 PRINT'FOURTH COUSIN" :GOTO 40 
2240 PRINT'FOURTH COUSIN ONCE REMOVED" :GOTO 40 
2260 IFB-0PRINT"GREAT-GREAT-GREAT-GRANDSON":GOTO 40 'A=5 
2280 ONBGOTO2300, 1440, 1680, 1960, 2220, 2240 
2300 PRINT"GREAT-GREAT-GRANDNEPHEW":GOTO 40 

2400 IFB»0PRINT"GREAT-GREAT-GREAT-GREAT-GRANDDAUGHTER":GOTO 40 ' 
A- 6 

2420 ONBGOTO2440, 14 50, 1700, 1980, 2240, 2540 
2440 PRINT"GREAT-GREAT-GREAT-GRANDNIECE":GOTO 40 
2540 PRINT'FIFTH COUSIN" :GOTO 40 

2600 IFB=0PRINT"GREAT-GREAT-GREAT-GREAT-GRANDSON":GOTO 40 'A-6 
2620 ONBGOTO2640, 14 50, 1700, 1980, 2240, 2540 
2640 PRINT"GREAT-GREAT-GREAT-GRANDNEPHEW":GOTO 40 
3000 CLS:PRINTei28,*"; 
3020 PRINTSTRINGS(63,"»") :RETURN 
3040 PRINT"»";STRINGS(61,32);"»":RETURN 
5000 END 




CAPABILITIES NEVER BEFORE POSSIBLE 
FOR MODELS I & III TRS-80! 

Expert programmers with a Fortune 500 company have 
revolutionized what you can do with your TRS-80. Since 
we're already well-paid by our employer, we can offer you 
our unexcelled quality software at exceptionally low prices 
Check our features and order today. You won't be 
disappointed! 

Sort/CMD. . .all this and more for just $19.95. 

• integrates easily into any Basic program or any other 
machine language program 

• designed for disk and non-disk operations 

• sorts up to 14 fields deep and can carry along up to 14 
additional fields 

• sorts any combination of any variable type ($/%/!/ tt) 

• sorts 35K of information in under 5 seconds 

Price includes program and documentation. If you prefer, 
order the dumps and documentation only for $12.00. 

Modifications $4.95 each 

to allow use of Sort/CMD in existing Radio Shack* programs 

• General Ledger I • Accounts Payable • Payroll 

• Business Mailing List • and many others 

Patches for Model ill 

• LMOFFSET/CMD & SUPERZAP/CMD* * Both for $5.95 

• RSM 2D/CMD*** FOR 16K. 32K, and 48K All 3 for $5.95 

Helpful, interesting Books $19.95 each 

Hundreds of pages filled with specifications, routines, 
tables, entry addresses, explanations, and much more to 
help you enjoy your Model III. 

• Mystery of the ROM • Mystery of the Diskette 

• Mystery of the DOS 
SPECIAL! All three for $49.95. 

Send certified check or money order (Kansas residents 
add 3% sales tax) to: Twenty-First Century Software 
1607 North Cochran Hutchinson, Kansas 67501 
Call 316 663-1047 for additional information. s 18 




•Registered trademark of Tandy Corp "Registered trademark ol Apparat. 
Inc "'Registered trademark ol Small Systems Software 



sSee List ol Advertisers on page 322 
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DATA MANAGEMENT 



Summarize yours and display the results. 



Vital Statistics 



C. Brian Honess 

Management Science 

Department 

College of Business 

Administration 

University of South Carolina 

Columbia, SC 29208 



In this article we'll build a pro- 
gram which will summarize 
and display descriptive data val- 
ue characteristics. Our program 
will compute and print the arith- 
metic mean, the range, and sev- 
eral other common descriptive 
statistics. 

The first step is to decide on 
an upper limit for the number of 
data values to put through the 
descriptive statistics program. 
The upper limit will be a function 
of the number of storage loca- 
tions your computer has in main 
memory and will also be a func- 
tion of the type of problem you'll 
be using the program for. Set 
the upper limit keeping in mind 
that at the top of the program we 
have to save storage locations 
for the data values to be sure 
that each possible value has a 
reserved space. 



Assume that we'll use the pro- 
gram for 100 or fewer data val- 
ues. Add one to this number, 
and code a DIMension state- 
ment. Use X as the variable 
name for the data values: 

10 DIM X(101) 

One must be added to 100 be- 
cause we reserve 100 storage lo- 
cations for valid data values, 
and one storage location for an 
invalid data value called a "trail- 
er" value. Trailer values signal 
the program when to stop read- 
ing in data values, allowing us to 
use the program for any number 
of values from 1 through 100. 

To choose an appropriate trail- 
er value you have to know some- 
thing about the possible data 
values the program will process; 
the trailer value is, selected from 
outside the range of valid data 
values. For example, if you are 
going to process examination 
scores that range between and 
100, inclusive, a suitable trailer 
value would be any number less 
than 0, or any number greater 
than 100. 

It could well be that you don't 



have any idea what you'll be run- 
ning through your descriptive 
statistics program at the time 
you write it. In this case, you 
could input or read a value for 
the trailer when the program is 
run. Any of the following pro- 
gram segments could be used: 

20 PRINT "WHAT IS THE SMALLEST 

POSSIBLE DATA VALUE?" 
30 INPUTS 
40 T = S-1 

or 

20 PRINT "WHAT IS THE LARGEST 

POSSIBLE DATA VALUE?" 
30 INPUT L 
40 T = L+1 

Or, since Basic allows Print and 
Input to be combined: 

20 INPUT "WHAT IS THE LARGEST 

POSSIBLE DATA VALUE"; L 
30 T = L+1 

Using the Read statement, you'd 
have to code an appropriate 
data statement before the pro- 
gram was run: 



20 READS 

30 DATA 35 (or whatever your smallest 

value is) 
40 T = S - 1 



or 

20 READ L 

30 DATA 1234 (or whatever your largest 

value is) 
40 T = L + 1 

Let's assume we'll always be 
using the program for data val- 
ues between and 100, inclu- 
sive, so that - 1 would be an ap- 
propriate trailer value. The next 
step is to code data statements 
with the various data values. 
We'll assume some exam scores 
and not bother with an Input or 
Read for the trailer value, but just 
attach it at the end of the list: 



10 DIM X(101) 

20 DATA 78,56,89,90,45,27,72,89,88,46 

21 DATA 66,98,99,42,51,70,89,90,89.93. - 1 



You don't need to know how 
many numbers you've got as 
long as you have less than the 
number you dimensioned for, 
and you don't have to sort them 
into any predetermined order. 

The next step is to load the X 
vector (the multi-location X ar- 
ray) with data values. This can 
be done by putting a read state- 
ment inside a loop. Also keep 
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K 



Fig. 1. Sample X Vector 



checking for the trailer value, so 
that you know when to exit the 
loop: 



30 FOR I = 1 TO 101 

40 READX(I) 

50 IFX(I) = -1 THEN 70 

60 NEXT I 

70 N = l-1 



In line 30, the loop counter 
goes to 101, which is the number 
we earlier dimensioned X. If you 
change the DIM statement you 
must change this upper limit val- 
ue for the loop counter. Line 50 
checks to see if the value just 
read is the trailer value. If you 
determined the trailer value us- 
ing an Input or Read statement, 
you'll have to change this line to: 

50 IFX(I) = TTHEN 70 

Line 70 calculates the number 
of valid data values in the X vec- 
tor. One must be subtracted 
from the value of I when the loop 
exit occurs so the trailer value 
won't be counted as a valid data 
value. The X vector, for our ex- 
ample, now looks like Fig. 1. 

The variable N will be used 
throughout the remainder of the 
program as the upper limit of 
loop counters to avoid going all 
the way through the X vector to 
the dimensioned limit. In the ex- 
ample, for instance, we need 
deal with the first 20 storage lo- 
cations of X only, since the other 
81 don't contain valid data val- 
ues. 

Knowing N, we can add N 
data values and calculate the 
arithmetic mean. The formula 
for the arithmetic mean is: 



_ n 
X= Z Xj/n 
1 = 1 



X (read X-bar) is the mathe- 
matical symbol for the arithmet- 
ic mean. The formula simply 
says that you find X-bar by add- 
ing all the X values, from first to 
nth, and divide by n, the number 
of data values. The capital Greek 
S, or sigma simply means sum 
in mathematics. We'll initialize 
the variable SM to zero, enter a 



loop and find the sum of the N 
data values: 

80 SM = 

90 FOR I = 1 TO N 
100 SM = SM + X(I) 
110 NEXT I 

Line 80 defines SM for use in line 
100. 

The arithmetic mean (hence- 
forth AM) can now be easily cal- 
culated using: 

120 AM=SM/N 

Using the test data, SM = 1467 
and the AM is 73.35. Print the 
mean and the number of valid 
data values so you can run and 
check your program. Use simple 
print statements: 

130 PRINT "NO. OF DATA VALUES = "; N 
140 PRINT "ARITHMETIC MEAN = "; AM 

The Harmonic Mean 

In order to illustrate a case in 
which the harmonic mean is de- 
sirable, consider the following 
example: Suppose you drive 
your car to a city 100 miles 
away, and you make the trip in 
one hour. You've averaged 100 
miles per hour. Now, you turn 
around and make the return trip 
in two hours (maybe weighted 
down by your speeding tickets?), 
so your average speed for the re- 
turn trip is 100/2 = 50 miles per 
hour. 

What is your average speed 
for the entire trip? On the sur- 
face, it would seem that with an 
average speed of 100 mph go- 
ing and 50 mph on the return, 
your average speed should be 
(100 + 50)/2 = 75mph. 

Using the formula for the 
arithmetic mean, this does in- 
deed seem to be correct. But 
wait a minute... the total trip 
was 200 miles, and you were 
gone for three hours, so wasn't 
your average speed really 
200/3 = 66.66 mph? In this case 
the arithmetic mean statistic 
failed us. Actually, we just se- 
lected the wrong statistic and 
should have used the harmonic 
mean. The formula for the har- 
monic mean is: 



HM= „ , 
,i * 

The formula basically says we 
need to divide the number of 
data values by the sum of the 
reciprocals of the data values. 
Continuing with the example, 
the formula produces the cor- 
rect answer: 



• 1 

100 4 



.01 + .02 " .03 



— no - 66.6 



Now a problem involving in- 
vestments. Suppose you have 
$100 to invest in a particular 
stock each month. The price of 
the stock will probably vary, and 
you'll buy a different number of 
shares each month for your$100 
investment. If you want to calcu- 
late the price per share over a 
period of several months, the 
harmonic mean will produce the 
correct answer. 

This problem is analogous to 
the average speed problem, in 
that the number of miles be- 
tween two cities is constant, as 
is the total investment per 
month. The number of shares 
purchased in a given month is 
analogous to the miles per hour 
value for a particular lap of the 
trip. 

A similar application would 
involve a constant gas tank ca- 
pacity on your car. Suppose you 
have a 20 gallon gas tank, and 
you always refill it at exactly the 
point where you have run out of 
gas. If you always buy exactly 20 
gallons but at a variety of prices 
per gallon, you'll find the har- 
monic mean useful for calculat- 
ing the average price per gallon 
of gas. 

Let SM serve as an accumula- 
tor for the sum of the reciprocals 
this time. The harmonic mean, 
(HM) can be calculated with this 
code: 

150 SM = 
160 FOR 1 = 1 TON 
170 SM = SM + 1/X(I) 
180 NEXT I 



190 HM = N/SM 

We can then print it using: 

200 PRINT "HARMONIC MEAN =";HM 

If you run the program to this 
point, you should get a value of 
64.9336 for the harmonic mean. 

The Geometric Mean 

The geometric mean is ex- 
tremely useful in business appli- 
cations for calculating the aver- 
age percentage rate of growth 
of a variable over time. For ex- 
ample, assume you invest $100 
and it grows to $108 by the end 
of a year. At the end of the sec- 
ond year you have $120, at the 
end of the third year you have 
$135, and at the end of the fourth 
year you have $160. You can cal- 
culate the percentage of in- 
crease each of the years by 
looking at the ratio of growth for 
each particular year (see Table 1). 

Suppose you want to find the 
average rate of growth over the 
four year period. You could find 
the arithmetic mean of the per- 
centage increases— (8 + 11.1111 
+ 12.5 + 18.5185)/4 = 12.5314 per- 
cent. This seems a reasonable 
answer, but is it correct? An 
easy way to find out is to substi- 
tute values into the compound 
interest formula: 

Value = Principal (1 + rate) No - of Periods 
V = 100(1 + 0.125314)' = 160.365 

This is 37$ more than the $160 
value shown in the table. The dif- 
ference may not seem large, but 
we've used very small values— it 
would be much larger if we used 
a larger principal and/or a great- 
er number of years. This error 
was not caused by round-off er- 
rors or some other computer- 
connected problem but by us- 
ing the wrong statistic. Instead 
of the arithmetic mean, the geo- 
metric mean should have been 
used. 



End of Year 


Principal 


Ratio of Growth Percent Increase 


1 

2 

3 
4 


$108 
120 

135 
160 


108/100 = 1.08 8.0 
120/108 = 1.T1 11.71 
135/120 = 1.125 12.5 
160/135=1.185 18.5TB 




Table 1. 


Stock Calculations 
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the software source 



Visit our new Retail Center at 20, Jericho Tpke.. Jericho. 
Long Island, NY. Call (516) 333 -2266 for hours & directions. 




JTO 



TUtvf 




ORCHESTRA 85 





TRS-80 MODEL I 16K TAPE OR DISK 

Jon Bokelman and Software Affair score again! Now there's a 
music/sound generating system even more powerful and ver- 
satile than their extremely popular Orchestra 80! 

Listen to what It does: 

ORCHESTRA 85 plays in stereo, permits channel switching, 
allows stereo separation by both instrument and voice, and 
supports percussion effects. 

ORCHESTRA 85 supports four voices (plus a fifth if a speed-up modi- 
fication is installed). 

ORCHESTRA 85 loads Orchestra 80 music (hundreds of songs), plays 
it in stereo. Compose! Orchestrate! Trade with others! 

Listen to what's Included: 

Software: digital synthesizer, music language compiler, full screen 
editor, file manager, voice initialization utility. 

Hardware: a single PC board that plugs into expansion connector on 
on keyboard or into screen printer port on expansion interface. Con- 
nects to any stereo amplifier system; external power source not required. 

Unit does not void your Radio Shack warrantee. Comes complete 
with tape and disk versions of software, detailed instruction 
manual, sample music programs. (Speakers, amplifiers not included.) 

All at a price that's music to your ears: ONLY 



TRS-80 is a trademark of Tandy Radio Shack Corp 



$12900 



nmt MIZ' SPELL 



TRS-80 MODEL I 48K DISK (Soon available for Models II & Ml) 
Picture the fastest, most accurate schoolteacher you ever had, point- 
ing out all your spelling errors so you can correct them instantly. 
This new spelling checker for Electric Pencil and Scripsit files is 
modeled after her: it's virtually impossible to misspell with MIZ SPELL! 
Unlike other spelling checking programs: 
MIZ SPELL will operate on one or more disc drives. (Some others 
require a minimum of two.) 

MIZ SPELL will work with words of any length. (Others have limits 
on maximum word length.) 

MIZ SPELL is interactive; you can correct mistakes as they are 
pointed out. (Some others require multiple, time-consuming 
passes.) 

Check these features vs. other spelling checkers: 
MIZ SPELL maintains separate dictionaries for specialized vo- 
cabularies, each with a 27,000 word capacity. (1 8,000 included.) 
MIZ SPELL permits examination of unused dictionary space and 
allocation of space for new dictionaries. 
MIZ SPELL learns new words from your text files as it check for 
spelling errors. (Words can also be deleted from the dictionary— 
but not accidentally, as with some other programs.) 
MIZ SPELL offers such options as: ignore word in text, delete word 
in text, change word in text, add all remaining words, etc. 
MIZ SPELL permits user configuration of system, including specifi- 
cation of default extensions for original and corrected text file. 

Now check the low Introductory price: ONLY <£ A Q95 

DEALER INQUIRIES INVITED. MIZ SPELL is published by Sof Pub. • ^fr^T 
Inc. For information, contact Richard Taylor.President. Programs 
Unlimited at the address or phone numbers shown below. 



Uf\yu Tf) DRDFR' Ma Sl 00 'or postage and handling 
nwn ' w wrwtn. NY Residen|s add sales tax 

CALL TOLL FREE: (800) 645-6038 (except NY*) 

COMPUTER TO COMPUTER: (516) 334-3134 

WRITE: Dept. 881 M. Box 265, Jericho. NY 1 1753 



Meet author ARNOLD SCHAEFFER 

Attends Georgia Tech starting Fall, 1981, 

plans to ma|or in computer science First 

exposed to computers in 6th grade, sold 

rst program at age 1 6 Characterizes 

self as not a good speller"; was 

inspired to write MIZ SPELL when 

he examined available 

programming in store, decided 

it could have been done 

much better 




ATTENTION, SOFTWARE AUTHORS. SolPub Inc. may be the aggres- 
sive marketer you've been seeking tor your programs For details, contact 
Rchard Taylor. Programs Unlimited at the address or phone below. 



row 
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FULL GUARANTEE 



s 



"NY State residents call 516- 997-8668 
(Call collect tor orders only, please) 



If for any reason dissatisfied with any purchase from PROGRAMS 
UNLIMITED, return merchandise in original condition and pack- 
aging for prompt, full refund. 
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The formula for the geometric 
mean is: 

n n 
GM = n X| 

i = 1 

The Greek capital P (n), or Pi, 
means product. The formula 
says to take the nth root of the 
product of all of the data values. 
Returning to our example, you 
get: 



GM = * 8-11.1111-12.5-18.5185 
= ' 20576.1=11.9768% 



Now you have two answers: 
12.5314 percent using the arith- 
metic mean, which we've proved 
to be wrong, and 11.9768 per- 
cent using the geometric mean. 
Test 11.9768 by using the same 
technique used before: 

V = 100(1 + 0.1 19768) 1 = 157.221 

You're even farther away from 
the $160 you'd like to see as the 
result! What's going on here? 
Maybe we're finding the geo- 
metric mean of the wrong set of 
numbers. 

Take the starting principal and 
the ending principal, put them 
into a simple financial formula 
and see if the answer is some- 
where in the vicinity of the two 
you've already calculated, re- 
turning a correct $160 when sub- 
stituted back into the com- 
pound interest formula. 

4 160/100-1=0.124682 

You can easily check to see that 
this is correct, because: 

100(1 +0.124682)' = 160 

You need only realize that we 
should have been using the fol- 
lowing: 

GM = ' 1.08-1. 11111*1. 125-1. 18519 
= 1.12468 

If you subtract 1, you'll have the 
correct average growth rate of 
12.4682 percent. 

The geometric mean will be 
easy to code, but you need to 
note carefully that we're initial- 
izing the product to one and not 
to zero, as we did in the previous 
two cases. Sums are always ini- 
tialized to zero and products to 
one. Work through this small 



section of code and see why it 
must be initialized to one and 
not to zero. 

210 P=1 

220 FOR I = 1 TO N 

230 P = P-X(I) 

240 NEXT I 

250 GM = Pt(1/N) 

260 PRINT "GEOMETRIC MEAN "; GM 

In line 250 the nth root of a num- 
ber is found by raising it to the 
reciprocal of n power. 

If you key in the program to 
this point and run it, you should 
get the following output: 



NO. OF DATA VALUES = 20 
ARITHMETIC MEAN = 73.35 
HARMONIC MEAN =64.9336 
GEOMETRIC MEAN =69.5528 



Some versions of Basic may 
have a slightly different preci- 
sion, more decimal places of ac- 
curacy, etc., but if you don't get 
these answers, or some very 
close, recheck your program. 

Growth-type problems are not 
the only use for the geometric 
mean; it is also useful in reduc- 
ing the effects of "way out" data 
values. For example, suppose 
you consider the weekly income 
of the first 10 people you meet 
on the street in an effort to de- 
scribe the typical wage-earner in 
your town. The first nine people 
have weekly incomes ranging 
from $150 to $500 but the last 
person we encounter is an oil- 
rich Sheik, making about 
$500,000,000.00 a week. If you 
found the arithmetic mean of 
these 10 values you'd expect it 
to be about $50,000,315. 

Telling the world that the typi- 
cal person in your town makes 
$50,000,315.00 a week would 
certainly create the wrong im- 
pression. The geometric mean 
would produce a figure closer to 
the weekly earnings of the ma- 
jority of wage-earners. The same 
problem might occur in an 
examination in which most of a 
class scored high, while a small 
percentage scored very low. The 
arithmetic mean would be the 
average grade, but it could be 
very misleading; the geometric 
mean would be a better descrip- 
tive statistic to use in this case. 

There is an interesting rela- 
tionship among the arithmetic, 
harmonic and geometric means: 
harmonic<geometric<arithmet- 
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TSHARE 2.0 




MULTI-USER SYSTEM 

for the 

TRS-80® MODELS I & III 

Powerful addition to NEWDOS80® expands the capacity of a 

single TRS-80 to service TWO active users with full access to 

NewdosSO. 

Users operate independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 

interface (software drivers built-in for RS-232*, HUH-8100", 

TRS232®,andMPR-232* interfaces). 

SIMPLEX mode for non serial-port users. Requires only expansion 

interface or TRS232 with printer to act as second "screen". 

Jobs share TRS-80 keyboard under user control. 

CONFIGURE utility makes it easy to partition memory between 

users and select I/O modes. 

TSHARE 2.0 for NEWDOS80 $ 99 

Please specify model I Or III (Model III available Sep. 1, 1981) 
TSHARE 1.3 forTRSDOS2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 + MPR-232 interface (for non RS-232 users) . . $199 

$10 Upgrade privilege for TSHARE 1.3 licensees 



DDM5 



$79 
MODELS I 4 



MULTI-FEATURE DATA MANAGER 



Up to 20 user defined fields. 

Files extend across multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



Four data types and compu- 
tational fields. 

Flexible REPORT GENERATOR. 
Fast assembly language sorts. 
MULTI-FIELD sorts & searches. 
Keyed access on any sorted field. 
Indexed relations between files. 



VIEW 



$1995 CSTOCK 



$49 



A SCREEN FORMATER 
FORDBM5 

Full CURSOR control 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

& edit 

Elegant & professional look 



DISK DATA BASE & 

ANALYSIS TOOL 

FOR STOCKS & OPTIONS 

Regression analysis 

Charts 

Portfolio selection 

Risk management 



SERIAL I/O 
MPR-232 



A serial port intertace designed to properly connect to TRS.-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud rates 50 to 19200 
Manufactured by: 
Micro Projects Engineering Co. 
Culver City, CA 

$119 (ASSEMBLED* TESTED) 



TO ORDER 



CcmSclr fc 



TRS-80 tm 

Radio Shack/Tandy Corp. 
NEWDOS tm Apparat, Inc. 
TRS232 tm Small System 

Software 
HUH tm California Computer Systems. 



1569 Westwood Blvd. 

Suite B 

W. Los Angeles, CA 90024 
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ZIP UP YOUR 
MO PEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times faster. It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed - no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line - not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 
speed. 

$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled. 

$24.00 



"SATISFACTION GUARANTEED" 



Add S2.00 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 



THE BIGGEST NAME IN LITTLE COMPUTERS" 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




on 



TRS-80 computers, 
software and peripherals 

Similar values on all merchandise 
CALL COLLECT: 

915-283-2920 

Van Horn Office Supply 

701 W. Broadway -- P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 ■ 

Form F48 Provided BB 

Standard Warranty in Effect 
THE NATIONWIDE SUPERMARKET OF SOUND® 
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ic. The equality relationship 
holds when all data values are 
the same. 

Measures of Dispersion 

These means are called "mea- 
sures of central tendency" be- 
cause they describe where the 
center of a group of data values 
tends to be. Two other measures 
of central tendency, the mode 
and the median, will be dis- 
cussed after investigating some 
"measures of dispersion." 

There are four popular mea- 
sures of dispersion, the "range," 
the "mean deviation" (some- 
times called the "average devia- 
tion"), the "standard deviation," 
and the "variance." 

Assume a large programming 
class has just taken an exam, 
and you want to compare the 
performance of this class with 
one taught by another teacher. 
Assume each class has 100 stu- 
dents. Suppose the first teacher 
calculates his class average to 
be 75, and the second teacher 
replies that this is a real coinci- 
dence, since his class also aver- 
aged 75. 

Can we say that the perfor- 
mance of the two classes was 
equal? No, we can't— in fact, we 
can't say that even if both teach- 
ers reply that their lowest score 
was 50, and their highest score 
was 100. 

Consider just two of the many 
possible arrangements that 
could produce all of the stated 
conditions: 

• Fifty students score 50, 
and 50 score 100. 

• One student scores 50, 98 
score 75, and one scores 
100. 

In both cases, the arithmetic 
mean = 75, the range = 50, the 
high score = 100, and the low 
score = 50. The arithmetic mean 
by itself is not enough to de- 
scribe a set of data values; you 
need a measure of how spread 
out the data values are— a mea- 
sure of dispersion. 

The mean deviation, or aver- 
age deviation, has a fairly for- 
midable-looking formula, but is 
easy to understand and easy to 
code into Basic: 



i 
i = i 



,-x 



MD = 



The two parallel bars mean 
"absolute value"; this is a fancy 
way of saying you should erase 
the sign of any negative number. 
The whole formula says: Take 
the difference between each 
data value and the mean; if this 
difference is negative, make it 
positive. Then add the differ- 
ences, and divide by the number 
of data values you have. In other 
words, you're finding the aver- 
age distance, or deviation, of the 
data values from the mean. If 
the mean deviation is small 
you'd expect the data values to 
be clustered near the mean, as 
in the second case above, where 
98 percent of the students made 
a score exactly at the mean. A 
large mean deviation would indi- 
cate that the data values are 
spread out. 

There are two ways to find the 
absolute value of the difference 
between a data value and the 
mean. You could test this differ- 
ence and if it was negative mul- 
tiply it by - 1, thereby making it 
positive, or you could use the 
ABS arithmetic function found 
in most versions of Basic. Let's 
use the second method, since 
this is nearly a universal intrin- 
sic function. Again, we'll need to 
add some data values, so we'll 
use SM and initialize it to zero. 



270 SM=0 

280 FOR I = 1 TO N 

290 SM = SM + ABS(X{I) - AM) 

300 NEXT I 

310 MD = SM/N 

320 PRINT "MEAN DEVIATION = "; MD 



A second measure of disper- 
sion is the standard deviation. 
The standard deviation and its 
kin, the variance, are used more 
often than is the mean devia- 
tion, because they allow you to 
make inferential statements 
about a distribution and a sam- 
ple drawn from a distribution. 
For example, you could say, 
"Based on this sample of inte- 
grated circuits we've drawn 
from that big bin over there, I'm 
95 percent sure that the number 
of bad integrated circuits in the 
bin won't exceed four percent." 

The standard deviation (sym- 
bol: small Greek sigma, o) is sim- 
ply the square root of the vari- 
ance (symbol: o 2 ), so we'll calcu- 
late and print both together. The 
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ISCOI 

ITERI 


INT! 
EQU 




1 

PM 


ENI 



16K MEMORY ONLY $25.95! 

For TRS-80 Keyboard or Expansion 
interface. KEYBOARD requires jumpers: 
$2.00 Extra. These are 200 ns tested RAM 
for the TRS-80, APPLE or EXIDY. 



DISK DRIVES for the TRS-80 OR PMC-80: 



All of our drives come complete with power supply 
and chassis. They may be used with existing Radio 
Shack drives on the same cable! 40 track drives 
store 102K bytes single density, and 175K double 
density. 80 track drives have 175K single density 
and 345K double density! All drives guaranteed 90 
days, one year on power supply. 

40 track MPI drives $319.95 

40 track TEAC drives $315.95 

40 track TANDON drives $319.95 

80 track MPI drives $449.95 

80 track TEACdrives $429.95 

2 drive cable $ 25.95 

4 drive cable $ 39.95 

NEWDOS 80 VER. II $139.95 

NEWDOS 80 VER. I Special sales price. 

Limited Quantity $89.95 

PERCOM'S DOUBLER II 

for double density operation! $169.95 

The DOUBLER works with the TRS or PMC 
expansion interfaces to allow you to useyourdnves 
in double density! You may still operate your drives 
as single density also! Comes with DBLDOS 
operating system which allows you to transfer 
single density files to double and vice versa! GREAT 
BUY! 

DISKETTES: VERBATIM DATALIFE! BOX OF TEN 
SOFT OR HARD SECTORED 5V $32.50 

WE HAVE DRIVES AND CONTROLLERS FOR THE 
MODEL III. CALL FOR PRICES!!! 




MODEMS AND TELE- 
COMMUNICATIONS 



LYNX Telecommunication 
system for the TRS-80 and 

PMC-80 $279.95 

Includes terminal software and 
connections for instant 
hookup 1 Can be connected to the TRS-80 or PMC- 
80 with or without an expansion interface 1 

LEXICOM MODEM 300 BAUD Requires 

RS-232 $169.95 

THE SOURCE: Hook-up to the 

"SOURCE" $ 9995 

•TARICONNECTION: Modem for 400/800, 

complete with software! $249.00 

APPLECONNECTION: Modem for 

APPLE II $279.95 




COMPLETE SYSTEMS: 



PMC-80, 16K LEVEL II 

COMPUTER $739.00 

The PMC-80 is a work alike to 
the TRS-80 mod I computer! 
Comes with Microsoft's BASIC 
in ROM. Built in cassette. 12" 
video monitor. Expandable to 
48K. 
Compatible to All TRS-80 MOD I Programs. 

PMC 80 without monitor $595.00 

RF— MOD for PMC to TV hookup $39.95 

PMC-80 EXPANDER 100 SYSTEM $499.95 

INCLUDES: 32K memory, Parallel printer driver, Disk con- 
troller. Fully compatible with TRSDOS, NEWDOS, VTOS, 
and all other TRS-80 Mod I disk software! 

New New PMC-81 Computer is here CALL 

APPLE II COMPUTERS 48K $1299.00 

ATARI 400 $ 495.95 

ATARI 800 COMPUTER $ 795.00 

ZENITH Z-89 48K. 1 DISK ALL IN ONE 
COMPUTER $2495.00 



VIDEO MONITORS 



LEEDEX 100 12' B/W MONITOR $159.95 

SANYO 9' B/W MONITOR $199.95 



PRINTERS 



OKIDATA MICROLINE 80 All OKI'S have TRS-80 

Graphics!!! $420.00 

Comes with friction and pin feed, upper/lowercase, 

Graphics. 

EPSON MX-80 PRINTER: Word Processing Quality 

Printout with Graphics! Call 

NEC SPINWRITER with Tractor Feed $2995.00 

DIABLO MODEL 1630 with Tractor $2695.00 

UNIVERSAL PRINTER STANDS $ 94.50 

Other Accessories: 

SUP-R-MOD RF Modulator for APPLE $29.95 
ARCHBOLD SPEED-UP MOD FOR TRS MOD I. 

Allows up to 300% increase! $45.00 

MICROSOFT BASIC Decoded and other 

mysteries $29.95 

TRS-80 DISK and other mysteries $18.95 

ZBASIC BASIC COMPILER for MOD I and MOD III 
TRS-80 and PMC-80 Increase basic program 
speeds by up to 200 times!!!!! 
Tape $79.95 Disk $89.95 

Both For Only $99.95 Specify MOD I or MOD III 

WE HAVE HUNDREDS OF PROGRAMS FOR 

ALL THE POPULAR COMPUTERS! 

CALL FOR OUR FREE CATALOG 



COMPUTER PRODUCTS 

4877 E Speedway Blvd 
Tucson. Arizona 85712 
(602) 323-9391 Technical Questions 



■'.■ 
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(800) 528-1149 

Please mention this magazine when ordering 

ARIZONA RESIDENTS ADD 6% SALES TAX. 

WE TAKE VISA, MASTER CARD. 



Personal and Business Checks take 3 weeks to clear. For fastest delivery use Certified Checks. Money Orders. Credit Card, or C O D 

We will try and beat any published price on any system! Call! 
SIMUTEK CALL TOLL FREE TO ORDER 



TRS-80 IS A TRADEMARK OF RADIO SHACK A TANDY CORP APPLE IS A TRADEMARK OF APPL F INC 



^See List of Advertisers on page 322 
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formula for the variance is: 



2 (Xj-X)' 
i = 1 



You could say that we're just 
getting rid of the possible minus 
sign by squaring the term, in- 
stead of taking the absolute val- 
ue. Later, when we take the 
square root of the variance, 
we're just scaling it back down 
again to get it in line with what 
the mean deviation would be. It 
is important to realize that the 



mean deviation will not equal 
the standard deviation because 
the squaring process tends to 
more heavily weight the extreme 
data values. 

Since you're confronted with 
the capital sigma, or summation 
sign, you're going to have initial- 
ize SM to zero again. The arith- 
metic mean is still stored as AM, 
and N contains the number of 
valid data values. 

330 SM=0 

340 FOR I = 1 TO N 

350 SM = SM+(X(l)-AM)t2 



360 NEXT I 
370 V = SM/N 

380 PRINT "VARIANCE =";V 

390 SD = SQR(V) 

400 PRINT "STANDARD DEVIATION = "; 
SD 

Adding these three statistics 
to the existing program, you 
should get the following results 
when you run it: 



NO. OF DATA VALUES = 20 
ARITHMETIC MEAN = 73.35 
HARMONIC MEAN =64.9336 
GEOMETRIC MEAN =69.5528 
MEAN DEVIATION = 18.515 
VARIANCE = 448.628 
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Fig. 2. Memory Diagram 



STANDARD DEVIATION =21.1808 

Sort the data values into as- 
cending order, allowing the cal- 
culation of the median and the 
range. There are dozens of sort- 
ing routines. The selection is 
usually somewhat dependent 
upon the type of data you want 
to sort, the type computer you 
have, the size of the vector you 
want to sort and other things. 

We're going to choose a sort- 
ing technique that isn't the fast- 
est method, but it is fairly easy 
to explain and should prove to 
be easy to modify to suit your 
particular needs. 

Many sorting methods rear- 
range the data values within the 
same vector with which you be- 
gan. In this case, you'd go into 
the sort routine with your X vec- 
tor containing the N valid data 
values. You'd emerge from the 
sort routine with the same X vec- 
tor, but this time the values 
would be sorted. 

We're going to take another 
approach— the creation and fill- 
ing of a second vector (let's call 
it S for sorted) which you'll fill 



EDflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of "GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntaxediting. EDAS 
provides power with ease of 
use. $79 + $S&H. 



DLITJL 



DUTIL is a utility to examine, 
clear, initialize, move, and modify 
data in memory. Load, punch, 
verify SYSTEMtapes. Disk sector 
I/O. More! $20. 



CMDFILE 



Now you can append two or more 
CMDfilesand/orSYSTEMtapes. 
Perform transfer to & from disk/ 
tape of SYSTEM/CMD modules 
with offset capabilities. $20. 




LDOS is the latest generation of sophisti- 
cated operating systems for the TRS-80 
computers. LDOS is completely docu- 
mented in a 252-page reference manual. 
Total support is provided from some of 
the most knowledgeable people in the 
industry. You owe it to yourself to inves- 
tigate this system . Call or write for details. 
LDOS is priced at $149 plus $4 S&H. 



. 



LDOS 5.0 



DSMBLR 



Complement your assembly language tools with this 
Z-80 disassemble* which pfqduces screen, printer, 
cassette, or disk file aatfttft,. A 4V|fO,.pass process 
provides SY$t&Ot5for 16-bifaddtesJfand 8-bit rel- 
ative references.. EQUates & ORG, are generated. 
Read 1 SY&lftf ^^npis & display foil address 
range. $20 (DSMBLR I for non-disk use is $15> 

EDAS, CMDFILE, DSMBLR Specify Md^Ort||;AirJ«l 

$1 S&H + $.50 ; p«r prqgram. J^ wsWfefitsadd 4%. 

MISOSYS'? v Dept. MU2 ^221 

5904 Edgehill Drive 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited 
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DJSKiriQD 

Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 

THE B00K 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed. Volume II tells you every- 
thing you wanted to know about 
the Level II l/O-printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKs will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $14.95 or buy both for $24.95. 
Add $1.50 S&H per book. 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES, 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 

'TRS-80 is a trademark ot Tandy Corp 
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RS205 



AP101 Apple II with Single Disk Drive $109 

AP102 Apple II with Double Disk Drives 119 

AP103 Apple II, 9 inch Monitor & Double Drives ... 129 

AP104 Apple ///, two additional Drives & Silentype 139 

AP105 12 inch monitor plus accessories 99 

RS201 TRS-80 Model I, Expansion Unit & Drives. . . ., 109 

RS202 TRS-80 Monitor or TV set 84 

RS204 TRS-80 Model III 129 

RS205 Radio Shack Color Computer 89 

P401 Paper Tiger 440 445/460 99 

P402 Centronics 730/737 - Line Printer HIV 89 

P403 Epson MX70 or MX80 89 

CC90 Matching Attache Case 75 

* 199 compter case company 

5650 INDIAN MOUND CT COLUMBUS. OHIO 43213 (614) 868-9464 
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PIGGYBACK! 




CEnTRDRICS 

ADD lowercase with our 
plug-in piggyback board! 

9WX7H Dot Matrix $135 
5WX7H Dot Matrix $ 95 

TWO complete character sets on board: 

96 character ASCII PLUS choice of 
128 character APL, TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY SEZ: 

Shop Comparatively! 
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12503 King's Lake Drive, Reston VA 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% beiow list also, used printers of several makes. Call lor information! 

MasterCard. VISA. Check. M0, P0 All proflucls waranteed 90 days 



with the data values as you sort 
them. Incidentally, in the process 
you'll be destroying the X vector. 
To create this new vector, you'll 
have to return to the DIM state- 
ment and modify it to read: 

10 DIM X(101), S(101) 

If you're sorting longer lists 
and have modified the X dimen- 
sion, you'll want the S dimen- 
sion to be the same. With these 
two vectors, you're going to em- 
ploy two pointers to indicate the 
particular storage location in 
each of the vectors that you're 
currently working on. The point- 
er that will point to the location 
in vector X we'll call J, and the 
pointer for vector S we'll call I. 
We can diagram the way we've 
set up your memory for this seg- 
ment (see Fig. 2). 

One additional piece of infor 
mation you'll need is the value 
of the largest possible data val- 
ue you're likely to encounter. 
For our example problem, this 
will be 100, since we're working 
with examination grades on a 
to 100 scale. If you're coding a 
general-purpose, descriptive 
statistics program, you might 
want to read this value in using a 
data statement, or input the val- 
ue. However you do it, create a 
variable containing a value larg- 
er than the largest value you'll 
encounter in your valid data val- 
ues. 

I know my largest value will 
not be over 100, so I'm going to 
create a variable B (for Big) and 
put the value 101 into it. 

To test this section of the pro- 
gram you might want to look at 
the X vector before it is sorted 
and also look at the sorted S 
vector. This can easily be done 
by adding the following code: 

404 FOR i = 1 TO N 
406 PRINT X(l); 
408 NEXT I 



503 FOR I = 1 TO N 

504 PRINT S(l); 

505 NEXT I 



(Line 502 is necessary so the 
sorted vector isn't printed start- 
ing on the same line that ended 
the printing of the X vector. The 
line is necessary since there is a 
semicolon at the end of the print 
statement in line 406.) 

You might also want to verify 
that the X vector has been de- 
stroyed in the process. This 
could be done by again inserting 
a loop to print the X vector: 

506 PRINT 

507 FOR I = 1 TO N 

508 PRINT X(l); 

509 NEXT I 

Print in line 506 puts us on a 
new line, because of the semico- 
lon at the end of line 504. (I'm as- 
suming you'll take these state- 
ments out after you see how the 
vectors look in the example pro- 
gram.) 

The sort routine is a pair of 
nested For... Next loops and 
might be more easily discussed 
if we were to indent some of the 
coding as shown in the sort rou- 
tine. 

The outer loop fills the S vec- 
tor. When the index I is equal to 
one, you're looking for the value 
to put into S(1), etc. Line 410 
codes the fact that you want to 
fill the first N locations in the S 
vector. Line 420 sets up a stor- 
age location B (short for Big) 
and loads it with a number that 
is larger than any data value 
you'll encounter in the X vector. 

In lines 430 through 470 you 
search the X vector for the 
smallest value. The J pointer 
points to the particular location 
in the X vector currently being 
evaluated. For each of the X lo- 



, 




— ► 410 FOR 1 = 1 TO N 




420 B = 101 




r-*~ 430 FOR J = 1 TO N 




440 IFX(J)> = BTHEN470 




450 B = X(J) 




460 RM = J 




L+-470 NEXT J 




480 S(l) = B 




490 X(RM) = 101 




— +- 500 NEXT I 


Sort Routine 
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cations, compare the value with 
that stored in B. If the value in 
the X location is less than the 
value in B, perform the instruc- 
tions in lines 450 and 460. If X(J) 
isn't smaller than B, skip down 
to the bottom of the loop and in- 
crement J and consider the next 
value in X. Line 440 controls this. 

Line 450 is where you put the 
smaller value into location B 
when one is found. Many values 
might be placed in B as the X 
vector is searched, but the one 
remaining at the end of the loop 
is going to be the smallest in the 
vector. 

Line 460 remembers where 
each of the values you put into B 
came from; location RM (for Re- 
Member) performs this function. 
When you put the final value in- 
to the sorted vector, S, you'll 
have to go back and arrange 
things so that that same small- 
est value won't be found the 
next time through the loop. If 
you let this happen, you'd keep 
finding the same smallest value 
each time. 

Assume that you've been 
through the 430 to 470 For. . . 
Next loop N times. At this point, 
the B location will contain the 
value 27, and the RM location 
will contain a six from the sam- 
ple data you've been using. Line 
480 moves the 27 from B into S(l) 
and line 490 reloads the sixth X 
location with a 101, right on top 
of the 27 that was there. This en- 
sures that we'll never identify 
that location again as contain- 
ing the smallest data value in 
the vector. Line 500 increments 
the S location you're trying to 
fill, 420 loads B with 101 again, 
and you start searching the X 
vector for the second-smallest 
value. 

This program sorts from low 
to high; it can be easily changed 
to sort from high to low. To do 
so, set B equal to a number 
smaller than your smallest data 
value. Use the same number in 
line 490 and change the logical 
expression in line 440. 

More Statistics 

Now that the data values are 
sorted you can calculate some 
more descriptive statistics. S(1) 
is going to contain the smallest 
data value and S(N) the largest. 
You can print these values plus 

^See List of Advertisers on page 322 



calculate and print the range 
with this code: 



510 PRINT "SMALLEST DATA VALUE = "; 

SO) 
520 PRINT "LARGEST DATA VALUE = "; 

S(N) 
530 R = S(N)-S(1) 
540 PRINT "RANGE =";R 



The median is a measure of 
central tendency which cannot 
be calculated until the data vec- 
tor has been sorted. The method 
used to calculate the median de- 
pends upon the number of data 
values and whether this number 
is odd or even. This is the next 
problem— how to determine if a 
number is odd or even . 

To determine if N is odd or 
even you'll use the integer (INT) 
function, which removes every- 
thing to the right of the decimal 
point. You'll divide N by two and 
then "integerize" this value. Next 
you'll multiply the result by two 
and compare the result with N. If 
the two numbers are the same, 
you can infer that N is an even 
number. If they are different, N 
must be odd. 

For example, consider a value 
for N of 15. Dividing by two, you 
get 7.5 and that becomes seven 
using the integer function. Mul- 
tiplying by two, you get 14. Since 
14 does not equal the number 15 
that you began with, 15 must be 
an odd number. Try this algo- 
rithm with an even number, and 
you'll see that the result always 
equals the original number. 

If N is an odd number, there is 
a true middle number in the list. 
Consider the short list of seven 
values below. The fourth value is 
the median, because there are 
an equal number of numbers 
above and below the median. 
The median is such that half of 
the numbers in the vector are be- 
low and half are above the value: 

5 
16 
27 

46 Median 
58 
98 
99 

In the example below, N is four; 
and the Median is the arithmetic 
mean of the two middle values 
or 80. 



34 
79 
81 
92 



Median is the Arithmetic Mean of 
two middle values 
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WORDPROCESSING 

- POWER - 

for the TRS-80® 

"...If you're presently looking for a mailing list proc- 
essor, this represents the current state of the art." 

80 MICROCOMPUTING - 80 REVIEWS - JULY 1980 

MAILFORM is data entry at its best, just fill in 
the form! FAST, EASY to use functions include: 

search, sort, extract, page forward and back. 

'Transparent cursor', insert/delete characters, 

and MORE! 

MAILRITE prints 'personalized' form letters 
by inserting information from MAILFORM into 
Electric Pencil®, Scripsit®, or BASIC text files. 
Print letters, labels, even envelopes! Boldface, 
underscore, change margins, pause, print 
'unprintable' characters, and MORE! 

XTRA! includes: MAILFORM; MAILRITE - 
with capability of printing variable text from 
a 'key' file; MAIL ABEL - 1, 2, 3, or 4 across 
label printer; and MAILSORT - sort a full 
40 track double density data diskette in 
only 48K! 

ALL MACHINE LANGUAGE 

means unsurpased 
SPEED, RELIABILITY & EASE OF USE 

For VISA, Master Card & COD orders only 
Call NOW - TOLLFREE 

(800) 824-7888 

ASK FOR OPERATOR 203 

California (800) 852-7777 

Hawaii & Alaska (800) 824-7919 

For more information call (214) 233-3998 

(Requires min 32K single disk drive) 

FOR THE MODEL I & III 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY .. $199 
FOR THE MODEL II 

SPECIAL DELIVERY $199 



(Require. Mod II DOS version 2.0) 
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CONVERT YOUR TRS-80 MODEL- 1 INTO A 

DEVELOPMENT SYSTEM 

Now you can develop Z-80 based, standalone devices such as games, robots, 
instruments and peripheral controller-,, by using your TRS-80 as a development system 
The DEVELOPMATE plugs into the expansion connector ot your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT EMULATION capabilities to your 
system (with or without expansion interlace) 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs oneTTL circuit for clock and reset, a Z-80. an EPROM. and 

one peripheral interlace chip 

When the In-Circuit-Emulation cable is plugged 
into the Z-80 socket ol your stand-alone system, 
the system becomes a part of your TRS-80 You 
can use the full power of your editor/assembler s 
debug and trace programs to check out both the 
hardware and the software Simple lest loops 
can be used to check out the hardware then the 
system program can be run to debug the logic of 
your stand-alone device 

Since the program is kept in TRS-80 RAM. 
changes can be made quickly and easily When 
your standalone device works as desired you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM, and a Z-80 m place of the emulation 
cable, your stand-alone device will work by itself 

The DEVELOPMATE is extremely compact Both the PROM programmer and the 
In-Circuit-Emulator are in one small plastic box only 3 2-54 A line-plug mounted 
power supply is included The PROM programmer has a personality module which 
delmes the voltages and connections of the PROM so that future devices can be 
accommodated However, the system comes with a universal personality module 
which handles 2758 2508I8KI 2716 25161 16Ki. 2532i32K| as well as the new elec- 
trically alterable 2816 and 480161 16K EEPROMs) 

The COMPLETE DEVELOPMATE 81. with software, power supply emulation 
cable. TRS-80 cable and universal personality module, is ONLY S329 1 
The PROM PROGRAMME R is available separately lor ONLY S239 
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(415)851-1172 
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OMNITERM - Thi Ultimate TRS-80'" Terminal Package is now available after nearly 2 
years in the making. Created as a result of dissatisfaction with existing terminal 
programs. OMNITERM is the Most Powerful and Flexible microcomputer intelligent 
terminal program at any price • Bar None. Now the TR8-4tPcan communicate with 
and transfer files to almost any computer system Without writing special software. 
OMNITERM solves the problem of computer systems that send 32, 40, or 80 column 
lines to your 64 column TRS-80'" by Reformatting your screen for easy reading. 
OMNITERM can compensate for incompatibilities with 7 different translation tables, 
one to and from each device. This capability even allows OMNITERM to use codes 
such as EBCDIC, and translate them to the TRS-80'"s ASCII. With OMNITERM you can 
even Review text that has Scrolled Off the Screen! At any time you can examine and 
change any of OMNITERM'a settings, because OMNITERM gives you a Full Status 
Display of all functions. It works with all ROM's and DOS's since it uses only officially 
documented calls. 

• Spooled Printer • True Break Key • Repeat Key 

• Single Key Auto Slgnon • X/Y Cursor Control • Lower Case Support 

• Prompted File Output • Xon/Xoff File Control • Can Echo characters 

• Sends Special Characters not on the TRS-80 keyboard 

• Control-G causes "Beep" sound and Graphic Bell to flash on the screen. 

• Accepts all standard VIDEOTEX 1 " control codes. 

• Can configure the UART for baud rates from 50-19,200 baud. 

• Can send text Slowly for computers that work at "typist" speed. 

• Keeps continuous count of Parity. Framing, and Overrun errors. 

• Saves a special file with proper settings for each different use . 

• Includes: 75 page manual, Text Editor. Hex Conversion Utilities. 

Everyone who sees OMNITERM is Amazed Dy its Power and Ease of Usel Requires 
TRS-80 Model I or III with 32K memory. 1 disk. S95 (plus shipping if C.O.D.). Call for 
shipment within 24 hours. Manual alone S15. refunded with purchase. Visa. M/C, 
and COD. accepted. Mass. residents add 5% sales tax. Dealer Inquiries Invited. 
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In the lines below, C implies cen- 
ter and ME median: 



550 IF INT(N/2)-2 = N THEN 590 

560 C = (N + 1)/2 

570 ME = SIC) 

580 GO TO 610 

590 A = N/2 

600 ME = (S(A) + S(A + 1)W2 

610 PRINT "MEDIAN =";ME 



Line 550 includes the INT 
function and transfers control 
to either 560 or 590 depending 
upon the outcome. 

If N is odd, you calculate C, 
the Center, by adding one and 
then dividing by two. If N is even 
you need the two middle values, 
to find their arithmetic mean. 
Line 590 finds a new number, 
N/2, which it calls A. In the previ- 
ous example, where N=4, A 
would be two. The median is 
then the arithmetic mean of the 
second and third values, as de- 
lineated in line 600. In our run- 
ning example, with the 20 data 
values, you'd calculate the arith- 
metic mean of the tenth value in 
the sorted vector (78) and the 
eleventh value (88). This is 83, 
and should be the value printed 
if you add the above coding to 
your program and execute a Run 
command. 

The method you've used to 
calculate the median can also 
be used to calculate other mea- 
sures of dispersion. For exam- 
ple, you could identify the first 
and third "quartiles" of the data 
values and calculate the semi- 
interquartile range, Q, where: 
Q = (Q 3 -Q,)/2. The 10-90 per- 
centile range (P 90 -P, ) and the 
Semi-10-90 percentile range 
(P 90 -P 10 )/2, together with the 
semi-interquartile range, are 
sometimes used to lessen the 
effects of extreme data values 



where the simple range could be 
misleading. 

The Mode 

Our fifth measure of central 
tendency, the mode, is the most 
difficult to program on a com- 
puter—and the easiest statistic 
to find manually. It is the value 
that you have the most of. In our 
example, the mode = 89, since 
there are four input values of 89. 
Had there been some other 
score with a frequency of four, 
there would be two modes, and 
you would call the distribution 
"bimodal." If there were more 
than two modes, you'd call it 
multi-modal. If there is only one 
occurrence of each data value, 
there is no mode. This mode- 
finding method is going to de- 
mand integer (whole number) 
data with a relatively small 
range. Our sample program has 
whole number data in the range 
to 100 inclusive. 

First modify the DIM state- 
ment in line 10. You need to add 
a new vector to keep track of the 
number of times each of the val- 
ues appears in the data vector. 
Begin with a new vector to 
make things as clear as possi- 
ble, instead of using the old X 
vector that was discarded after 
the sort. Since this vector will 
keep track of the frequency of 
occurrence of each data value, 
call it F and dimension it to 100. 
You'll be able to store the num- 
ber of times the value 50 occurs 
in the data list in F(50), the num- 
ber of 100's in F(100), the num- 
ber of zeros in F(0), etc. The DIM 
statement will now look like this: 

10 DIM X(101), S(101). F(100) 

Most versions of Basic fill 
vectors with zeros automatical- 



MEAN'MEDIAN -MODE 
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Fig. 3. Mean, Median, Mode Comparison 
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CABLES 



n 

EJcomrnodare 

4032 COMPUTER $1061 

(8032 Add $160) 
4040 DISK $1061 

4022 PRINTER $ 651 

CBM-IEEE CABLE $ 33 
IEEE-IEEE CABLE $ 41 






COMPLETE SYSTEM = $2841 

No Surcharge for Credit Cards Orders • We Accept C.O.D.'s 
All Equipment Factory Fresh With MFT. Warranty • Stock Ship ments Same Day or Next 

DIABLO 630 $2099\ 

INTERTEC SUPERBRAIN 64K RAM $2799 

QD SUPERBRAIN $3195 

NEC 5510 SPINWRITER $2495 

NEC 5530 SPINWRITER $2495 

OKIDATA MICROLINE-80 $ 399 

OKIDATAMICROLINE-82 $529 

OKIDATA MICROLINE-83 $799 

APPLE II PLUS 48K $1189 

APPLE DISK w/3.3 DOS Controller $ 545 

APPLE DISK w/o Controller $ 435 

BASE II PRINTER $ 599 

HAZELTINE 1420 $ 799 

NORTHSTAR HORIZON II 32K QD $2975 

ANADEX DP-9500 $1295 

TELEVIDEO 912C $ 669 

TELEVIDEO 920C $ 729 

TELEVIDEO 950 $ 959 

CBM 8032 COMPUTER $1225 

CBM 8050 DISK DRIVE $1449 

CBM 4032 COMPUTER $1090 

CBM 4040 DISK DRIVE $1090 

CBM 4022 $ 679 

CBM VIC-20 $ 289 

CBMC2N $ 85 

RADIO SHACK II 64K $3245 

RADIO SHACK III 16K $ 839 

LEEDEX/AMDEK 100 $ 139 

LEEDEX/AMDEK 100G $ 169 
LEEDEX/AMDEK COLOR-1 13" Color Monitor $ 349 

MICROTEK 16K RAMBOARD for Atari $99.95 

MICROTEK 32K $ 165 

ATARI 400 16K $ 349 

ATARI 825 PRINTER $ 619 

ATARI 850 INTERFACE $ 139 

or both together $ 749 

ATARI 810 DISK DRIVE $ 449 

ATARI 800 32K $769 
Call for price list of ATARI software M nM 

NEC 12" MONITOR $229, 
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EPSON MX-80 



PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
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Cumberland, Rl 02864 
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ly. If yours doesn't you'll have to 
include a loop to do this. This 
can be as simple as: 

FOR 1=0 TO 100 
F(l) = 

NEXT I 

The coded segment looks like 
this: 



620 FOR I = 1 TO N 
630 K = S(I) 
640 F(K) = F(K)+1 
650 NEXT I 

655 REM '•• OPTIONAL REMARKS! THE 
F VECTOR IS NOW LOADED 

656 REM * * ' WITH FREQUENCIES. NOW, 
SEARCH F FOR LARGEST 

657 REM •" FREQUENCY. 
660 BG = 

670 FOR I = 1 TO 100 
680 IF F(I)< = BGTHEN 700 
690 BG = F(I) 
700 NEXT I 

705 REM "• MORE OPTIONAL 
REMARKS! THE MODAL 



706 REM ••• FREQUENCY HAS BEEN 
FOUND. NOW FIND 

707 REM ••• ALL OCCURRENCES OF 
THIS VALUE. 

710 FOR 1 = 1 TO 100 
720 IF F(l)< >BG THEN 740 
730 PRINT I; "IS A MODE" 
740 NEXT I 



The loop in 620-650 loads the 
F vector with the frequency of 
occurrence of each of the possi- 
ble data values. S(1) in the exam- 
ple has a value of 27. Line 630 
puts this 27 into a location called 
K. Line 640 then increments F(27) 
by one. Lines 630 and 640 simply 
avoid giving a subscript a sub- 
script. 

At the completion of this loop, 
the F vector has been loaded 
with all of the frequencies of oc- 
currence, and we're ready to 
search this vector to find out 



which locations contain the 
largest value. This is done by 
setting variable BG equal to zero 
(BG implies BiGest). Then enter 
loop 670-700 and look at each 
frequency in the F vector. If the 
frequency is less than or equal 
to the value in BG, skip line 690, 
which puts larger values into 
BG. At the conclusion of this 
loop you've found the largest 
frequency, and it is stored in lo- 
cation BG. The final loop 
searches the F vector for all oc- 
currences of the modal frequen- 
cy stored in BG and prints the 
corresponding modal value 
when each is found. 

Shape of Distribution 

You can tell something about 
the shape of the distribution of 





Fig. 4. Distribution Curves 



data values by looking at the re- 
lationship between the arith- 
metic mean, median and mode. 
In a symmetric distribution, the 
mean, median and mode will all 
have the same value, while in a 
skewed, or asymmetrical distri- 
bution, the median will have a 
value between the mode and the 
mean, with the mode corre- 
sponding to the highest fre- 
quency of occurrence (Fig. 3). 

A more precise statistic of the 
shape of the distribution may be 
calculated. Statisticians call 
this standardized coefficient of 
skewness the ti 3 . We'll call it A3. 



I (Xj-X)> 

fll =i^ /<>> 



Since we've named a 3 A3, and 
have been calling a (the stan- 
dard deviation) SD, and calling 
the arithmetic mean AM, you 
can rewrite this as: 



X (S<I)-AM) J 
l = 1 
A3- .. /SD' 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOGIC's 

T80-FS1 Right Simulator 

fortheTRS-80 



SubLOGIC sT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
out-of-the-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft s characteristics. 

Once you ve acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters. 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 
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direct order, include $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
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The following code wil 
late A3: 



calcu- 



750 sm=o 

760 FOR I = 1 TO N 
770 SM = SM + (S(l)-AM)t3 
780 NEXT I 
790 SM = SM/N 
800 A3 = SM/SDT3 

810 PRINT "STD. COEF. OF SKEWNESS 
= ";A3 

For your test data, a value of 
-.648289 is produced. Since 
the coefficient is negative, this 
means the distribution is nega- 
tively skewed (skewed to the 
left). This means the tail of the 
distribution is to the left; most 
the data values are closer to 100 
than zero. 

If A3 was even more negative, 
say - 1.5 or more, the distribu- 
tion would be even more highly 
skewed to the left. 



The last descriptive statistic 
is called the "standardized coef- 
ficient of kurtosis." Since statis- 
ticians use the symbol a 4 to des- 
ignate it, call it A4 in your pro- 
gram. 

The formula is identical to 
that for A3, except that we cal- 
culate the fourth power of the 
differences and then divide by 
the standard deviation raised to 
the fourth power. 





1 <S(I) -AM)* 

1 = 1 




A4 


= N 


SD' 


The following code 


will calcu 


late A4: 






820 


SM=0 




830 


FOR I = 1 TO N 




840 


SM = SM + (S(I)- 


AM)t4 



850 NEXT I 
860 SM = SM/N 
870 A4 = SN/SDt4 

880 PRINT "STD. COEF. OF KURTOSIS 
= "; A4 

When this program segment 
is added to your existing code, a 
value of 2.11691 results. Kurtosis 
reflects the degree of peaked- 
ness of a distribution. Usually a 
comparison is made to a normal 
(or bell-shaped) distribution. The 
normal bell-shaped distribution 
hasanA4 value of about 3.0 and 
is called "Mesokurtic." If A4 is 
less than 3.0, the distribution is 
called "Platykurtic " and if it is 
over 3.0, the distribution is called 
"Leptokurtic." Our distribution 
with an A4 of 2.1 is platykurtic. 

Statisticians sometimes sub- 
tract three from the standard- 
ized coefficient of kurtosis. If 




PLATYKURTIC 
A4<3 



MESOKURTIC 
A4 = 3 

Fig. 5. Comparative Distributions 



the result is negative, the distri- 
bution is platykurtick; if it is 
zero, the distribution is meso- 
kurtic; and if it is positive, the 
distribution is leptokurtic. 

There are lots of things you'll 
probably want to do to this bare- 
bones program: 

• You can add fancy output 
formatting, 

• Add REM statements to 
make the program easier to 
modify, 

• Add screen-clearing or 
page-spewing commands, 

• Add some instructions to 
be printed at the beginning, 
telling the user how to code 
data statements and how 
to chose a trailer value. ■ 




LEPTOKURTIC 
A4>3 




Radio Jhaek 



DEALER 




TRS-80 DISCOUNT 



□ NO OUT-OF-STATE TAX 

□ NO SHIPPING COSTS 



$3500 



MODEL II 64K 



PACKS ENOUGH DATA HANDLING POWER FOR 
MANY SMALL BUSINESSES. 




TRS-80 MODEL III 

32K-2 DISKS 

*2100 

NEW PERSONAL COMPUTER . . . 
REAL-TIME CLOCK, SHARPER 
CRT IMAGES AND FASTER 
LOADING CASSETTES 




TRS-80 COLOR 

COMPUTER OR VIDEO 



$339 



each 



A LOW COST, COLOR COMPUTER FOR PERSONAL BUSINESS OR ENTERTAINMENT . 



CERTIFIED CHECKS 
CASHIERS CHECKS 
OR CREDIT CARDS 



^51 



PERRY OIL & GAS INC. 

137 NORTH MAIN STREET, PERRY, MICH. 48872 

PHONE (517) 625-4161 

WARRANTIES HONORED BY ALL RADIO SHACKS • 'T.M. TANDY CORP. J 



■ See List ol Advertisers on page 322 
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TUTORIAL 



Learn the ebb and flow of phonemes. 



Programming with 
The Voice Synthesizer 



Craig Werner 
Quincy House 
Harvard University 
Cambridge, MA 02138 



Of all the peripherals that 
can be attached to the 
TRS-80, none has the power of 
amazement that the voice syn- 
thesizer can provide. Most peo- 
ple have already become accus- 
tomed to the computer acting as 
a calculator, have had experi- 
ence with computerized billing 
and record keeping and have 
been bombarded with computer 
games. But the ability for the 
computer to speak is still a 
novelty. 

However, programming with 
the voice synthesizer can be 
very painstaking. This is due to 
two main reasons. The first is 
the English language, which is 
not as simple as Basic. For in- 
stance, voice synthesizer pro- 
grams use T for to, too or two. 
Similar difficulties arise with 
four, for and fore. It is a problem 
with all words which have the 
same pronunciation but differ- 



ent spellings. 

Other phonetic problems are 
seen in the example of the word 
polish which can be pronounced 
with a short (as in shoe polish) 
or with a long O (as in the Polish 
Pope). To relearn the English lan- 
guage from a phonetic level is 
not easy. 

The second type of difficulty 
arises from the synthesizer 
itself. It is limited to 60 
phonemes, some of which are 
duplicated. Some sounds are 
missing or can only be achieved 
by difficult combinations. Other 
letters, particularly G and K, can 
be mispronounced when pre- 
ceded or followed by certain 



These problems should be ap- 
parent only to the programmer; 
the listener enjoys the voice in 
ignorant bliss. 

At first voice programming is 
atrial and error task. Look at the 
four-line routine starting at line 
10000 of the Program Listing. It 
prompts an input in the upper 
left-hand corner of the screen, 
then displays it and voices it. It 
has three main advantages: (1) It 
is short. (2) It displays previously 
used phonemes, so that a refer- 
ence can be kept as new combi- 
nations are tried. (3) If you didn't 
catch the sound of the word just 
entered, hitting Enter again re- 
peats the word. 



4 7 compiled dictionaries for the 

Declaration of Independence and the 

Preamble to the Constitution. These 

provided me with three-quarters of the 

words I needed for a Woody Allen routine. ' 



other letters. 

Finally, the synthesizer is 
slower than normal human 
speech and slower than the 
computer. This means that nor- 
mal programming tricks to 
speed up program execution will 
overflow the buffer. 



A few hints are useful at this 
stage. Remember the special 
characters <, >, = , and espe- 
cially + for NG and / for ER. Al- 
so, certain phonemes that sound 
incorrect when used singly will 
sound fine when doubled or trip- 
pled. Phonemes which are total- 



ly wrong alone will be perfect in 
combination. 

Another hint concerns char- 
acters such as the comma and 
colon, which supposedly cannot 
be input directly from the key- 
board. They can be used if the 
string that contains them is 
enclosed by a leading quote. 
Pay attention to your work; 
many sounds are repeated. 

One drawback of this routine 
is that once the phonemes have 
been combined to your satisfac- 
tion, it is necessary to write the 
results on paper. 

After you have created a dic- 
tionary of phonetic words, they 
can be typed into a program. I 
prefer to type them as data to be 
read and alternated with their 
English equivalents such as 
W55N, WHEN; l!N, IN; <77,THE; 
K-OORS, COURSE;77V,OF; etc. 

After the data statements 
have been typed in, the routine 
beginning at line 20000 is a 
proofreading aid. It voices the 
phonetic word and prints the 
English language word. The 
most versatile feature of this 
routine is the ability to skip the 
number of words you input in 
order to edit the text. 

After you perfect this routine 
comes the most useful step 
from the programming point of 
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A = @' 


ABOVE = 7B77VV 


ADD = 9DD 


ADVANCED = 9DV9NSD 


AGO = 20GOU 


ALL = „LL 


ALTOGETHER = 2LTUG5>/ 


AND = 99NND 


ANY =43NE 


ARE = ;AR 


AS = :X 


BATTLE = B9T#L 


BE = BE 


BEFORE = BEFOR 


BIRTH = B/= = 


BRAVE = BR>-V 


BROUGHT = BR12TO 


BUT = B87T 


BY = B.& 


CAN = KK9N 


CAN NOT = KK9N2TT 


CAUSE = K.8Z 


CIVIL = SIV8L 


COME = KK77M 


CONCEIVED = K6NSEEVD 


CONSECRATE = K6NS5KR(-T 


CONSECRATED = K6NS5KR>.T45D 


CONTINENT = K;NTIN3NT 


CREATED = KRE>.T5D 


DEAD = D45D 


DEDICATE = D44D#K>-T 


DEDICATED = D44D#K>.T3D 


DETRACT = DITR9KT 


DEVOTION = D!VOU>N 


DID = D!DD 


DIED =D; !D 


DO = D<U 


EARTH = 8/= = = 


ENDURE = 3NDOR 


ENGAGED = 5NG> D<;< „ 


muu = K-W%L 


FAR = F;RR 


FATHERS = F;8<5RX 


FIELD = FELD 


FINAL = F;#NL 


FITTING = F!T!+ + 


FOR = FOR 


FORGET = FORG45T 


FORTH = F%% = 


FOUGHT = F12TT 


FOUR = FOOR 


FREEDOM = FRED8M 


FROM = FR7MM 


FULL = F%%LLL 


GAVE = G>-V 


GIVEN = GIV4N 


GOD = GAADD 


GOVERNMENT = G'V/M45NT GREAT a GR@-T 


GROUND = GR;UNND 


HALLOW = H:LLOUW 


HAVE = H9VV 


HERE = HERR 


HIGHLY = ;!LE 


HONORED = ;N5RD 


IN = l!N 


INCREASED = INKRESD 


IS = IZZ 


IT = ITT 


LARGER = LARGJ/ 


LAST = L9SST 


LIBERTY = L#B5RTE 


UTTLE = LITLL 


Live = L!V 


LIVES = L;#VZ 


UVING = L!V! + + 


LONG = LO+ + 


MEASURE =M45X/ 


MEN = M45N 


MET = M34T 


MIGHT = M;YT 


NATION = N>.>N 


NEVER = N45V/ 


NEW = NUU 


NOBLY = NOUBLE 


NOR = NOR 


NOT = N2TT 


NOTE = NOUT 


NOW = N;U 


OF = 77F 


ON = 22N 


OR = ORR 


OUR = AOR 


PEOPLE = PEPL 


PERISH = P45R!> 


PLACE = PL>. 


POOR = POR 


PORTION = P0PO6N 


POWER = PAW/ 


PROPER = PRAP/ 


PROPOSITION = PR;POZ!>N 


RATHER =RA</ 


REMAINING = REM>.N! + 


REMEMBER = REM45MB/ 


RESOLVE = REZALV 


RESTING = R4ST! + + 


SAY = S@- 


SCORE = SK-OOR- 


SENSE = S45NSS 


SEVEN = S54V4NN 


SHALL =>1LL 


SHOULD = >%D 


SO = SOU 


STRUGGLED = STR6GLD 


TAKE = T>. 
K 


TASK =T9SSK 


TESTING = T45ST! + + 


THAT = <:T 


THE = <77 


THEIR = <@.R 


THESE = <EEZ 


THEY = < = @ • 


THIS = =!!SS 


THOSE = <OUZ 


THUS = = 7SS 


to = r 


UNDER = 7ND/ 


UNFINISHED = 7NF!N!>D 


UPON = 20P67N 


US = 77SS 


VAIN = V>.-N 


WAR = WOR 


WE = WE 


WHAT = WAT 


WHETHER = W55</ 


WHICH = W!TC 


WHO = ' 


WILL = W!L 


WORK = W/K 


WORLD = W/LD 


YEARS = YE.RX 




Table 1. Spelling-phonetic Dictionary 



the data statements of the cor- 
rectly spelled words, making 
sure to quote any commas or 
colons. Do it after the dictionary 
is complete: otherwise the dic- 
tionary routine will mistakenly 
consider punctuated words 
such as "to," "to", and "to" to 
be different words. This creates 
an excess of multiple entries. 

Pauses can be entered before 
or after dictionary compilation, 
since the dictionary routine ig- 
nores them. The space is the 
longer pause. But leading and 
trailing spaces are ignored in 
data. I get around this by begin- 
ning and ending the pauses with 
the short pause, 0. Finally, I add / 
for a carriage return, /// for a 
CLS, and //// as an ending sym- 
bol to make the video display at- 
tractive. 

If a word will not fit on a line, 
the routine will automatically 
bump it to the next line. This 
avoids splitting words. 

In short, the voice synthesizer 
technique of the Program List- 
ing is divided as follows: 

• Phoneme development: 
lines 10000-10300 

• Editing: lines 20000-20070 

• Spelling-phonetic dictionary 
compilation: lines 200-510 

• Display: lines 0-130 



view— the compilation of a spell- 
ing-phonetic dictionary. I orgi- 
nally did this by hand but then 
came up with the thoroughly 
original idea of letting the com- 
puter do it. 

Using a somewhat modified 
Shell-Metzner sort, the program 
fills an array with the text. 
Enough space must be DIMed to 
allow for the whole program. 
Rather than count the words 
yourself, type in 997 RESTORE: 
N = 1 and 998 PRINT N;: READ 
A$: READ B$: N = N + 1: GOTO 
998. 

Run 997. When an out-of-data 
error message results, N is the 
number of words in your pro- 
gram. I always try to liberally ex- 
ceed this number in my DIM 
statements. One can delete 997 
and 998 after doing this. 

Next, the program eliminates 
duplicates and alphabetizes the 
words. Finally, the words are 



listed on a line printer. 

If you use a quick printer or 
any printer incapable of han- 
dling 100+ characters per line, 
change lines 420, 430 and 440 to 
read: 

420FORP=1TON 

430 LPRINT A$(N);" = ";B$(N) 

440 NEXT P 

If you don't have a printer, 
keep this routine in the program 
just in case you get one. There is 
no way to access this routine ex- 
cept via a RUN 200 command, 
and hence no danger of crash- 
ing into it. 

Once completed, this diction- 
ary is an immense help. For in- 
stance look at the Program List- 
ing. I compiled a dictionary for 
the Gettysburg Address. Later I 
compiled dictionaries for the 
Declaration of Independence 
and the Preamble to the Consti- 
tution. These provided me with 
three-quarters of the words I 



needed for a Woody Allen rou- 
tine. (Man does not live by his- 
torical quotes alone.) 

Finally, there is the display 
routine in the program. For this 
some further additions are 
made; for instance, punctuation 
would be considered necessary. 
Insert the necessary marks in 



Generally, I start the text be- 
tween 1000 and 9999. I keep a 
master tape of lines 0-999 and 
10000-20070 to be used in the 
development of new programs 
for the voice synthesizer. For a 
sample, I present the first selec- 
tion in the TRS-80 Historical 
Series here, Lincoln's Gettys- 
burg Address. ■ 



Program Listing. 



REM THIS IS THE DOING OF CRAIG WERNER 

1 REM 1824 WATSON RD. 

2 REM ABINGTON COMPUTING GROUP 

3 REM ABINGTON PA 19001 
5 CLS 

10 PRINTCHRS (23) ; :PRINT"LINCOLM'S GETTYSBURG ADDRESS":*' 

ORN=1TO1000:NEXT:CLS 
20 READAS 

30 POKE16383,63:POKE 16383,32 
40 FORV=lTOLEN(AS) 

50 POKE 16383, ASC(MID$(A$, V, 1)) :NEXT 
60 POKE16383,32:POKE16383,63:POKE16383,32 
70 READAS 

8 IFPOS(0)+LEN(A$)>6 3THENPRINTCHR$(13) ; 
90 IFA$="/"THENPRINTCHR$(13) ; : PRINTTAB ( 5 ) ; :GOTO130 
100 IF A$="///"THEN FOR N=1TO500 :NEXT:CLS : PRINTTAB( 5) ; : 

Program continues 
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Software. 
For the 80s. 

Pensadyne Computer Services. The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
people, the support, the service and the expertise to bring you the 
highest quality products available. 

Pensa-write 1 -- Our BASIC word processing system for the 
owner who requires performance at low cost. Many of the features 
of more expensive word processing systems at a fraction of the cost. 
Comes complete with mailing list capable of handling 300 names. 
$19.95 (Specify Model I or Model III). 

Pensa-write 2 ~ A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap around, 
unlimited insert and delete, block moves, chaining of files, 20 user 
definable commands, ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs just $79.95. Manual $10.00 Deductable. (See full page ad 
in Aprlf, 1981 80-Microcomputing for a full description). 

Software publishing -- Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation. TRS-80 Model I, II, III and Colour Computer fully 
supported. Subject material unlimited. 

Now, with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 

Visa and Mastercharge orders welcome. Phone orders welcome 
or write, specifying system configuration, and product desired. 
Please add $1.00 for first class shipping. 

PENSADYNE -- Giving you the power to think. 



m=miWj2 
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COMPUTER SERVICES 
4441 WEST FIRST AVE. VANCOUVER, B.C., V6R4H9 604-224-3107 





Programming drive 
you wild? 

We have the high quality programs you demand 
at a price that will please. Send for FREE catalog. 

THE BERC WORKS ^asi ., 

>V^ Box 742C janesville, Wl 53547 // 



Program continues 

GOTO130 
110 IF A$='7///"THEN 999 
120 PRINTA$;" "; 
130 FOR N=1TO220:NEXTN:GOTO20 
200 CLEAR5000:DEFINTI-N:DIMA$(300) ,B$(300) :ON ERROR GOT 

O 500:N=1 

210 READ B$:IF LEFTS (B$, 1 ) ="0"READA$ :GOTO210 

220 B$(N)=B$:READA$:AS( N )=A$ 
230 N=N+1:GOTO210 K 

300 N=N-1:M=N:GOSUB310:M=N:GOSUB310:GOTO400 

310 M=M/2:IFM=0THENRETURN 

320 FORJ=lTON-M:I=J 

330 L=I+H:IFA$(I)<A$(L)THENGOTO380 

340 IFA$(I)=A$(L)THENA$(L)="ZZZ":GOTO380 

350 A$=A$(I) :B$=B$(I) : AS ( I) =AS (L) : B$ ( I ) =B$ (L) : A$ (L) =A$ : 

B$(L)=B$:I=I-M 
360 IFK1GOTO380 
37 PRINTAS(I);" ";:GOTO330 
380 NEXTJ:GOTO310 
400 FORE=lTON: IFA$ (E) ="ZZZ"THENA$ (E) ="" : B$ (E) ="" :N=N-1 : 

NEXTELSENEXT 
410 LPRINT'DICTIONARY OF WORDS" : LPRINT" 
420 FORP=lTONSTEP3 
430 LPRINTA$(P) ;" = " ; B$ (P) ; TAB (30 ) ; A$ (P+l ) ; " = ";B$(P+ 

1) ;TAB(60) ;A$(P+2) ; " = ";B$(P+2) 
440 NEXTP 
450 END 

500 IFERL=210THEN300 
510 ON ERROR GOTO 

999 GOT0999 

1000 DATA FOOR, FOUR, SK-OORR-, SCORE, 9ND, AND, S54V4NN,SEVE 
N, YE*RX,Y EARS, 20GOU, AGO 

1010 DATA ;UR, OUR, F;8<5RX, FATHERS, BR12T0, BROUGHT, F%%=,F 

ORTH,20P67N,UPON 
1020 DATA =! !SS, THIS, K;NTIN3NT, "CONTINENT, ",@&, A, NUW,NE 

W,N) *>N,"NATYON, " 
1030 DATA K6NSEEVD, CONCEIVED, I!N, IN, L#B5RTE, "LIBERTY,", 

99ND, AND, D44D#K) *T3D, DEDICATED 
1040 DATA T' , TO, =76, THE, PR;POZ! >N, PROPOSITION, "<:T",THA 

T,",,LL",ALL,M45N,MEN 
1050 DATA ;8RR, ARE, KRE) *T5D, CREATED, .K-W%L, EQUAL., 

0,"///" 
106 DATA N;U,NOW,WE,WE, ;AR,ARE,5NG) *GXD, ENGAGED, I !N,IN 

, @*, A, GR@*T, GREAT, S!V8L, CIVIL 
1070 DATA WOR, "WAR, ",T45ST!++, TESTING, W55</, WHETHER, "<: 

T" , THAT, N ) * >N , NATION 
1080 DATA OR,OR,43NE,ANY,N)*>N,NATION,SOU,SO,K6NSEEVD,C 

ONCEIVED,99NND,AND 
1090 DATA SOU,SO,D44D#K)*T3D, "DEDICATED, ",KK9N, CAN, LO+, 

LONG, 3NDOR, ENDURE, 0,"/" 
1100 DATA WE, WE, ; AR, ARE, M34T,MET, 22N,ON, @& , A,GR@*T,GREA 

T,B9T#L, BATTLE 
1110 DATA FELD, FIELD, 77V, OF, "<:T", THAT, WOR, WAR. ,0 0, 

1120 DATA WE,WE,H9W,HAVE,KK77M,COME,T' ,TO,D44D#K) *T,DE 

DICATE,@*,A 
1130 DATA POR>6N, PORTION, 77V, OF, "<:T", THAT, FELD, FIELD, " 

:X",AS,e*,A 
1140 DATA F;#NL, FINAL, R4ST1++, RESTING, PL) *S, PLACE, FOOR, 

FOR, <OUZ, THOSE, ' ,WHO 
1150 DATA H9W, HAVE, G1V4N, GIVEN, <@*R, THEIR, L;#VZ, LIVES, 

"<:T n ,THAT,WE,WE 
1160 DATA M;YT, MIGHT, L!V, LIVE. ,0 0,"/" 

1170 DATA !TT, IT, !ZZ, IS, 2LTUG5>/, ALTOGETHER, F!T!++,FITT 

ING,99NND,AND 
1180 DATA PRAP/, PROPER, "<:T", THAT, WE, WE, >%D, SHOULD, D(U, 

DO,<<! !SS,THIS,0 0,"///" 

1190 DATA B87T,"BUT,",I!N,IN,@*,A,LARGJ/,LARGER,S45NSS, 

SENSE, WE, WE, KK9N, CAN 
1200 DATA N2TT, NOT, D44D#K) *T, DEDICATE - ,WE,WE,KK9N0N2T 

T,CAN NOT 
1210 DATA K6NS5KR) *T, CONSECRATE - , WE, WE,KK9N2TT,CAN NO 

T,"H:LLOUW", "HALLOW - " 
1220 DATA=! !SS, THIS, GR;UNND, GROUND. ,0 0,"" 
1230 DATA <77, THE, BR) *V, BRAVE, M45N, "MEN, ",L!V1++, LIVING 

,99NND,AND,D45D, "DEAD, ", ' ,WHO 
1240 DATA STR6GLD, STRUGGLED, HERR, "HERE,", H33V, HAVE, K6NS 

5KR) *T45D, CONSECRATED 
1250 DATA !TT,IT,0 0, "" ,F;R,FAR,7B77W, ABOVE, AOR, OUR 

,POR, POOR, PAW/, POWER, T' ,TO 
1260 DATA 9DD, ADD, ORR, OR, D1TR9KT, DETRACT., 0,"/" 
1270 DATA <77, THE, W/LD, WORLD, W!L, WILL, L'TLL, LITTLE, NOUT 

, NOTE, NOR, NOR 
1280 DATA LO++, LONG, REM45MB/, REMEMBER, WAT, WHAT, WE, WE, S@ 

*, SAY, HERR, HERE, 0,"" 
1290 DATA B87T, BUT, !TT, IT, KK9N, CAN, N45V/, NEVER, FORG45T, 

FORGET, WAT, WHAT 
1300 DATA <=@*, THEY, D!DD, DID, HERR, HERE. ,0 0,"/" 
1310 DATA ITT, IT, IZZ, IS, FOR, FOR, <77, THE, L!V!++, "LIVING, 

",RA</, "RATHER, ",0 0,"" 
1320 DATA T' , TO, BE, BE, D44D#K) *T3D, DEDICATED, HERR, HERE, T 

' ,TO,<77,THE 
1330 DATA 7NF!N!>D, UNFINISHED, W/K, WORK, W!TC, WHICH, <=@*, 

THEY, ' ,WHO,F12TT, FOUGHT 
1340 DATA HERR, HERE, HAW, HAVE, =7SS, THUS, F;RR, FAR, SOU, SO 

,NOUBLE, NOBLY 
1350 DATA 9DV9NSD, ADVANCED. ,0 0,"///" 



Program continues 
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SOFTWARE UNLIMITED 



presenting the LARGEST SELECTION OF SOFTWARE EVER ASSEMBLED. 



the best available on the market today for TRS-80® Computers 

at SUPER DISCOUNT PRICES! 



AVALON HILL 

D MIDWAY 13.50 

D NUKE WAR 13.50 

□ PLANET MINERS 13.50 

D CONVOY RAIDER 13.50 

D B1 BOMBER 13.50 

□ LORDS OF KARMA 18.00 

D CONFLICT 2500 13.50 

D COMPUTER ACQUIRE 18.00 

APPARAT 

□ NEWDOS/80 125.00 

ADVENTURE INTERNATIONAL 

D ADVENTURE HINT BOOK 7.95 

D ADVENTURE KO 6.25 

D ADVENTURE (1.2.3) (D) 35.95 

D ADVENTURE (4.5.6) [D] 35.95 

D ADVENTURE (7.8.9) [D] 35.95 

D ADVENTURE #10 [D] 18.95 

D ADVENTURE (specify 1-10) 13.55 

□ MEAN CHECKERS MACHINE 17.95 

D MEAN CHECKERS MACHINE (D] 22 95 

O DR. CHIPS 13.55 

O DR. CHIPS [D] 17.95 

O INTER FICTION SAMPLER [D] 13.55 

D INTER-LOCAL CALLS [D] 17.95 

D INTER-TWO HEADS |D) 17.95 

a INTER-IMPETUOUS (D) 17.95 

D KID-VENTURE 1 17.95 

a STAR TREK 3.5 13.55 

D STAR TREK 3.5 [D] 17.95 

D ZOSSED IN SPACE 13.55 

D MACES *1. BARLOG 31.00 

D MACES »1, SISYPHUS 31.00 

□ LUNAR LANDER 13.55 

D LUNAR LANDER |D] 18.95 

D POKER 1355 

D GALACTIC TRILOGY |D) 35.95 

D SILVER FLASH 13.55 

D SILVER FLASH (DJ 17.95 

□ MISSILE ATTACK 13.55 

D STAR SCOUT 13.55 

D SPACE INTRUDERS 18.75 

D COMBAT |D) 17.95 

ACORN SOFTWARE 

D ATERM 17.95 

D SYSTEM SAVERS 13.55 

D DISASSEMBLER 13.55 

D DISK/TAPE UTILITY 17.95 

D STAR TREK SIMULATION 8.95 

D GAMMON CHALLENGER 13.55 

D PIGSKIN 13 55 

D ULTRA TREK 13.55 

D SPACE WAR 8.95 

D WARP/LANDER 8.95 

D BASKETBALL |D] 18.95 

D BASKETBALL 1355 

a DUEL-N-DROIDS [D] 18.95 

□ DUEL-N-DROIDS 13.55 

D INVADERS FROM SPACE 13.55 

D INVADERS FROM SPACE (Dl 18.95 

D PIGSKIN |D] 18 95 

D PINBALL 13.55 

D PINBALL |D) 18.95 

D EVEREST EXPLORER 13.45 

D EVEREST EXPLORER [D] 18.95 

D SUPERSCRIPT [Dl 28.95 

MED SYSTEMS 

D DEATHMAZE 5000 1 1.65 

D RATS REVENGE 11.65 

D REALITY ENDS 8.95 




Check program desired. 
Complete ordering information 
and mail entire ad. 
Immediate Shipments from stock. 



KEY: 

C-TRS-80 Color 

D-on Disc 

If not marked - Cassette 




AUTOMATED SIMULATION 

D STAR WARRIOR [CASS. OR DISK] 35.95 

D THREE PACK |D) 4500 

D STARFLEET (CASS. OR DISK) 22 50 

□ INVASION [CASS. OR DISK) 22.50 

D APSHAI (CASS, OR DISK) 35.95 

D RYN (CASS.. OR DISK) 17.95 

D MORLOC (CASS. OR DISK) 17 95 

D RIGEL (CASS. OR DISK] 26 95 

D HELLFIRE (CASS. OR DISK] 35 95 

LORO 

□ LDOS |D] 125.00 

COMPUTER SIMULATIONS COMPANY 

D BATTLE OF BULGE-BASTGONES 1 7.95 

D D-DAY INVASION OF FRANCE 17.95 

Q DARK KINGDOM 1175 

Q DOG RACE, COLOR ONLY |C] 5.95 

□ ELECTRIC ALARM 4.95 

a EMPIRE STRIKES BACK 1355 

D GREAT DICTATOR 7.25 

D JEDI KNIGHT 11.75 

C LUNAR ENCOUNTER 1 175 

a MERCENARY 8.95 

D MICRO ARCADE 13 55 

D SHARK, COLOR ONLY (C) 5.95 

D SLOT MACHINE 7.25 

O BATTLE OF BULGE-ST VITH 1355 

D STAR CRUISERS 13 55 

D TYPE WRITERS 1 7.95 

D U-BOAT. COLOR ONLY (C) 5.95 

D ORION WAR, COLOR ONLY (C) 5.95 

D POLARIS. COLOR ONLY (C) 5.95 

D ASTEROID PIRATES 13 55 

INSTANT SOFTWARE 

□ AIR FLIGHT SIMULATION 8.95 

D AIRMAIL PILOT 8 95 

D ASTEROIDS |D) 17.95 

D BASIC PROGRAMMING ASSISTANT ....13.55 

D BALL TURRET GUNNER 8.95 

D BATTLEGROUND 8.95 

D CHECK MANAGEMENT |D] 36.55 

D CHESSMATE-80 17 95 

D COSMIC PATROL 13.55 

D COSMIC PATROL (D) 1795 

D DAREDEVIL 8.95 

D DISASSEMBLER 8.95 

D DISK EDITOR (D) 36.55 

D DISK SCOPE (D] 17.95 

D DLDIS (D) 17.95 

D DEVICE DRIVERS 17.95 

D ENHANCED BASIC 2250 

Q FLIGHT PATH 8.95 

D FLYING CIRCUS |D) 36.55 

a I.Q. TEST 8.95 

D INVADERS 8.95 

D INVESTORS PARADISE 8.95 

D IRV 2250 

a IRV [Dl 27 55 

Q JET FLIGHTER PILOT 13.55 

D MONEY MADNESS 8.95 

D NIGHT FLIGHT 8.95 

D ONE-D MAILING LIST (D) 22.50 

Q OTHELLO 8.95 

D PROGRAMMER'S CONVERTER 8.95 

D SKIRMISH-80 8.95 

D TLDIS 13.55 

D UTILITY I 8.95 

D UTILITY II 8.95 

D WORDSLINGER 26.00 

If you don't see it listed, write. 



PERSONAL SOFTWARE 

□ CCA MGMT-TRS-80 85.00 

D MONTY MONOPOLY [D) 35.95 

D ZORK [D] 35.95 

RIG FIVE SOFTWARE 

D ATTACK FORCE (MODEL 1 OR 3) 14.30 

D GALAXY INVASION (MODEL 1 OR 3) .... 14.30 
D METEOR MISSION II (CASS OR DISK) .... 14.30 
D SUPER NOVA [CASS. OR DISK) 14.30 

□ COSMIC FIGHTER [CASS. OR DISK] 14 30 

HAYDEN 

a SARGON II 25 00 

a SARGIN II (D) 30.00 

QUALITY SOFTWARE 

D DEBUG 13.55 

D FASTGAMMON 17.95 

D LOWBALL POKER 10 45 

D BANKSHOT 8.95 

D POKER PETE 10.45 

D RUMMY MASTER 10.45 

D 3D TIC TAC TOE 13.55 

O QS LIGHT PEN 17.95 

O SKETCH 80 13.55 

STRATEGIC SIMULATIONS 

O COMPUTER BISMARCK |D) 51 .50 

a COMPUTER BISMARCK 42.00 

SUB-LOGIC 

D T80-FS1 FLIGHT SIMULATOR 22.00 

D 3D GRAPHICS 26.50 

BOTTOM SHELF 

D ANALYSIS PAD [DJ 90.00 

D BUSINESS MAIL [Dl 100.00 

D CHECKBOOK II (Dl 44.50 

D CHECK REGISTER [D] 67.00 

D HEAD CLEANER |D) 17.00 

D INFO SYSTEM [Dl 44.50 

D LIBRARY 100 44.50 

D SYSTEMDOCTOR (D] 35,50 

D SYSTEM DOCTOR 26.00 

MICROSOFT SOFTWARE 

D ADVENTURE (DJ 25.50 

D ASSEMBLY DEVELOPMENT [D) 80.00 

D BASIC COMPILER [D] 175.00 

D EDITOR/ASSEMBLER 25.00 

D FORTRAN COMPILER [D] 80.00 

D LEVEL III BASIC 44.00 

D MuMATH [Dl 64.00 

D OLYMPIC DECATHALON (CASS OR DISK) . . .20.00 
D TYPING TUTOR 13.55 

ARC 

a LAZY WRITER [D] 112.50 

TP6 

D DEATH DREADNAUGHT 13.45 

D DEATH DREADNAUGHT [D] 17.95 

D DEADLY DUNGEON 13.45 

D OMNI TERM [D] 85.00 

D DRAGON QUEST 14 35 

D DRAGON QUEST [D] 19.75 

D TRIPLE ADVENTURE (DJ 31.00 

.we probably have it in stock! 



Ship the above programs as checked to: 

Mr./Mrs. 

Address 

City 

State Zip 

I have a . 



Name of Computer 



Number ot Programs Ordered.... 

Amount of order 

N. Y. residents add Sales Tax 

Add shipping anywhere in the U.S. 2^00 

Total amount enclosed 

Charge my: D Master Charge D Visa 

Signature 



with 

80 MICRO-AUG. '81 



K memory Card No. 



Personal Checks please allow 3 weeks. 



.Expires 



Mail to: 



TRS-80 is a registered trademark of TANDY CORP. 

> Prices subject to change without notice. 
^_ 



DIGIBYTE SYSTEMS CORF. 

31 East 31st Street, New York, N.Y. 10016 
(212)889-8975 ^226 



^See List ot Advertisers on page 322 
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SPEAK-EAZY 



the 

:human quality: 

"VOICE" 

for your TRS-BO* that is 
so good you won't believe it 
Phone for demo. S 

6 programs on 

tape or disk. + user manual 



2g goo 



NEW 
DOUBLE DENSITY 
DISK CONTROLER WITH 
16 K ONBOARD RAM 
FOR YOUR MODEL I. 
NO EXPANSION INTER- 
FACE NEEDED, RUNS 
SINGLE OR DOUBLE DEN. 

$299.°-° 



-NEW" 
29.°.° SUPER 
SENSITIVE 
LIGHT PEN 



SIMPLIFY 
YOUR TAPE LOADING 

WITH reload: 
THE 

LED -VU METER 
$ 29/.° 



*TRS 80 IS A TRADEMARK OF RADIO SHACK* 
PROGRESSIVE ELECTRONICS 
643 E. CHESTNUT ST. 
LANCASTER OH. 43130 
PHONE - 614-687-1019 



^277 



Program continues 
1360 DATA ITT, IT, t ZZ, IS, RA</, RATHER, FOR, FOR, 77SS, US, T' , 

TO,BE,BE,HERR,HERE 
1370 DATA D44DIK) *T3D, DEDICATED, T' , TO, <77, THE, GR)*T,GRE 

AT 
1380 DATA T9SSK, TASK, REM) *N!+, REMAINING, BEFOR, BEFORE, 77 

SS,US - ,0 0,"" 
1390 DATA B <:T H , THAT, FR8MM, FROM, <EEX, THESE, ;N5RD,HONORE 

D,D45D,DEAD,WE,WE 
1400 DATA T)*K, TAKE, <77, THE, 1NKRESD, INCREASED, D!VOU>N,D 

EVOTION,T' ,TO,"<:t",THAT 
1410 DATA "K,8Z", CAUSE, FOR, FOR, W!TC, WHICH, <§&, THEY, HERR 

, HERE, G)*V, GAVE 
1420 DATA <77, THE, L9SST, LAST, F%%LLL, FULL, M45X/, MEASURE, 

",V", OF, D!VOU>N, DEVOTION - ,0 0,"" 
1430 DATA "<:T", THAT, WE, WE, HERR, HERE, ; ILE, HIGHLY, REZALV 

, RESOLVE, "OT", THAT 
1440 DATA <EEZ, THESE, D45D, DEAD, >1LL-, SHALL, N2TT, NOT, H9V 

V,HAVE,D; !D,DIED 
1450 DATA I!N,IN,V)**N,VAIN - ,0 0,"" 
1460 DATA "<:T", THAT, =! ISS, THIS, N)*>N, "NATION, ",7ND/, UN 

DER,GAADD, "GOD, ",> ILL, SHALL 
1470 DATA H9W, HAVE, "{., A, NUU, NEW, B/==, BIRTH, 77V, OF, FRED 

8M, FREEDOM - ,0 0,"" 
1480 DATA 9ND, AND, "<:T", THAT, G8V/M45NT, GOVERNMENT, 77F,0 

F, <77, THE, PEPL, "PEOPLE," 
1490 DATA "B,&", BY, <77, THE, PEPL, "PEOPLE,", FOR, FOR, <77,T 

HE, PEPL, "PEOPLE, " , >1LL, SHALL 
1500 DATA N2TT, NOT, P45R!>, PERISH, FR7MM, FROM, <77, THE, 8/= 

==, EARTH., 0,"////" 

2000 RESTORE 

2001 INPUTB 

2002 FORN=lTOB 

2003 READA$:NEXT:GOTO10 
10000 INPUTAS 

10010 PRINT@992,"? ";A$;" ?" 

10020 PRINT@0,""; 

10030 GOTO10000 

20000 RESTORE 

20010 INPUT B 

20020 FORN=lTOB 

20030 READB$:READA$:NEXT 

20040 READA$:PRINT@992," ?";A$;" ?" ; 

20050 READA$:PRINT*994,A$;" 

20060 FORN=1TO28 0:NEXTN 

20070 GOTO20040 



GET ORGANIZED 

With These Utility Programs From Instant Software 



FIND IT QUICK 



Put an end to the Misplaced Informa- 
tion Syndrome! Here is a reliable, fast, 
subject-oriented information locator— 
FIND IT QUICK! This information in- 
dexing and retrieval system is versatile and 
flexible— the ideal tool for doctors, 
lawyers, engineers, businessmen, educa- 
tors, anyone who needs to locate informa- 
tion. 

Designed with a journal /magazine for- 
mat, FIQ is versatile enough to be used to 
store and retrieve any type of reference in- 
formation including client lists, vendor 
advertisements, report bibliographies and 
more — even poems and famous quota- 
tions. Subjects can be indexed or called 
according to author, journal and date or 
by up to nine keywords that you deter- 
mine. Keywords can be used singly or in 
combination during the search routines. 

FIQ can be used by anyone. It requires 
no special skill, just the ability to type. Ar- 



ticle references to be stored can be pre- 
selected and then entered into the system 
by a secretary or assistant. The contents 
of entire file cabinets can even be indexed 
and stored! 

FIND IT QUICK requires a minimum 
system consisting of a TRS-80 Model I 
Level II with I6K of RAM, an Expansion 
Interface with I6K of RAM and at least 
one disk drive. Up to 1080 items can be 
stored on one data disk. Instant Soft- 
ware's Tiny DOS operating system is in- 
cluded on the program disk so that you 
can use the program without fuss or 
bother. 

Make your computer work like your 
own personal librarian with FIND IT 
QUICK. Can you afford to wait another 
day? 
Order No. 0258RII $49.95. Disk 



Instant Software 



PETERBOROUGH, N.H. 03458 



MASTER DIRECTORY 



The MASTER DIRECTORY is a disk 
file storage program that reads the tiles on 
all your disks and stores the file names and 
extensions and even records the free space 
on each disk. All you have to do is number 
the disks in your library and the MASTER 
DIRECTORY will keep track of their con- 
tents. You can read the names, displayed 
alphabetically, search the DIRECTORY 
for file names and extensions, delete disks 
and search for free space. You can store 
5(XX) files or 320 disks, whichever comes 
first . 

Your disk storage problems are over now 
that the MASTER DIRECTORY is here. 
This package requires the following 
minimum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interlace. 

3. One (or more) disk drives. 




Order No. 5005RD (disk-based version) 
$29.95 



^-532 



TO ORDER: 



SEE YOUR LOCAL 

INSTANT SOFTWARE DEALER 

OR CALL TOLL-FREE 

1-800-258-5473 
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TALKS 






£il/£XPEWS/VE 



ECHO "SPEECH SYNTHESIZERS 



Don't limit your computer! Let it speak its mind with an ECHO 
SPEECH SYNTHESIZER. There are now three new additions to the 
ECHO family: the ECHO-80 (TRS80 MODEL I), the ECHO-GP (general 
purpose serial/parallel), and the ECHO-100 (S-100). These join the 
already popular ECHO I (Apple). 

All ECHO SYNTHESIZERS use a combination of Texas Instrument's 
LPC synthesis and phoneme coding to produce an unlimited 
vocabulary while using a minimal amount of memory. New male 
and female phonemes and TEXTALKER™ software (converts English 
text to speech) make them easier to use than ever before. 

Speech appications are virtually unlimited, including education, 
games, and aiding the handicapped. The flexibility and low price 
of the ECHO SYNTHESIZERS make them the logical choice for 
adding speech to your system. For further information see your 
dealer or contact Street Electronics Corporation. 



/sM 



STREET ELECTRONICS 
CORPORATION ^« 




3152 E. La Palma Ave., Suite C 
Anaheim, CA 92806 (714) 632-9950 



NAME THAT SONG 



Name That Song is a fantastic new graphics game from Software Innova- 
tions. The animated graphics, fast action, strategy, super music and sound 
effects combine to make this "The best new graphics and sound game out 
fortheTRS-80." 

You and your opponent sit forward in your chairs, intently watching the 
uideoscreen. After giving a brief rundown on the rules, the announcer quiets 
the audience and spins the Wheels of Fortune. ..Round and round they go, 
finally coming to rest. This time, its only $100, but next time, it could be a 
double $1000! Abruptly, the music begins, and you know that song.. .You 
press your buzzer, and Name that tune! 

The action is fast and furious as you frantically try to bang your 
button before your opponent does. As you both name songs 
correctly, the score goes higher and higher, but 
each time you seem to win more money when you 
name a song than when your opponent does. 
Finally, you have won the first 
round by a score of three songs 
to two. 

Each round has a different 
point value. The first two rounds 
are worth ten points, and the 
third is worth 20. A tie splits the 
points evenly between the two contestants. 

There is a pause in the action as a commercial comes on. 
After a pause, the monitor clears, and seven numbered lights 
appear. Your opponent chooses one, and a 
cryptic clue is revealed. The song auction has 
begun. You bid on the song: 
"I can Name that Song in 7 notes" 
"/ can Name that Song in 6 notes" 
"I can Name that Song in 5 notes" 
And after a long pause, your opponent says: 
"Name that Song!!" 

The audience quiets and the special guest musician. Trumpeter Willie 
Makeit, plays the five notes. Can you name that song? You type a title and 
hesitantly press enter, but the computer emits a loud raspberry... The 
audience groans— You had the wrong song in mind... 




The round ends when the seven clues are all revealed. The 
current leader is announced, and the program again pauses 
for a short commercial. The action continues... 

The large graphic timer is set for 30 seconds, and 
slowly begins ticking away. The songs come quickly, 
one after another, as you frantically attempt to 
hit your buzzer before your opponent so you 
can have a chance to name that familiar tune. 
You find yourself ahead as the clock winds 
down toward zero, and shrewdly stop entering 
titles and let the songs play to their finish to use 
up precious (for your opponent) time. But hold 
every thing— your opponent seems 
to have caught up! 
You anxiously await the next 
song so you can regain your 
lead, but it is too late... The 
timer has reached zero and 
the third round ends in a tie. 
This great party game is supplied with over 100 
songs. On the disk are the files "Potluck" with many 
types of music, "Broadway" with show tunes. "Child- 
ren" containing popular nursery songs, and Popscene 
with recent rock songs from popular groups such as 
the Beatles and Billy Joel. 

The song also provides a utility which allows you to 
create your own song files. It is easy to use, and the docu- 
mentation tells you, in plain English, how to enter music even 
f you've never opened a music book in your life! 

For 32k Model I Disk TRS-80s, $19.95. 
Call for Model III Availability. TERMS: Check, 
Money Order, MC or Visa, N.Y. res. add 7% tax. 

SOFTWARE INNOVATIONS ^ 

320 Melbourne Rd., Great Neck,N.Y. 11021 
(516)482-6004 (516) 482-8491 (CBBS) 



y'See List ol Advertisers on page 322 
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EDUCATION 



A record-keeping program for teachers. 



The Green Register 



Glynn Paul LaBorde 

Box 63 

Angola, LA 70712 



Every school teacher has to 
keep student records. At the 
beginning of the school year, you 
are faced with the "green regis- 
ter," as we call it in Louisiana. 
Whatever name you use makes 
no difference — every bit of infor- 
mation must be perfect, with no 
allowance for typographical er- 
rors. Every change in a student's 
status must also be recorded. 
This record keeping program 
will not free you from the drud- 
gery of the "green register," but 
it may make it a little easier to 
live with. 

My students are convicts at 
the Louisiana State Penitentiary 
at Angola, Louisiana. Because 
of the large variation in our 
school enrollment, a simple 
"green register" would not serve 
my needs. This program is not 
so specialized, however, that 
you can't use it in a public 
school or adult education set- 
ting. With only two or three 
changes it can be adapted for 
use by any teacher. 

When powering up your sys- 
tem, answer the memory size 
question with 31867. This is nec- 
essary for the KBeepFix and 
Babybeep programs to run cor- 
rectly. Edit line 100 of KBeepFix 
(80 Microcomputing, February, 
1980) as follows: 100 DATA 211, 
250,197,6,64,16,254,193,16,242, 
241,225,193,195,251,3. The 
change from 255 to 250 will si- 
lence the beep but will not affect 
the debounce and repeat fea- 



tures. When I first wrote the rec- 
ord keeping program, I often 
wished for an audio cue to let 
me know when sorting was com- 
plete or when the files were 
loaded. Well, Babybeep came to 
my rescue with the April 1980 is- 
sue of 80 Microcomputing. 
Babybeep is used throughout 
my record keeping programs 
and adds a certain amount of 
flair to the operation of the pro- 
gram. 

If you don't want audio cues, 
just remove the appropriate 
M = USR(0), POKE 16526,nnn, 
and data statements at the be- 
ginning of the program. To in- 
crease the number of records, 
simply reduce the number of 
data arrays from eight to some 
lesser number and clear more 
and more memory until you find 
the maximum amount that can 
be cleared while still allowing 
the program to run. I have a 16K 
Level II machine and have found 
3000 bytes of space sufficient 
for 100 records, even with 20- 
character names, five-character 
student numbers, eight-char- 
acter dates of birth, four-charac- 
ter reading, math and language 
scores, nine-character class 
names, and 20-character dormi- 
tory names. Array M$ used for 
the various messages saves 
many program lines and makes 
the program shorter. 

The Program 

When the program is run, the 
screen clears for a few seconds 
while the message array, M$, is 
being filled. The master menu 
selections of Load, Save, 
Search, Add, List, Sort and Lock 



are printed on the left side of the 
screen. A message near the top 
center of the screen reads 
Master Program Ready. 

After pressing 1 for Load, the 
master menu is erased and a 
Load Subroutine Engaged mes- 
sage appears near the top cen- 
ter of the screen. In place of the 
master menu, a single item 
menu appears as 1 Cancel. 
Therefore, if you mistakenly en- 
tered the load subroutine, you 
can gracefully return to the 
master menu without Breaking 
and therefore losing all data. 
Pressing any other key turns on 
the cassette deck and begins 
the loading. 

The first message after load- 
ing begins is nn Records To Be 
Loaded. As each record is load- 
ed, its number in the file is print- 
ed along with the person's 
name. This slows the loading 
process, but I feel more comfort- 
able knowing I'm loading rec- 
ords and not garbage, which 
happens from time to time with 
an '80 cassette system. After all 
the files are loaded, the program 
returns to the master menu. 

Choose 2 for Save and once 
again the master menu is erased 
and replaced by 1 Cancel. Press- 
ing any other key begins data re- 
cording onto a cassette tape. 
This subroutine also displays 
the number of records to be re- 
corded and the number of each 
file and the name of each person 
as it is recorded. After all files 
have been recorded, the pro- 
gram returns to the master 
menu. 

Choose 3 for Search and the 
master menu is replaced by a 



search menu with the choices 1 
Cancel, 2 Name, 3 Part Name 
and 4 Number. When a search 
by name is requested, the pro- 
gram responds with Name ?, at 
which time you must enter the 
full name (last then first) of the 
person you want. I often use the 
3 Part Name command. When a 
partial name search is request- 
ed, you enter whatever part of 
the person's name you remem- 
ber. The computer, using the 
MID$ function, searches the 
name array until it gets a match. 
It will stop at Smith, Bob, if you 
entered Smith as the partial 
name. If the Smith you wanted 
was Smith, John, simply step 
forward through the arrays. 

Search by number will hunt 
the student number array until a 
match is found. Regardless of 
the type search being con- 
ducted, a No Information On 

message is 

printed near the top center of 
the screen when the computer 
fails to find a match. Control 
then returns to the search menu. 

If the file is located, the 
search menu is replaced by four 
other menu selections: 1 Can- 
cel, 2 Forward, 3 Reverse and 4 
Delete. 1 Cancel returns you to 
the search menu. The next file in 
the various arrays will replace 
the present file on the monitor 
with 2 Forward. When you reach 
the end of the file, a File Ends 
Here message appears near the 
bottom of the screen and con- 
trol returns to the search menu. 
3 Reverse is just what it sounds 
like, backing you up to the be- 
ginning of the files, one record 
at a time. When the first file is 
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reached, a File Starts Here mes- 
sage is printed and control re- 
turns to the search menu. 

There are several safeguards 
built into 4 Delete. Pressing 4 re- 
places the menu with 1 Cancel 
and 4 Delete, thereby keeping 
you from accidentally wiping 
out all records on a student. Hit 
4 again and the computer be- 
gins to delete the record dis- 
played by moving all other rec- 
ords down one at a time. Be- 
cause of the garbage collection, 
deleting a file can take as long 
as three or four minutes, espe- 
cially if the record being deleted 
was near the beginning of the 
file. To reassure myself that the 
computer was not in some type 
of endless loop, I added a line or 
so to the program so that the 
numbers of the files are dis- 
played as the computer moves 
them down. 

Editing a student's record is 
also simple. A typical record 
might look like this: 



Name 


Smith Bob 


PMB Number 


12345 


Dorm 


4 East 


Birthdate 


2-8-43 


Class 


Sophomore 


Reading 


8.5 


Math 


10.2 


Language 


7.7 


Average 


8.8 



To edit any of the eight data 
arrays, hit N for the name, P for 
the student number, D for the 
dormitory, B for the birthdate, C 
for the class, R for the reading 
score, M for the math score, or L 
for the language score. A ques- 



tion mark prompt appears, then 
you type in the new data. If no 
change was desired, hit Enter 
without typing in anything and 
the student's record will not be 
changed. 

After any change, the up- 
dated file is displayed. The aver- 
age of the math, reading and 
language scores is automatical- 
ly calculated to the nearest 
tenth of a grade level. If the stu- 
dent scores 12.0 or better on all 
three tests and the average 
score 13.0 or better, the student 
is eligible, under Louisiana law, 
to take the G.E.D. test. Those of 
you in public schools will have 
no use for the Eligible for GED 
Test message that appears 
below the Average line. Those of 
you in adult education situa- 
tions in other states will have to 
make the appropriate changes 
in line 450. 

Pressing 4, while in the mas- 
ter menu, places you in the Add 
or Build a File mode. The master 
menu is erased and a Name? 
prompt appears near the top 
center of the screen. After the 
name is entered, a PMB? prompt 
appears. This continues 
through each data array. After 
the language score is entered, 
another Name? prompt appears 
and the process repeats itself. 
To exit the add mode, enter 
"end" for the name of the next 
file. This returns you to the 
master menu. 

The eight data arrays are di- 
mensioned for 100 files. There- 



A 


used in ONAGOTO statements throughout the program 


A$ 


used in sorts as temporary storage and in INKEYS function 


BIS 


date of birth array 


CL$ 


class name array 


D$ 


name of class to be listed 


DO$ 


dormitory name array 


EOL 


total number of records 


I 


pointer used in sort routines 


J 


pointer used in sort routines 


K 


pointer used in sort routines 


L 


pointer used in sort routines 


LA 


language score array 


M 


pointer used in sort routines 


MS 


message array 


MA 


math score array 


N 


used in sorts as temporary storage and as student number being searched 


N$ 


name of student being searched 


NU 


student number array 


P 


used in print at statements 


Q% 


delay timer in line 260 


RE 


reading score array 


s 


flag used in sorts and keyboard lock 


X 


used in calls to machine language subroutines 


Y% 


used in MIDS function in partial name searches 


2% 


timing counter to produce "heartbeat" in line 190 




List of Variables 




PROBASIC 



PROBASIC $195.00 

Loader relocatably links user specified modules to save memory. 
Design BASIC to your specifications (now or later). 
Dump feature allows you to save your versions of Basic 
Sample: PROBASIC -P: ACDEFGIM -S:Your file 



Probasic Includes the following relocatable modules 



PRO - ANGLES 

DEGREES, RADIANS 
ASIN, ACQS, PI # 



PRO-LABELS 

Label branching & testing 
IF LABEL 85 < > "Test" 
THEN MERGE . . . 
85 "Test" PRINT "Test" 



PRO-DEBUG 

* Most brackets optional . . . 

* Fix - T M error 

* New - DELETE 

* TRSTEP, TRVAR, PROC, 
INSERT, DIR, INBSC 



PRO-EXTENSIONS 

Dynamicly save variables & 
files during editing, merging, 
linking & deleting, . . . 
New - RENUM 
New - MERGE, LINK 



PRO-KEYS 

* Redefine key(s) to any string 
from program or keyboard 

* Enable/Disable from key- 
board with CTR'L - ) 

* Fix - live - keyboard 

* PROKEY = , PROKEYS 



PRO-WORDS 

UPC$, LWC$, TRIMS, REV$, 
PAUSE, RPTS FCHR, FSTR, 
FSECTS, CHGS, EVAL, 
CKKEY, FRACT, COMP, 
FQTY,MIN,MAX,EDT$,E#, 
INVS, CNSECS, 



PRO-MACH 

* S V C axcess to basic subs 

* New - BREAK (Reset) 

* PEEK, PEEK%, PEEKS, 
POKE, POKE%, POKES, 
CALL adres (parms), 
CLRTN, EXECUTE, INP, 
OUT 



PRO-EDIT 

Immediate entry keys 

»«♦♦,. /f 1 
New - LIST & EDIT 
ROLLUP, ROLLDN 



PRO - CRT 

Inverse vidio 

CRT, CRTS, SCROLL 



PRO-SORT 

String aray sort routines 
2000 strings in 7-16 sec 
SORTa$(*USINGl,2... 



PRO - FILES 

Fix - LOF 
RELOC, OPEN "E" 



PRO-FUNCTIONS 

Multi-line Functions 

MIDS TO 

WAIT for $ reorganizing 

New- HEXS 

Misc fixes 



PRO - VRS 

* Allows 3 letter variables 

* Reserved words in variables 

* UPCVRS, LWCVRS 
KEYVRS, VARLEN 



PRO-GRAPH 

* Draw lines, patterns, points 

* SET, RESET, POINT, 
USING, TO, GRAPH 



Call and we'll send our "TEST PROGRAM" listing 
PRO-80-SYSTEMS ^507 319-266-4262 

319-266-7184 
319-233-6111 



3206 CENTER STREET 
Cedar Falls, la. 50613 



■ See List ot Advertisers on page 322 
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wabash 



When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard, Visa Accepted. 
Call Free: (800)235-4137 




PACIFIC 
EXCHANGES ^370 

>thill Blv< 
San Luis Obispo. CA 
93401 (InCal call 
(805) 543-1037 I 



MODELS I AND III 

ALL PROGRAMS USE TESTED 

MICRO - TYPIT A text editing program that uses the keyboard "as is" like a 
typewriter. All edit and prompt functions are "built in" so instruction or learning 
is minimum. Text can be generated three pages at a time and printed either 
numbered, or unnumbered single or double spaced. Also, right justification is 
optional. Does not require substitution of @ for commas or any other character 
revision. Slowest function is transferring text to and from tape. Neat error free 
text with large print titles. Excellent for specifications, agreements, instruc- 
tions, form letters or announcements. Complete with sound for TRS-80 Model I 
level II and Microteck printer easily adaptable to other printers. PRICE . . $25.00 

CLIENT FILES Allows keeping several contracts for up to 20 clients. Enter 
contracts including either payment amounts or percentages. As bills are sent 
out and payments received, the program is a record by contract of amounts 
outstanding and not billed including a summary of receivables and work in prog- 
ress. Works well with one to 3 projects for a dozen or so clients. PRICE . . . $25.00 



Engineering Programs 

LIGHTING CALCULATIONS Calculates the required number of fixtures 
for a room given the dimensions and reflectances by the zone cavity method. 
Three standard fixtures are "built in" so that 8 room calculations are made to 
compare results such as watts, footcandles and number of fixtures. 

PRICE... $30.00 

ENERGY ANALYSIS The program evaluates a Building per ASHRAE 90-75 
by calculating the allowable and actual U values and OTTV for large commercial 
"B" type Buildings. PRICE ... $20.00 

All tapes furnished with full documentation and instructions. Documentation, 
Instructions and Source list only $15.00 

All programs require Level II and 16K. Printer is required for MICRO-TYPIT and 
optional on all others. Don't forget to include the Model number (I or III) with your 
order. 



^52 



Send Check or Money Order (no COD's please) to: 

Coolidge Si Associates 



1317 S. CONGRESS AUSTIN, TEXAS 78704 



(512)443- 5329 



fore, if you reach the end of 
available array space, a File Full 
message appears at the top 
center of the screen and you are 
returned to the master menu. 

The list subroutine, or 5, re- 
places the master menu with a 
list menu of 1 Cancel, 2 All, 3 By 
Class. 1 Cancel works just as all 
the others; you return to the 
master menu. 2 All lists only the 
name, PMB number and dormi- 
tory of each student on file, dis- 
playing 10 records, pausing a 
few seconds, and then replacing 
those 10 with another 10, etc. 3 
By Class will respond with 
Class?, at which time you must 
enter the class you wish listed. 
The program then searches the 
class array, CL$, and prints 
those students' names, num- 
bers and dormitories. After a 
listing is complete, control re- 
turns to the list menu. 

When you choose 6 Sort, the 
master menu is replaced with 1 
Cancel, 2 Alpha, 3 Numeric. To 
return control the the master 
menu choose 1 Cancel. To sort 
by name or number, choose 2 Al- 
pha and 3 Numeric respectively. 
To prevent accidentally begin- 
ning a sort, there are two safe- 
guards. After hitting either 2 or 
3, the sort menu is replaced with 
1 Cancel. This cancel returns 
you to the sort menu. 

To begin the sort, you must 
enter a seven-character unlock 
code. If any character is keyed 
in incorrectly, you must re-enter 
the unlock code from the very 
beginning. In this way, it is im- 
possible to begin a sort acciden- 
tally. The sort used in this ver- 
sion of the record keeping pro- 



gram is the Shell-Metzner Sort. 

Sorting never takes more than 
15 minutes with 100 files in 
memory. With 70 files in memo- 
ry, sort time is cut in half. This 
compares very favorably with 
eight hours for some of the sort 
routines suggested by Radio 
Shack. While sorting, three num- 
bers are displayed in the upper 
left portion of the screen to reas- 
sure you that files are being 
sorted. There is an occasional 
pause when the computer takes 
a deep breath while going 
through a garbage collection 
routine, but don't worry about it. 
The Shell-Metzner sort is still 
light-years ahead of other Basic 
sorts. 

After hitting 7 for Lock, the 
master menu is erased and the 
message Keyboard Lock Sub- 
routine Engaged is displayed. 
You'll really appreciate this lock 
command when you have to 
step out of the room, leaving 
your system alone with 300 
curious fingers just itching to 
press a key or two. Only the 
special seven-digit code men- 
tioned earlier will return you to 
the master menu. (Really mis- 
chievous students could always 
pull the power plug, turn the sys- 
tem off, or hit the Break key. 
Nothing is really foolproof.) 

Non-teachers can use this 
program for such things as 
keeping records on business cli- 
ents, employees, or family mem- 
bers. The most limiting factor 
concerning the uses of a com- 
puter is your imagination. ■ 

The program is available on cas- 
sette from the author. 



Program Listing 

100 ■ STUDENTS RECORDS PROGRAM REVISED APRIL 11, 1980 UTILIZI 

NGSHELL-KETZLER SORT 

110 CLS:CLEAR3000:DIMMS(47) ,NA$(105) ,NUtlBJ) ,DOS(105) ,CL$(105) ,B 
I$(105) ,RE(105) ,MA(105) ,LA(10S) : EOL=l :X=1 :FORQ%=32000TO32303 :REA 
DA:POKEQ%,A:NEXT:POKE16527,125:FORQ%-lT044:READMS(Q%) :NEXT:RESTO 

RE 

120 DATA14, 8, 6, 192, 205 ,2", ,i26 ,197 ,16 , 254 ,193 ,16 ,247 ,13 ,121 ,254,0 

,32,239,201,14,16,33,32,0,205,27,126,6,160,16,254,43,124,181,32, 

244,33,0,10,43,124,181,32,251,13,121,254,0,32,227,201,14,10,6,48 

,205,27,126,197,6,255,16,254,193,15,245,6,80,205,27,126,197,6,96 

130 DATA254, 193, 16, 245, 13, 121, 254, 0,32, 224, 201, 6, 64, 205, 27, 126,1 
97,6,192,16,254,193,16,245,6,128,205,27,126,197,6,80,16,254,193, 
16,245,6,255,205,27,126,197,6,48,16,254,193,16,245,6,176,205,27, 
126,197,6,176,16,254,193,16,245,6,255,205,27,126,197,6,32,16,254 

140 DATA193, 16, 245, 14, 16, 6, 16, 205, 27, 126, 197, 6, 255, 16, 254, 193, 16 
,245,13,121,254,0,40,10,33,0,10,43,124,181,32,251,24,227,201,14, 
8,6,0,205,27,126,197,4,120,246,0,32,250,193,4,120,246,0,32,239,6 
,255,205,27,126,197,16,254,193,16,247,13,121,254,0,32,220,201,6 
150 DATA128, 205, 27, 126, 197, 6, 128, 16, 254, 193, 16, 245, 201, 6, 192, 205 



Program continues 
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,27,126, 197, 6, 64, 16, 254,153, 16,245,201, 14, 32 ,33,10 »0f 205,27, 126, 
6,255,16,254,43,124,181,32,244,33,8,1,43,124,181,32,251,13,121,2 
54,0,32,227,201,58,61,64,230,253,198,2,211,255,214,2,211,255,201 

,68 

160 DATA32,75,73,84,83,90:M$(45)=STRINGS(12," ") :H$ (46) =STRINGS( 

40," ") :MS(47)=STRINGS(44," ") 

170 CLS 

180 GOSUB230:FORQ%=lTO7:PRINTei28*Q%-61,M$(Q%) , : NEXT:PRINTg96 ,MS 

(29); 

190 A$=INKEY$:Z%=Z%+1:IFZ%=40THENPOKE16526,223:X=USR(0) :Z%=0 

200 IFA$<'1"ORA$>"7"THEN190 

210 POKE16526,52:X=USR(0) 

220 A=VAL(AS) :ONAGOTO270,310,350,560,620,690,910:GOTO190 

230 PRINT?85,MS(46) ;:RETURN 

240 FORQ%=67T0835STEP128 : PRINT§Q» ,M$ ( 4S) ; : NEXT:RETURN 

250 FORQ%=212T0852STEP64:PRINT§Q%,M$(47) ;: NEXT .-RETURN 

260 FORQ%=1TO1000:NEXT:RETURN 

270 GOSUB230:PRINTg95,M$(30) ; :GOSUB240; PRINT§67 ,M$ (8) ; 

280 A$=INKEY$:IFAS=""THEN280ELSEI?AS="1"THENPOKE16526,251:X=USR( 

0) :GOSUB240:GOTO180 

290 GOSUB240:INPUT#-1,EOL:GOSUB230:PRINT?95,EOL;"RECORDS TO BE L 

OADED") 

300 FORA = lTOEOL:INPUTI-l,NA$(A) ,NU(A) ,DOS(A) ,CL$(A) ,BIS(A) ,RL:(A) 

,MA(A) ,LA(A) :GOSUB230:PRINT§95,"FILE I " »A;TAB( 5) NA$ (A) ; : NEXT: POK 

E16 526,52:X=USR(0) :GOSUB240 :GOTO180 

310 GOSUB230:PRINTg95,M$(31) ; :GOSUB240: PRINT367 ,M$( 8) ; 

320 A$=INKEY$:IFAS=""THEN320ELSEIFA$="1"THENPOKE16526,251:X-USR( 

0) :GOSUB240:GOTO180 

330 GOSUB240:PRINTI-l,EOL:GOSUB230:PRINTe95,EOL; "RECORDS TO BE S 

AVED"; 

340 FORA=lTOEOL:PRINT#-l,NA$(A) ,NU(A) ,DO$(A) ,CLS(A) ,BI$(A) ,RE(A) 

,«A(A) ,LA(A) :GOSUB230:PRINTe95,*FILE # " ; A;TAB( 5) NA$(A) ;:NEXT:POK 

E16526,52:X=USR(0) :GOSUB240 :GOTO180 

350 GOSUB230:PRINT@94,M$(32) • :GOSUB240 : PRINT667 ,M$(8) ;:PRINTei95 

,HS(9) ;:PRINT§323,HS(10) ; : PRINT6451 ,MS (11) ; 

360 A$=INKEY$:IFA$O"1"ANDA$<>"2"ANDA$O"3"ANDA$<>"4"THEN360ELSE 

A=VAL(AS) :ONAGOTO370,380,550,390 

370 POKE16526,251:X=USR(0) :GOSUB250:GOSUB240:GOTO180 

380 GOSUB230:PRINT@94,MS(15) ; : INPUTN$:GOSUB230 :PRINT@94 ,M$(32) ;: 

FORA=0TOEOL:IFNS=NAS(A)THEN400ELSENEXT:GOSUB230:PRINTe94,M$(28) > 

:POKE16526,251:X=USR(0) :GOTO350 

390 GOSUB230:PRINT@94,M$(16);:INPUTN:GOSUB230:PRINT@94,M$(32) j:F 

ORA=0TOEOL:IFN=NU(A)THEN400ELSENEXT:GOSUB230:PRINT@94,H$(28);:PO 

KE16526,251:X=USR(0) :GOTO350 

400 POKE16526,0:X=USR(0) 

410 AV=(RE(A)+HA(A)+LA(A))/3:AV=AV+.05:AV=INT(AV*10)/10:PRINTe21 

2,M$(46) ;:PRINT§212,M$(15);:PRINT§224,NAS(A);:PRINT§276,MS(46) ; : 

PRINT@276,MS(16) ; : PRINT8287 ,NU(A) ; : PRINT6340 ,MS( 46) ; : PRINTS340 ,H 

S(17) ; 

420 PRINTe352,DO$(A);:PRINT@404,M$(46) ; : PRINT§404 ,M$ (18) ; 

430 PRINTg416,CLS(A) ; : PRINT@46 8,H$ (46) ; : PRINT@46 8,MS(19) ;: PRINT? 

480,BIS(A) ;:PRINTg532,MS(46) ; : PRINTP532 ,h$ (46) ; : PRINT@532 ,M$( 20) 

;:PRINT§543,RE(A);:PRINTe596,M$(46) ; : PRINT6596 ,M$(21) ; : PRINT8607 

,MA(A) ; :PRINT@660,M$(46) ; : PRINT6660 ,HS ( 22) ; : PRINT6671 ,LA(A) ; 

440 PRINT§724,M$(46) ; : PRINT3724 ,M$ ( 23) ; : PRINTg735 ,AVj 

450 IFRE(A) >=12ANDHA(A) >=12ANDLA(A) >=12ANDAV>=13THENPRINTe852,HS 

(25) j:ELSEPRINT@852,M$(46) ; 

460 PRINT@67,M5(8) ; : PRINTgl95 ,H5( 12) ; ;PRINT@323,M?(13) ;:PRINT§45 

1,HS(14); 

470 A$=INKEYS:IFAS=""THEN470:ELSEIFAS="1"THENGOSUB250:GOTO350:EL 

SEIFA$="2"THEN510:ELSEIFA$="3"THEN500:ELSEIFA$="4"THEN520 

480 PRINTg852,MS(46) ; : PRINT8852 , " " ; : IFA$="N"THENINPUTNA$ (A) :GOTO 

410:ELSEIFAS="P"THENINPUTNU(A) :GOTO410 : ELSEIFA$="D"THENINPUTDOS( 

A) :GOTO410:ELSEIFA$="C"THENINPUTCLS(A) :GOTO410 

490 IFA$="B"THENINPUTBI$(A) :GOTO410 :ELSEIFAS="R"THEN1NPUTRE(A) :G 

OTO410:ELSEIFA$="M"THENINPUTMA(A) :GOTO410 : ELSEIFAS="L"THENINPUTL 

A(A) :GOTO410:ELSE470 

500 A-=A-1:IFA<1THENPRINT8852,MS(46) ; : PRINT?852 ,H$( 26) ;:GOSUB260: 

GOSUB250 :GOTO350 : ELSE410 

510 A=A+l:IFA>EOLTHENPRINT§852,M$(46) ; : PRINTS852 ,M$ ( 27) ;:GOSUB26 

0:GOSUB250:GOTO350:ELSE410 

520 GOSUB240:PRINT@67,M$(8) ; : PRINT9195 ,MS (14) ; 

53 A$=INKEY$:IFA$=""THEN530ELSEIFA$="1"THENGOSUB240:GOTO46 0;FI.S 

EIFAS="4"THEN540:ELSE530 

540 GOSUB240:IFNU(A)=0THEN350:ELSEFORA=ATOEOL:PRINT@323,A;:B=A+1 
:NAS(A)=NAS(B) :NU(A)=NU(B) :DOS (A) =DOS(B) :CLS(A) =CLS(B) :BI$(A)=BI 
SIB) :RE(A)=RE(B) :MA(A)=HA(B) :LA(A)=LA(B) : PRINT8451 ,Aj : NEXT: EOL=E 
OL-1 :GOSUB240 :GOSUB250 :GOTO350 

550 GOSUB230:PRINT@94,M$(15) ; : INPUTN$:GOSUB230 : PRINTS94 ,M$ (32) ; : 
FORA=0TOEOL:FORY%=1TOLEN(NAS(A)) : IFMIDS (NAS (A) ,Y% ,LEN (NS) ) =N$THE 
N400:ELSENEXT:NEXT:GOSUB230:PRINTe94,M$(28) ; : POKE16526 ,251 :X=USR 
(0) :GOTO350 

560 GOSUB240:GOSUB230:PRINT@95,H$(33) ; : FORQ%=1TO500 :NEXT:GOSUB23 
0:FORA=EOL+lTO100:PRINTe94,MS(15);:INPUTNAS(A) : POKE16526 ,223 :X=U 

SR(0) 

570 IFNAS(A)="END"THENEOL=A-1:POKE16526,251:X=USR(0) :GOTO170 

580 GOSUB230:PRINT894,HS(16) ; : INPUTNU (A) :GOSUB230:PRINTg94 ,M$(17 

) ;:INPUTDO$(A) :GOSUB230 : PRINT@94 ,HS(18) ; : INPUTCLS(A) :GOSUB230 

590 PRINT§94,MS(19) ; : INPUTBI$( A) 

600 GOSUB230:PRINTe94,HS(20) ;:INPUTRE(A) :GOSUB230 : PRINT894 ,HS( 21 

) ;:INPUTHA(A) .-GOSUB230 : PRINT894 ,HS( 22) ; : INPUTLA(A) :GOSUB230:NEXT 

610 GOSUB230:PRINTg94,"FILE FULL" ; : EOL=100:GOSUB260 :GOTO180 

620 GOSUB230:PRINT894,M$(34) ; :GOSUB240 : PRINTG67 ,MS ( 8) ;:PRINTei95 

,M$(37) ;:PRINT§323,HS(3 8) ; 

630 P=0 

640 A$=INKEYS:IFA$O"1"ANDA$<>"2"ANDA$O"3"THEN640:ELSEA=VAL(A$) 

:ONAGOTO370,650,670:GOTO640 

650 GOSUB240:FORA=lTOEOL:P=P+l:PRINTeP*64+148,NAS(A) ;:PRINT6P*64 

+167,NU(A) ;:PRINT§P*64+174,DOS(A);:PRINT§P*64+179,CLS(A);:IFP/10 

=INT(P/10)THENGOSUB260:P=0:GOSUB250 

660 NEXT:GOSUB260:GOSUB260:GOSUB250:GOTO620 

670 GOSUB230:PRINT?94,MS(18) ; : INPUTD$:GOSUB230:PRINTe94,M$(34) ;: 

FORA=lTOEOL:IFDS=CLS(A)THENP=P+l:PRINTeP*64+148,NA$(A) ;:PRINTgP* 

64+167, NU(A) ;:PRINTeP*64+174,DO$(A) ; : PRINT§P*64+179 ,CL$ (A) | : IFP/ 

10=INT(P/10)THENGOSUB260:P=0:GOSUB250 

6 80 NEXT:GOSUB26 0:GOSUB260:GOSUB250:GOTO620 

690 GOSUB230:PRINTe94,HS(35) ; :GOSUB240: PRINT867 ,MS ( 8) >:PRINT8195 

,MS(41) ;:PRINT@323,HS(42) ; 

700 A$=INKEY$:IFA$<"1"ORA$>"3"THEN70 0ELSEA=VAL(A$) ;ONAGOTO370 ,71 

0,810 

710 GOSUB230:PRINT?94,MS(24) ; : PRINT8195,M$( 45) ; : PRINT8323 ,HS(45) 

Program continues 



SCRIPLUS 2.0 (MOD l/lll) $24.95 

A modification to Scripsit© which is tailored for the MX-80 
printer. Scriplus gives you the capability to send commands to 
the printer. You can change print sizes, underline, mix print 
sizes & change the number of characters per inch (including 
mid-line!) Also gives you an alphabetized directory! Many more 
features. 



BASIC/S 3.0 (MOD l/lll) $39.95 

A programmer's Basic Compiler. Not intended to compile "off 
the shelf" programs, but will compile code written along its 
parameters. No Royalty program to pay! Many Basic programs 
and routines you are using today can be compiled! Supports 
ALL MOD I operating systems & MOD III. 



MOVE 1-2-3/3-2-1 (l/lll) $29.95 

Convert selectively from MOD I to MOD III by file name or 
extension without having to convert the Entire Disk! You may 
also select from a list as it passes in review, and with Move 3-2- 
1 you can convert III to I! (Requires Percom Doubler in MOD I) 



EXTRA SPECIAL DELIVERY 

(l/lll) $200.00 

Machine Language program to maintain your mailing list, print 
labels, and merge data from your mail list into a letter created 
by Scripsit** or Electric Pencil^ 



LDOS MOD I or MOD III $139.95 

The ULTIMATE Operating System for MOD I or MOD III. 



QSD UTILITY DISK #1 

FOR LDOS© (MOD I) $69.95 

($50 w/LDOS MOD I) 

Increase the speed and power of your LDOS©! Contains: 
RESIDE/LD — Alows you to SYSGEN system overlays for 

increased speed and free space on disk, plus more! 
LZAP/CMD — Uses resident disk driver of LDOS"-' and thus 
enjoys its flexibility and device independence. It will auto 
configure itself to drive capacity. LZAP will support any 
number of drives from 0-7, any cylinder count up to 255 & 
any sector number to 255. It supports both single and 
double density recording formats, automatically! Various 
drive sizes and densities can be intermixed and LZAP will 
page between them without error. Many more features. 
CLONE/CMD — Copy files from DRIVE: 1 TO:1 or :2 TO :2 
CHANGE/CMD — Change where your drives are set in the 

device table, re-route output. 
ERASE/CM D — Erases all unused granules and removes all 
traces of "Killed" programs. 

And By Kim Watt ... 

LCOPY/CMD — Mass file transfer package. Fast and versatile! 

NUPURGE/CMD — Allows you to selectively purge by Class, 

List, etc. After you select the files to be purged, it kills 

them all at one time in 1-2 seconds. 
RECOVER/CMD — Recovers "Killed" files. 
DVORAK/CMD — Gives you the famous DVORAK keyboard 

layout. 

• LZAP/CMD Available seperately @ $29.95 

• LCOPY/CMD Available seperately @ $19.95 



OM8/CMD MOD I $29.95 

Lets you run LDOS with the Mapper Board. 

— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS »* 



1 1500 STEMMONS EXPRESSWAY, SUITE 104 

DALLAS. TEXAS 75229 Jgjj 

TRS-80 & Scripsit are PHONE (214) 484-2976 Pnce Dws m lndude 

Trademarks of Tandy Corp. MICRONET 70130,203 Postage 



-See List ol Advertisers on page 322 



80 Microcomputing, August 1981 • 217 



see 



2Z 



22= 



3E 



DISCOUNT 



Stock Computer Paper & Labels 
Over 50 Items in Stock 



ITEMS IN STOCK 


Custom To Your Needs 


Stock Forms Blank or Green Bar 


Invoices 


Statements 


Shippers 


Index Cards 


Custom Checks 


Pressure sensitive labels all sizes 


Custom Continuous Envelopes 


Continuous #10 envelopes 


& Letter Heads 


Continuous Blank Letter Heads 


Statements 


Spacing charts & layout sheets 




Forms rulers 


Quantities Of 1000 Or More 



I 



Send Inquiries To: 

WHITE RIVER PRODUCTS ^450 

P.O. BOX 604 

MT. CLEMENS, MICHIGAN 48043 



Name. 
Street. 
State_ 



Phone 



Zip. 



Type of Equipment. 



FREE 

SEND FOR 
YOURS TODAY 



k □ Computer □ 81 Tax Guide 
y Package |~| Stock Price List 
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; :S=2:GOSUB920:IFS=1THENS=2:GOTO6 90:ELSEGOSUB230:PRINT(?94,M$(43) 

; :M=EOL:GOSUB240 

720 M=INT(M/2) :IFM=0THEN800ELSEJ=1:K=EOL-M 

730 I=J 

740 L=I+M 

750 IFNA$(I)<=NA$(L)THEN780 

760 A$=NA$(I) :NAS(I)=NA$(L) :NAS(L) =AS:N=NU ( I ) :NU(I)=NU(L) :NU(L)= 

N:A$=DOS(I) :D0S(I)=D0S(L) :D0$(L) =A$: A$=CL$ ( I) :CL$ ( I) =CL$(L) :CLS( 

L)=AS:AS=BIS(D :BI$(I)=BIS(L) :BI$(L)=A$ 

770 N=RE(I) :RE(I)=RE(L) : RE ( L) =N: N=MA ( I ) :MA(I)=MA(L) :HA(L) =N:N=LA 

(I) :LA(I)=LA(L) :LA(L)=N 

780 I=I-M:PRINT669,I; : PRINT8133 ,L; : PRINT8197 ,M; : IFK1THEN790ELSE 

740 

790 J=J+1:IFJ>KTHEN720ELSE730 

800 POKE16526 ,87:X=USR(0) :GOTO170 

810 GOSUB230:PRINTg94,M$(24) ; : PRINT0195 ,MS(45) ; : PRINT§323 ,M$( 45) 

;:S=2:GOSUB920:IFS=1THENS=2:GOTO6 90:ELSEGOSUB230:PRINT§94,M$(44) 

;:H=EOL:GOSUB240 

820 M=INT(M/2) :IFM=0THEN900ELSEJ=1:K=EOL-M 

830 I=J 

840 L=I+M 

850 IFNU(I)<=NU(L)THEN880 

860 AS=NA$(I) :NA$(I)=NAS(L) :NA$ (L) =A$:N=NU ( I ) :NU ( I) =NU (L) :NU (L) - 

N:A$=DO$(I) :D0$(I)=D0S(L) :D0S (L) =A$: A$=CL$ ( I) :CLS( I) =CL$(L) :CL$( 

L)=A$:A$=BIS(I) :BIS(D=BIS(L) :BI$(L)«=A$ 

870 N=RE(I) :RE(I)=RE(L) :RE (L) =N:N=MA( I) :MA(I)=MA(L) :MA(L) =N:N=LA 

(I) :LA(I)=LA(L) :LA(L)=N 

880 I=I-M:PRINT@69,I; : PRINT6133 ,L; : PRINTS197 ,M; : IFK1THEN890ELSE 

840 

890 J=J+1:IFJ>KTHEN820ELSE830 

900 GOTO800 

910 S=0:GOSUB230:GOSUB240:PRINTe94,M$(36) ; :GOSUB240 :GOSUB920 :G0T 

0170 

920 AS=INKEYS:IFAS=""THEN920ELSE1FAS="1"ANDS=2THENS=1:RETURN:ELS 

EIFA$="G"THEN930ELSE920 

930 A$=INKEY$:IFA$=""THEN93 0ELSEIFA$="P"THEN940ELSE920 

940 A$=INKEY$: IFAS=""THEN940ELSEIFAS="L"THEN950 : ELSE920 

950 A$=INKEY$:IFA$=""THEN950ELSEIFA$="1"THEN960:ELSE920 

960 A$=INKEY$:IFA$=""THEN960ELSEIFA$="1"THEN970:ELSE920 

970 A$=INKEY$:IFA$=""THEN970ELSEIFA$="2"THEN980:ELSE920 

980 A$=INKEYS: IFA$=""THEN980ELSEIFA$="9"THEN990 : ELSE920 

990 RETURN 

1000 DATAl-LOAD,2-SAVE,3-SEARCH,4-ADD,5-LIST,6-SORT,7-LOCK,l-CAN 

CEL , 2-NAME , 3-PART , 4-NUMBER , 2-FORWARD , 3-REVERSE , 4-DELETE , NAME , P.M 

.B., DORM, CLASS, BIRTHDATE, READING, MATH, LANGUAGE, AVERAGE, SAFETY IN 

TERLOCK, ELIGIBLE FOR GED TEST 

1010 DATAFILE STARTS HERE, FILE ENDS HERE, NOTHING ON FILE, MASTER 

PROGRAM READY, LOAD SUBROUTINE ENGAGED, SAVE SUBROUTINE ENGAGED, SE 

ARCH SUBROUTINE ENGAGED, INPUT SUBROUTINE ENGAGED, LIST SUBROUTINE 

ENGAGED, SORT SUBROUTINE ENGAGED, SAFF^v ir.TFRLOCK 
1020 DA"'A2-AI,L,3-BY CLASS, 4-BY DORM ,DURM , 2-ALPnA , 7-NOMBRIC , ALPHA 
BETIC SORT, NUMERIC SORT 



Why Do Professionals Prefer 



BECAUSE 

• Unique software • Technical support • Quick 
delivery • Established company • Release 2 
CP/M ' (some packages under UNIX' and TRSD8S' ) 

• Quality software • In-house experlise • Fast 
response • User orientation • Competitive prices 

• Customer service • Vfertatim" media • Onyx 
hardware (CP/M and UNIX versions) 



BECAUSE 

Unique swift routing cybernetics response system 
gives you no-nonsense technical answers that save 
you time Call: (714) 848-1922 




NEW RM/COBOL' applications: 

• Order Entry/Inventory • Receivables • Payables • 
General Ledger • Financial Modeling • Client Account- 
ing—and more on the way! 
NEW CBASIC2' applications: 

• REAP (Real Estate Acquisition Package). 



Business 
Medical 
Real Estate 
Computer Systems 



Software from Cybernetics? 



RM/COBOL— The new standard lor microcomputer COBOLI! The only COBOL 
tor CP/M (also on TRSDOS & UNIX) with alternate keys (multi-key ISAM), CRT 
screen handling, interactive debug, and the most useful Level 2 features. Compat- 
ible with RSCOBOL'— but runs faster. 



TRS-80', Model II CP/M— The fastest Mod II CP/M with the most features. Out- 
standing teaching documentation for newcomers to CP/M, multiple CRT emula- 
tion, down loading package, support for CORVUS 10 Mb hard disk. Many addi- 
tional user-oriented features. 



Plus existing CBASIC2 packages 

APH' (Automated Patient History) 

Osborne S Assoc —Payroll • Payables'Receivables 
• General Ledger 

NAD* (Name and Address) 

PMS (Property Management System) 
Inquire for details 

Trademarks of Ryan-McFarland Corp . Compiler Systems In 
Telephone Laboratories. Inc . Tandy Corp 'Verbatim. Inc . 
lured Systems Group. Inc . "Small Business Applications. Inc 



And system software packages 
MAGIC WAND" Editing/Word Processing 
CBASIC2 Compiler BASIC 
QSOPT- Soft Merge Package 



c Digital Resea 
Cybernetics. Inc 



efia 



Distributed in U K by 

Microcomputer Applications Ltd 

11 Riverside Court. Caversham. Reading. England 

TEL (0734) 470425 




£S.i8.i5-i&i&i.«.iJ.i4,iSiS. 



8041 Newman Ave . Suite 208 
Huntington Beach. CA 92647 
(714) 848-1922 
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NOBODY KNOWS MORE ABOUT 

ADDING MEGABYTES TO YOUR 

TRS-80 MODEL II* THAN 

AMERICAN SMALL BUSINESS 



COMPUTERS 



THE CAMEO CONNECTION 

The Cameo 10 Million Cha- 
racter Disk Drive Subsystem 
(pictured in foreground) Is A 
5 Megabyte Fixed, 5 Mega- 
byte Removable Cartridge- 
Type Disk Drive. Advan- 
tages To This Unit Are Ease 
of Backup For Data and Pro- 
gram Files and Low Cost. By 
Attaching A Multiplexor Unit 
Several Model lis Can Be 
Attached To The Cameo Disk 
Drive. For Further Pricing, 
Availability, and Operating 
Systems Options, Call or 
Write to American Small 
Business Computers and ask 
for the CAMEO CONNEC- 
TION. 




THE CORVUS CONNECTION 

The Corvus Disk Drive Sub- 
system (center of picture) Is 
Available in 5, 10, and 20 
Million Character Capacities. 
The Corvus System Is The 
Ultimate In The Sealed 
"Winchester, All-Fixed" 
Type Drive. The Corvus Is 
Designed To Operate In The 
Harshest Environments Such 
As Factories, Oil Rigs, Etc. 
Backup Of Data Is Accom- 
plished Via Optional MIR- 
ROR Backup Device Where- 
by Data Is Written Onto A 
Standard Video Tape Record- 
er. A Great Number of 
Model II 's May Be Attached 
To The Corvus Via An 
Optional CONSTELLATION 
Multiplexor. For Further 
Pricing, Availability, and 
Operating Systems, Call Or 
Write to American Small 
Business Computers and Ask 
for the CORVUS CONNEC- 
TION. 



THE AMERICAN SMALL BUSINESS COMPUTERS MINI-WINCHESTER SPECIAL 
The MINI-5 (being held by Corporate President Robert Webster) Is American Small Business Computer's Very Own 
Disk Subsystem. The MINI-5 Offers Approximately 5 Million Characters of Information Storage and is Based On the 
Famous Seagate Technology ST-5QB Micro Winchester Drive. Now You Can Own State-Of-The-Art Technology At An 
Affordable Price - Only $3500 - Which Includes Drive, Controller Electronics, Power Supply, Cabinet, Cables, Docu- 
mentation and Operating System Software. ^ 



DEALER INQUIRIES INVITED 
AMERICAN SMALL BUSINESS COMPUTERS 

"TM TANDY CORPORATION 

118SOUTH MILL ST. PRYOR, OK. 74561 918-825-4844 
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AMERICAN 

1 18 SO. MILL STREET • PRYOR, OK 74361 
PHONE (918) 825-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED WE ACCEPT MC, VISA. AND COD (REQUIRES CERTIFIED CHECK. CASHIERS CHECK OR CASH) FOR CHARGE 
COD SERVICE PLEASE ADD 5% SHIPPING AND HANDLING ARE FREE ON ALL ORDERS OKLAHOAAA RESIDENTS PLEASE ADD 4°/o SALES TAX. 



ORDERS PLEASE ADD 3% FOR 



32K-EXPANSION INTERFACES 



SPECIAL OFFERING. 
Due to a very special purchase, 
American Business Computers 
is able to offer a limited number 
of Radio Shack* Expansion 
Interfaces at the lowest price 



For TRS-80* 
Model 1 



359 



95 



American Business Computers 
guarantees Expansion Interfaces 
to be Brand New— still in origi- 
nal documentation and in per- 
fect working condition. 



ever. 



ALL CABLES AND DOCUMENTATION ARE INCLUDED WITH INTERFACES. ^ 396 



NEW PRODUCT FOR THE COLOR COMPUTER... MOON LANDER BY GREG ZUMWALT 

In this exciting new adventure for the Color Computer* you attempt to guide your lander to a safe landing. Watch 
out for the hills and valleys and don't run out of fuel! Tough, Challenging, and Exciting. You won't want to miss 
this one ONLY $14.95 



PAPER FOR YOUR PRINTER 



9'/2X 11 

3200 Sheets- 15 Pounds 

$39.00 



Prices Includes 

Shipping Within 

Continental 

United States 

Via Ups 

• • New Item • • 



14x 11 
3200 Sheets- 15 Pounds 

$44.00 



Continuous Envelopes - That's Right - Fanfold envelopes with tractor perforations down 
either side. 

ENVELOPE SIZE 4'/2 x 10" with tractor perforations 4'/j x 11" 



PRICF 59 ^ per tnousar, d- 
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TEAC DISK DRIVES 



We are pleased to an- 
nounce that we are now 
able to offer TRS-80 
compatible mini disk 
drives. These drives are 
fully compatible with 
TRSDOS, NEWDOS, 
and NEWDOS 80 PLUS. 
The TEAC DRIVE is one 
of the first Japanese disk 
drives to appear on the 
American market. In 
many ways it is quite su- 
perior to its American 
made counterparts. 



$275.°° 



$570 



Duel Drive In One Enclosure 
(Cabinet) 

Two Drive Cable - $29.95 
Four Drive Cable - $39.95 



A high-precision lead 
screw method is used for 
positioning the head to 
the correct track. Four 
motor steps are used for 
move the width of one 
track. This improved 
positioning accuracy 
greatly reduces the pos- 
sibility of data error. 
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Attention: 

CORVUS 
OWNERS 



American Business Computer NOW offers a 
fully compatible TRSDOS* operating system. 
Our System, called C0RD0S, runs all 10 MB, 
Revision B Corvus drives. The Program in this 
package contains a Master Program which will 
convert a user's operating system disk (Version 
2.0) to an enhanced system capable of the fol- 
lowing: 

— Completely transparent use of the Corvus 

Hand Disk Drive 
-Complete compatibility with existing 

programs 
-All utilities (except Format and Backup, 

which should not be used) will operate 

normally. 

Price: $300.00 with manual 

- DEALER INQUIRIES INVITED - 

C0R00S Author - Andy Frederickson 

*TM of Tandy Corporation 

*TM of Corvus Systems 
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BUSINESS 
COMPUTERS 



master chaige 






•TM TANDY CORP. 




THE MX-80 NOT ONLY 

DOES EVERYTHING, IT 

DOES EVERYTHING 

WELL. 



This is the new Epson MX-80 dot matrix printer. It does just about everything you could 
ask a printer to do. Quickly. Quietly. Reliably. In fact, for OEM installations, the MX- 
80 may be the single best, all-round printer you can buy. But that's not the best reason 
to buy it. 

The MX-80 prints bidirectionally at 80 CPS in a user-defined choice of 40, 80, 66 or 132 
columns. And if that's not fast enough, its logical seeking function minimizes print head 
travel time. The MX-80 prints 96 ASCII, 64 graphic and eight international characters 
with a tack-sharp 9x9 matrix. For a long time. Epson printers are known for reliability 
and the MX-80 is no exception. But that's not the best reason to buy it either. 
The print head has a life expectancy of up to 100 x 10 characters, and when it wears out, 
just throw it away. A new one costs less than $30 and the only tool you need to change 
it is attached to the end of your arm. The MX-80 is compact weighs only 12 lbs., and the 
whole unit, including the two stepper motors controlling carriage and paper feeding 
functions, is precisely controlled by an internal microprocessor. But even that isn't why 
you should specify the MX-80. 

The best reason is this: because Epson ...Call For Unbelievably 

makes more printers than anyone else in 

the world, we can afford to sell each one 'LOW PnCe ^525 

for a little less. 

AW...WHAT THE HECK 

RAM Memory Chips for the TRS-80 



It is the policy of American 
Business Computers to offer 
merchandise at the lowest 
price possible. Serveral 
months back we began sell- 
ing RAM Memory Chips for 
the TRS-80 for $45.00 
per set. Someone else sold 
chips for $44.00. We sold 
them for $38.00. They sold 
them for $37.95. So we say 

"AW WHAT THE 

HECK!" Let's see the other 
guys beat this price. 



$22 



PER16KSET 



These chips are brand 
new "41 16's". These 200 
nanosecond chips are 
fully compatible with all 
TRS-80 produces. In- 
structions for insertion 
are included, however 
the dip shunts required 
for converting a 4K 
Model I to a 16K Model 
I are not included at this 
low price. 

^526 



OKIDATE MICROLINE 80 
PRINTER - $479 

The Microline is built on a rugged cast alumi- 
num base to withstand the rigors of continuous 
business use. It is driven by two motors and 
will run all day with no duty cycle limitations. 
Microline printers use a dense 9 x 7 dot pattern 
to produce crisp, clean copies, first copy to last. 
The seven pins in the head are "fired" using 
energy stored in tension members. This tech- 
nology permits the use of short, low mass pins 
made with an extremely hard alloy. The head 
produces less heat, thereby extending its life. ►'524 



• Check It Out! * 
EPSON MX-80FT 

That 's right — MX-80FT. 
The FT on the end means Friction 
and Tractor. The Fantastic MX-80 
Printer is now available in a version 
which will accept letterhead-type 
paper And tractor-type paper. Call 
or write for our (as always) un- 
believable low price. 



This is the Epson MX-70. The lowest priced dot matrix printer you can buy. Now, that in itself 
should make it very attractive to a lot of people. But you ain't heard the half of it. 

To begin with, the MX-70 has a lot more in common with our now-famous MX-80 than just 
the name Like unequalled Epson reliability. And technological breakthroughs like the world s 
first disposable print head. But frankly, the MX-80 packs a lot more power than some people 
need. So Epson built the MX-70 to be a no-frills printer. At a no-frills price. 

But the MX-70 is still a great little printer. They give you 80 CPS unidirectional printing. 
Top-of-form recognition. Programmable line feed and form lengths. Plain paper printing. An 
easy-to-read 5x7 matrix. Self test. And an adjustable tractor feed. > 

That's what you'd expect from a basic little printer. But here's something you wouldn t ex- 
pect: the finest graphics package on the market today. Free. 

They call it GRAFTRAX II. And it means 480 dots across the page, resolution to 60 dots per 
inch, and a graphic image free of the jitter and overlap that plagues other printers. You get 
cleaner grays and finer point resolution. 

So now you've got a choice. You want more power and extra functions, you buy the ma-bu. 
You want a basic little printer that prints, and keeps on printing, you buy the MX-70. They re 
both at American Business Computers. 

Call for unbelievably low price. 
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Epson. 

This printer costs less than $450. 
just how much less we can't tell 
you - But if you will give us a call 
we think you will be pleasantly 
suprised. 




^528 



REVIEW 



What you need to know. 



Choosing a Data Base 



Aids III with Calcs III 
Meta Technologies 
Euclid, OH 
$95 

CCA Data Manager 
Personal Software 
Sunnyvale, CA 
$75 

Maxi Micro Manager 
Exador Inc. 

Adventure International 
Longwood, FL 
$100 

Wynne Keller 
RD1, Box 507 
Solon, ME 04979 



The concept of a data base program can 
be confusing to a computer novice. It is 
a program that holds data, but how, and 
why? How depends on the program, but 
usually disks are used because cassette 
output is too slow. The purpose is up to the 
user. The most typical data base applica- 
tions are mailing lists and inventories. Oth- 
er feasible applications include recording 
and updating data on book or stamp collec- 
tions, tracking financial transactions and 
indexing magazine articles. 

File, record and field are terms that must 
be defined. A file is the total collection of 
data, such as the whole mailing list. A 
record is all the information about an item, 
such as one person's name and address. A 
field is one section of all the records; the zip 
codes, for example. On a page of columnar 
paper, a field may be thought of as a col- 
umn of information and a record as one 
line. The file would be the entire page. 
Obviously there is a limit to how many 
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records can be held in one file. This is par- 
tially determined by the type of data base 
used. There are two types of data base pro- 
grams. 

Meta Technologies' Aids III is a sequen- 
tial data base. Sequential data bases con- 
tain all the records in the computer's mem- 
ory at one time. How many will fit depends 
on the size of the machine and how many 
fields are used. The more fields there are, 
the fewer records will fit. 

A random data base brings the records 
into a computer's memory from a disk one 
at a time. The limit is not machine capacity 
but disk size. Personal Software's CCA Data 
Manager is a random data base in which no 
one file can be larger than a single disk. 

Maxi Micro Manager System (MMS) from 
Exador Inc. is also a random data base. 
However, MMS can span disk drives, allow- 
ing one file to carry over to more than one 
disk. Thus it has the largest capacity of the 
three programs. 

Choosing the Right Program 

Which program to choose, however, de- 
pends on more than size of files. Even if 
your planned application seems to require a 
huge capacity, a little thought could make it 
possible to break the data into smaller, 
more manageable files. An inventory, for 
example, could be divided by department, 
so each department is one file. 

No data base program is perfect for all 
applications. A business may need to buy 
different programs for specific problems. 
The trick is to know the assets of each pro- 
gram, so that the purchase is not guess- 
work. 

The three programs reviewed here are: 

• MTC-Aids III with Calcs III by Meta 
Technologies, Euclid, OH, $95. 

• CCA Data Manager by Personal Soft- 
ware, Sunnyvale, CA, $75. 



• Maxi Micro Manager by Exador, Inc., 
from Adventure International, Longwood, 
FL, $100. 



Documentation 

In respect to documentation, CCA gives 
the best first impression. The format is an 
8-inch-by-10-inch three-ring notebook. The 
pages are heavy quality paper, and able to 
withstand the constant use to which most 
manuals are subjected. The author is metic- 
ulous in covering details for the novice, 
even including sketches of the proper way 
to insert a disk in a drive. 

Messages that appear on the screen are 
numbered to simplify looking them up in the 
manual. For reference, the organization of 
the manual into a "getting started" section 
and a "more about" section is inconven- 
ient. To look up any function requires a ref- 
erence to both sections. Yet, this minor 
point may be offset by the manual's clarity, 
which is an advantage for the novice. 

Unlike CCA, the Aids manual assumes 
the user has some computer knowledge. 
The inexperienced user is referred to the 
DOS manual. The Aids manual does a good 
job of explaining how to use the program 
and includes many examples and flow 
charts. The format is 8 1 /2-inch-by-11-inch, 
spiral-bound. 

The MMS manual is a paperbound book- 
let. There is no index: a serious weakness. 
In general, the manual is stronger on the 
theory of operation than specific details. 
Guesswork and experimentation win in the 
end, but there may be some very confusing 
moments in the meantime. The manual is 
particularly difficult for a beginner. The first 
version had some errors in the instructions 
for merging the disk provided with the 
various operating systems. A new version, 
just completed, has corrected those errors 
and greatly expanded and clarified the in- 
structions for setting up the system. MMS 



TRS-80® EJJJSJS TRS-80 



® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26-1566 Visicalc I $83.00 

26-1567 Visicalc III $83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quaser $36.00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wars $36.00 

26-3059 Backgammon $27.00 

26-3152 Typing Tutor $27.00 
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MODEL II SOFTWARE 



26-4530 Scripsit II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts Receivable. . . . $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-3511 Civil Eng $22.50 

26-3513 Aviation $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Math Drill $13.50 

26-3515 Games $13.50 



ORDER TOLL FREEl-800-8410860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



MICRO MANAGEMENT SVSTEMS, INC. 



No Taxes on Out Of 
State Shipments 



Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. # 4-A 
115 C SECOND AVE. S.W. 
CAIRO, GEORGIA 31728 ^km 
(912) 377-7120 Ga. Phone No. 

TRS-80 ii regi«tercd trademark of the Tandy Corp. 



Thousands of 
Satisfied Customers 



VISA And 
Mastercharge Welcomed 



-See List ol Advertisers on page 322 
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"It takes time [to format disks 

for program use]; go have a cup of coffee, 

or lunch if you have several drives." 



has been on the market only six months. It 
appears the manual was not given enough 
attention initially, but the author is working 
to improve it. 

One thing the MMS manual does cover 
thoroughly is file structure and the new Ba- 
sic words created for the program. Thirty 
pages are spent on this section, which will 
be helpful to any programmer trying to ac- 
cess the files. An additional plus is the in- 
clusion of sample data on the disk which 
helps the user decipher the manual. 

Initializing 

Organizing a data base can be very com- 
plicated, particularly for the novice. It takes 
experience to become adept at choosing 
which fields should be established, whether 
to make them string or numeric and how 
long they must be. The beginner is almost 
certain to make mistakes. It is best to try 
out possible fields on a small scale first. In 
most data base programs, fields cannot be 
changed once they are established and rec- 
ords are entered— except by beginning all 
over. 

Aids is a remarkable exception to this 



rule. It allows old records to be retrieved 
even after a field has been added. Of 
course, some work is necessary to update 
old records. 

Recognizing the difficulty of initializa- 
tion, the CCA manual includes a sample in- 
ventory and address file initialization. It is 
helpful as a starting point, although more 
fields will probably be needed. 

CCA initialization is a choice on the main 
menu and is straightforward. The user en- 
ters each field name, code name, length, 
and type; then the program dimensions the 
file accordingly. Calculation fields are avail- 
able, using add, subtract, multiply, and di- 
vide functions. 

CCA capacity on a single-drive system is 
quite small— unless the program and data 
are kept on separate disks. I had only about 
100 financial transactions on a disk, but it 
was impossible to sort the data due to lack 
of disk space. Removing the program helps 
considerably. Single-drive owners can only 
half-fill a disk if sorting is desired. 

With Aids III the program is initialized by 
editing data lines within the program. This 
is a simple procedure and should present 



IF YOUR PERSONAL COMPUTER WERE STOLEN TODAY. . . 

Would you know the best way to insure its recovery and apprehend the guilty party 7 

We can help' Register your serial numbers with The Registry Service In the event of theft, simply 
notify us by phone or mail We immediately will notify the law enforcement agencies and computer 
dealers in your area and provide them with a list of your serial numbers and a reward offer 

With your registration, you will receive free of charg e the first year's membership in World Associa- 
tion of Computer Owners (Memberships in W A CO are normally S15 00 per year) 

Along with a S12 00 check or money order, please include an itemized list of each piece of equip- 
ment with accompanying serial numbers 
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P O Box 905. Waco. Texas ?6?oj 
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Model 488-80B For Model 1 Operation 




Model 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

+ shipping, insurance & tax 

Optional Relocatable Machine Level GPIB 
Driver for Assembler Level Programming-$35. 

WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES 

11 Neil Drive • Old Bethpage. NY 11804 
Telephone: (516) 694-3205 ^291 

" Trademark ol Tandy Corp. 

There is no affiliation between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack 



no problems even for someone who has 
never edited a Basic program. If any errors 
are made, they are easy to correct: just edit 
the line again. For numeric fields, the num- 
ber of digits to the right and left of the deci- 
mal point may be specified. After modifica- 
tion, the program is saved on a separate 
disk and each time it is run, file layout is 
read from the data lines. Field calculations 
are not available instantly, as in CCA and 
MMS, but may be obtained from running a 
separate program, Calcs III. 

MMS has a unique system which allows 
more than one drive to hold a single file. 
Thus it holds far more records than either 
CCA or Aids. Unlike these two, however, 
MMS limits the length of any one field to 40 
characters. Some fields might exceed this 
limit. If so, they must be broken into smaller 
categories. 

Numeric fields may be rounded to a spe- 
cific number of decimal places. Calculation 
fields may use any valid mathematic ex- 
pression except exponents. A date field 
that allows dates to be sorted by year, 
month and day may be specified. 

Following initialization, the MMS user 
specifies the number of drives and number 
of tracks; then the disks are formatted for 
program use. This takes time; go have a cup 
of coffee, or lunch if you have several 
drives. Like Aids, but unlike CCA, MMS in- 
forms the user how many records will fit 
based on present field definitions— very 
useful information. 



Input 

In overall display effectiveness and user 
interaction techniques, CCA rates the 
lowest; Aids and MMS are about equal and 
much better than CCA. 

CCA screen displays are very poor and of 
a standard which is not acceptable in to- 
day's software. However, this is perhaps 
better understood when one realizes that 
CCA is the oldest of the three programs. It 
was first marketed in 1979, which was a very 
long time ago in the microcomputer world. 
The input screens actually scroll from one 
record to the next, and there is no graphic 
indication of field length as a guide to cor- 
rect entry. If the correct length is exceeded, 
an error message is printed and entry must 
begin again. 

CCA has two field identification names. 
One, the full name, is displayed on screen. 
The other is a user selected abbreviation of 
the full name and is used for all keyboard 
input but is not displayed on screen. The 
idea, of course, is to save time for the typist. 
The difficulty is that the operator may not 
remember the abbreviation. Is the field 
"Code Number" abbreviated as "code," 
"no," or "#"? The program doesn't always 
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"Adding records can be a very tedious 

process, and the CCA method 

only aggravates the situation." 



tell and the memory may not either. One so- 
lution would be to define each abbreviated 
field name as the first three or four charac- 
ters of the full name. 

After a CCA record is added, it is written 
to disk immediately, before the accuracy is 
verified. Thus if a mistake is made, there is a 
delay while the record goes to disk and fur- 
ther time lost by calling it back so the error 
can be corrected. Adding records can be a 
very tedious process, and the CCA method 
only aggravates the situation. 

In contrast, the input screens for MMS 
are nicely designed and functional. Dots in- 
dicate the size of each field and graphic 
blocks show the field being typed. A helpful 
feature is the special clear key function. 
When clear is pressed the contents of the 
display are duplicated from the previous 
record displayed at the bottom of the 
screen. Data base entries are often repeti- 
tive in one or more fields, and this feature 
can save a lot of time. 

If there are more than 10 fields, arrow 
keys are used to page back and forth to 
view the whole record. Another important 
feature allows errors to be corrected before 



the record is saved. Disk access time seems 
to be quicker than CCA. 

The Aids input screen, like MMS, clearly 
shows the length of each field, using graph- 
ic blocks. Input is very flexible. It is not nec- 
essary to finish the record before correcting 
an error. The up and down arrows move the 
cursor to any field for data correction. Since 
Aids is a sequential data base, records are 
not written to disk after each entry. There- 
fore, adding records is a fast process. 

The Aids program is especially easy to 
use because of its consistency. One key re- 
turns the user to menu from any part of the 
program at any time. This makes Aids the 
only one of these programs which allows 
the user to quit easily. CCA allows quitting 
in some portions but the commands vary. 
MMS almost never allows it. 

Aids and MMS are both a little slow dur- 
ing input. Typing must be done at moderate 
pace, with frequent glances at the screen to 
be sure all data is accepted. The flashing 
cursor causes this slow pace. 

CCA, with its more primitive style, allows 
faster typing but is less clear. However fast 
the typing, the job of adding records is slow 



and is certainly not something you would 
want to do twice. Remember: A/ever fail to 
make that backup copy! 

Select 

One of the most important functions of a 
data base is the search. Users want to find 
specific records as quickly as possible. 
Sometimes it is important to find records 
falling within a certain range. Speed as well 
as versatility is important. MMS has the 
most capable search functions, followed 
closely by Aids, with CCA a distant third. 

CCA's only type of search is instring, 
seeking only for equals conditions. The 
operator specifies a group of letters or num- 
bers and the field to search. An exact match 
must be found but not necessarily the first 
letters. If a search for a specific street were 
desired, it would be found even if a street 
number preceeded it. The CCA search is not 
machine code assisted so it is the slowest 
of the three programs. 

Aids searches according to six relational 
choices: equal, not equal, greater than, less 
than, less than or equal and greater than or 
equal. Up to four criteria may be selected, 




Volume I: The most comprehensive 
book yet on the math routines in 
Level II ROM, Models I & III. In- 
cludes a fully commented listing 
from 0708H to 1607H and an in- 
credibly complete map of the ROM 
and reserved areas of RAM. 
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[THE B00K 



-80 tm ROM 




If you ever do Assembly language program- 
ming, or you just want to know more about 
your TRS-80 ROM, "THE BOOK"s are for you. 

•TR&80 is a trademark ol Tandy Corp. 

Each volume is priced at: $14.95 + $1.50 
S&H = $16.45 ($17.05 in VA) Overseas add 
$2.50 for air shipment 

I Insiders Software Consultants, Inc. 
' P.O. Box 2441, Dept. SUM2 
Springfield, VA 22152 

□ Please send me Volume I of THE BOOK 

D Please send me Volume II of THE BOOK 
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NAME 

ADDRESS 
CITY. STATE 




.ZIPCODE 



Check payable to Insiders Software Consultants, Inc. 

MASTER CHARGE MC Bank Code 

VISA Exp. Date Card Number 



Signature 



Dealer Inquiries Invited 



Volume II: Everything you want to 
know about the video, keyboard, 
cassette, and printer driver 
routines. Learn how to write your 
own! Remarkably detailed listings 
illustrate well-commented source 
code. Complement Volume I, now. 
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™TRS80 color 

From Ifie January 1981 issue ol the CSRA Computer 
Club newsletter: 

There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the 
ROM cartridges could not be copied. This 
month's 68 Micrp Journal reported they had 
disassembled the programs on ROM by 
covering some ot the connector pins with 
tape. They promise details next month. Never 
tell a hobbyist something can't be done! This 
magazine seems to be the only source so far 
ot technical informations on the TRS-80 color 
computer'". Devoted to SS-50 6800 and 
6809 machines up to now. 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues 

NOTE: This and other interesting and needed articles 
tor the Radio Shack TRS-80 color computer '" are being 
included monthly in 68 Micro Journal— The Largest 
specialty computer magazine in the world! 

68 MICRO JOURNAL 

MKHnanoad 

HIXSOM. TN 37M3 ^91 

Foreign Orders - Add 

Air Mail*3!>00.Year Suilace 1 <i OO'Year 

1 Year S18S0 2 Y<„,ib J3i>i0 

3 Years-friii SO 

Canada a Mexico Add Jf> 50 Pel rear 

10 USA Suoscriplion Half 



* 



NEW! w. 

'The Wizard's City" M0L 



8K 



A FANTASY ADVENTURE GAME 

Search for gold as a Fighter, Dwarf, Elf, 
Halfling or Magic-User in the dungeons 
beneath the Wizard'sCity or surrounding 
forest. Evil monsters lurk everywhere to 
protect the gold. All in graphics! 
Cassette $ 1 2.95 Disk $ 1 6.95 

Financial Statement 16K $14.95 

Income Tax 8K 19.95 

Income/Deductions File 8K 10.95 

Stock Charting 8K 1 5.95 

Mail List Labler 32K disk only 22.95 

Add $4 for disk except Mail List 

Add $1.50 shipping & handling 

All programs for TRS-80 Mod. 1 Lev. 2 

BAP$ Software 

6221 Richmond, Suite 220 
Houston, Texas 713/783-3433 

TRS-80 Is a rag. trademark ol the Tandy Corp. 
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"Aids finds records so quickly 

there is no need for record numbers. " 



and the record must meet them all. In other 
words, the selection is by a logical AND 
function, not a logical OR. After the search 
relationships are chosen, the computer can 
count how many records meet the criteria 
before proceeding. The Aids III menu 
choices include search with almost all func- 
tions. However, if the search function is not 
desired, it can be bypassed with the shift/ 
down arrow. This indicates all records are 
to be handled. 

The Aids III search is done by machine 
language and is very fast. Keep in mind that 
Aids has the fastest search partially 
because records are in memory. If you 
count the time needed to load all those 
records, Aids is the slowest program. 

MMS searches by five criteria: equal, not 
equal, less than, greater than and instring. 
As in Aids, a logical AND is assumed be- 
tween fields. But within a field, it is possible 
to request a logical OR. For example, a 
search could be made of the name field for 
carrots OR beets. If either one is found AND 
the price field datum is less than $1, that 
record can be selected. 

MMS also has a speed search for use on 
sorted fields only, which seeks an exact 
match beginning at the leftmost character. 
MMS assumes a lowercase capability and 
will probably be most often operated in this 
mode. Copy the upper/lower case letters ex- 
actly as entered or no match will be found in 
any search operation. 

MMS is the only one of these programs 
with masked search capability. It can be 
told to ignore certain characters during its 
search and seek a match only at a speci- 
fied section of the field. For example, a 
search could specify that the two right- 
most characters must equal RS. Unlike in- 
string searches, which would return the 
first occurrence of RS in the field, the 
masked search only returns a match if the 
RS occurs where the operator specified. 
The masked search will not work on numer- 
ic fields; a situation the manual fails to em- 
phasize. 

Update 

MMS and Aids assume the operator 
won't always know the record number when 
he requests an update. They provide the 
search function as a subcommand for any 
update. Aids finds records so quickly there 
is no need for record numbers. MMS re- 
quests a number if it is known simply to 
save operator time. Both these programs 
provide nice screens for updates with field 
length indicators. MMS requests the num- 
ber of the field to change. Aids uses arrow 
keys to move the cursor to the desired spot 
(a little slow if the field you want to change 
is near the end). Aids uses shift/up or down 



arrow to page forward or back to the next 
record in the search. MMS allows paging 
back or forward to the next record in the file, 
rather than the next record in the search. 
CCA again suffers from sloppy screen 
display in this mode. The request for editing 
a record requires a record number. If you 
don't know it, you must search for it first. 
Search is not a choice after an edit is re- 
quested. When the selected record is dis- 
played, CCA prompts, "Is this the record?," 
to which the user, incredibly, must reply 
either yes or no typed in full. A simply Y or N 
defaults to menu and the search must be 
started over. 

Sort 

A sort routine should handle more than 
one field at a time. This is vital for some 
uses. For example, it may be necessary to 
sort an inventory by vendor, then by item 
number. Similarly, address files may need 
to be sorted by zip code, then alphabetically 
within each zip. If a data base cannot sort at 
least two fields at once it is, in my opinion, 
seriously flawed. (The data base Profile, 
sold by Radio Shack, was omitted from this 
article largely because it can sort only one 
field at a time. It cannot perform calcula- 
tions either.) Although MMS also sorts on 
only one field at a time, it is possible to cir- 
cumvent the problem by specifying a range 
of records to be sorted, and a multi-field 
sort is to be available at a later date. 

The CCA sort can easily handle multiple 
fields. This feature alone may make it the 
best data base to choose. There are some 
drawbacks, however. One is that the sort is 
the slowest of the three programs: It is en- 
tirely in Basic. Another is the disk space 
limitation. Sorting creates another full file 
of the data, as well as a working file. For 
this reason, a disk must be less than half 
full of data before the sort is attempted, on 
a one disk system. Multi-disk system users 
can route the sorted file to another drive by 
specifying a drive number after the sort file 
name. Failure to specify a drive sends the 
file to drive zero, and a disk-full error occurs. 
Then you must start the sort over. 

The Aids program has the fastest sort: It 
is in machine language, and all the records 
are in memory. Like CCA, Aids can sort 
more than one field at a time. It cannot sort 
within a stated range but since printouts 
are available on a range basis, this feature 
is not vital. 

The MMS program sorts only one field at 
a time. The only solution is to sort the most 
important field, for example, zip codes. 
When that sort is complete, note the record 
numbers for major zip code divisions. Ask 
tor an alphabetic sort of the last name field, 
and answer the Range question with the 
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THIS IS DIGITALKER 
OUT 127,0 



1 


1 






This is all it takes to say this or 143 other expressions with MICRO- 
MOUTH*. Absolutely no software drivers or subroutines to load. 
MICROMOUTH* , the latest Circuit Cellar project can be used as an 
emergency annunciator, as an aid for the handicapped, for process 
control and automatic monitoring, and to add new dimensions to 
computer games. 

Sample phrases that can be programmed are: 

"THE TIME IS 4 HOURS 23 MINUTES . . .(BEEP)" 

"NUMBER 4 IS 3.47 VOLTS" 

"THE SPEED IS 100 METERS A SECOND . . SLOW DOWN" 

Thousands of expressions can be added by changing the ROM chips. 

MICROMOUTH* is plug compatible with APPLE II and TRS-80* com- 
puters. Directions are included for S100, H8 and parallel 

port Operation . 'DIGITALKER ps a trademark of National Semiconductor Corp 



Complete Kit (Model I) $150.00 
Assembled end tested: 

Apple II $150.00 

TRS-80 Model I w/power supply, esse, 

cable $175.00 

TRS-80 Model III $200.00 

•MICROMOUTH is a trademark ot Micromint Inc 

The MicroMint Inc. ^310 
917 Midway 
Woodmere, NY 11598 
Oealer inquiries 
invited. 



To order call: 

1800645-3479 

In N.Y.516 3746793 




**#^ 

C^/gT^ If You've Written an 
v^Ji** Outstanding Program- 

We'd Like to Publish It! 
We're looking for EDUCATION 
Programs: 

SPECIAL EDUCATION/AID 

TO THE HANDICAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit today! 

INSTANT SOFTWARE. INC. ^2 

Submissions Dept. 

Peterborough. NH 03458 



INTERNAL MEMORY™ 

48K NOW AVAILABLE! 




TRS-80 
MODEL I 
LEVEL II 



Memory expansion need not be expensive or dilllcult INTERNAL 
MEMORY" boards expand RAM capacity to 32K|IM I) or 48K|IM 
2— INSIDE the keyboard unit with no soldering, cutting or other 
modifications. (Remove TRS-80" RAM chip & plug IM into RAM 
sockets.) NO "piggyback" chips: NO heat, noise or power 
problems! Compatible with high-speed tape systems, peripherals 
and hardware modifications (describe what you have). Assembled 
& tested, one year guarantee, postpaid UPS in Com US SEND 
SJI.S.E. FOR QUICK INFORMATION 
PRICES: 

IM-1(32K) $52.50 (less RAM) 

IM-2I48K] $7950 (less RAM) 

4116-3|200ns)RAM $26.00 per set of 8 (16K) 



.•//a. 



v/tt:i dttfiutt'i'J'utfi 

6246 West 3705 South 
Salt Lake City. UT 84120 

(801)967-2324 
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TOME 43J^\J>/J 1>C $4XU J*££ 

The lowest price 

Epson MX 80 FT $599 

Epson MX 80 $469 

Okidata Microline 83 $949 

Model III drives and controllers 

16K RAM NEC ZOO as Prime $19 set ot 8 

We will supply any computer, software, or 
peripheral or related product at the lowest 
possible price. Call 24 hours a day. 7 days a 
week or drop us a line. We will meet or beat 
anyone's price. 

We Appreciate Your Business! 

TOOlf £J^>iJJ£ S*WJIJ*£lE 

April Lorenzen 

Route Two, Box Forty-Four 
Canton, Kansas 67428 
(316) 628-4935 
Quantity discounts available W2 



5,000,000/10,000,000 BYTES 

SERIES III H from Micro-Mainframe. Hard disk drive(s) in a Model III ($7,995), or add to your Model I /III ($3,795). 

SERIES III F. Model III with a controller board (available separately) and operating system which allows you to start 
with or move up to, dual-headed or eight-inch floppys. 

GL80 — $150 — Radio Shack General Ledger 1.1 with over 30 added features: A general ledger, classified balance sheet, 
check register and option to use an "automatic" account number or re-do an entry or document. 

AR80 — $200 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts such as 
installment contracts. 

GL/M1 — $50 — Modifications to convert Radio Shack General Ledger 1.1 to GL80. 

AR/M1 — $50 — Modifications to convert Radio Shack Accounts Receivable 1.2 to AR80. 

GL/M1 and AR/M1 are supplied as program lines which must be MERGED into the original programs, or, send a disk 
copy of the original programs for installation at no additional charge. Documentation (apply to purchase) — $5. 

FT0EM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 
NEWD0S/80 - $135 LDOS - $135 EPSON MX-70/80/FT - SCall 



AT-80 3827 Dismount Dallas, Texas 75211 (214)339-0498 



• 445 



sSee List o/ Advertisers on page 322 
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"The [MMS] manual is extremely vague . . . 

[but] if one can figure it out, the reward 

is an incredibly sophisticated printing system. 



record numbers of one zip code division. 
The names within that zip code will emerge 
in sorted order. This is feasible if only a few 
sorts are needed. Otherwise, it takes too 
much time. 

While sorting, MMS is much more effi- 
cient with disk space than CCA. The rec- 
ords themselves are not sorted; a key file is 
created which stores the record numbers in 
the proper order. The number of key files is 
specified during initialization. If the file will 
be sorted by item name and by item num- 
ber, then two key files should be created. 
The results of each sort go into each key 
file. There is no problem with records sud- 
denly becoming too large for the disk when 
sorting is attempted. This is a machine lan- 
guage sort, but reading the records from the 
disk is time consuming. Operators of one- 
drive systems must exchange the program 
disk and the data disk four times per key 
sort. 

Print 

It is axiomatic that the more sophisticat- 
ed the printout, the more complicated it will 
be to create. Producing a report with any of 



these programs takes some diligent study 
of the manual. It is extremely helpful to 
have a shortcut for simple listings, such as 
item names. Aids provides this feature, 
MMS has a screen print, and CCA has 
nothing. 

The quick printout for Aids goes to 
screen if the printer is shut off. As in all Aids 
commands, any range of records may be se- 
lected. User-selected fields are printed 
across the page. 

For a full report, the Aids package in- 
cludes a separate program, called Maps. 
After print criteria are chosen, the file to be 
printed must be reloaded. A document title 
may be specified. Field names are used for 
column headings. Column totals and subto- 
tals are possible via the Calcs program (dis- 
cussed under Calculations). The Aids print- 
out is the simplest of the three programs to 
operate. 

In CCA, there is no on-screen help for us- 
ing the print function. You must refer to the 
manual and type in a long list of param- 
eters. Usually you must start over when an 
error is made. Considering how many lines 
are required to define a print file, this is a 



real annoyance. Once correct, print file 
specifications can be saved on disk. 

One complication to printing a CCA file is 
that a sorted file cannot be used until it is 
renamed— by exiting the program and us- 
ing DOS. If a printout of a new sort is de- 
sired, both the new file and the original file 
must be specified. The print file cannot be 
saved after the sorted file is renamed. 
CCA's printout section seems unnecessari- 
ly difficult to use. 

CCA printouts may be complicated to 
generate, but MMS is even worse. The man- 
ual is extremely vague at crucial points. 
Nonetheless, if one can figure it out, the re- 
ward is an incredibly sophisticated printing 
system which will merge database files 
with ASCII files (such as those generated by 
Scripsit or Electric Pencil). It is even possi- 
ble to print documents with pauses for in- 
put from the keyboard. And it overcomes 
Scripsit's inability to handle form letters. 
Also, any document (monthly statements, 
for example) can be designed with a word 
processor and printed for specified data 
base files which meet selection criteria. 
The MMS data base can then be used for 



ADD DISK DRIVES TOYOUR 
MODEL III AND MODEL I 





$599 

(includes Disk Drive) 



Fully compatible with Radio Shack's operating system 
TRSDOS. 

• One, two, three, four drive configurations. 

• 40 track and 80 track available 

• 90 day warranty, 100% parts and labor 

• Extended warranty available 

Complete upgrade includes one mini-disk drive, power 
supply, controller, and mounting hardware. IMMEDIATE 
DELIVERY. 





OUR 


RADIO 






PRICE 


SHACK 


SAVINGS 


Complete one drive kit 


$599. 


$849. 


29% 


Additional internal drive 


265. 


399. 


34% 


External drive 


299. 


499. 


32% 


80 track drive 


add 120. 


sa N/A 




16K memory 








(required to use drives 


49. 


119. 


59% 


Model III 32K w/VR Data 








two drive assembly 


1812. 


2380. 


24% 


RS232 Adapter Board 


75. 


99. 


25% 




$299 



* 



We've broken through the three hundred dollar barrier. 

• Fully compatible with TRSDOS'" 

• Fully compatible with RS Drives 

• Easy plug-in installation 

• Rigid extender board 

• 90 day warranty — 100% parts and labor 

• Extended warranty available — $45/year 

• Choice of Tandon or MPI drives 

• Includes power supply, enclosure, single sided — 
40tk drive and EXTENDER BOARD 

1 sided 80tk- $419 2sided40tk-$419 
2 sided 80tk - $549 

1599.00 
$750.00 

$485.00 

Lexicon Modem $135.00 

PRICES SUBJECT TO CHANGE WITHOUT NOTICE V 

PUBLISHED PRICE REFLECTS CASH DISCOUNT DEALERSHIPS AVAILABLE 
VR Dala. a manufacturer ol innovative computer products, is known worldwide 
lor quality dependability and prompt, personal service since 1972 



Starwriter25(P) 
Centronics 739 

MX80 





5BJa 



WE DISCOUNT RADIO SHACK & OTHER COMPUTER PRODUCTS 

To order call toll free (800) 345-8102, or (215) 461-5300 in PA. \_rt_/ v_i> l s v_-»w ^^vcorp 

VR Data Corporation • 777 Henderson Boulevard • Folcroft, PA 19032 
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"You won't need to hire a programmer 

to write access programs, although 

you may need one to understand MMS!" 



many business applications. You won't 
need to hire a programmer to write access 
programs, although you may need one to 
understand MMS! 

Calculate 

All three programs have the ability to cal- 
culate new fields based on the entries in 
other fields. This is a very useful function. 
Standard markups, sales tax and dis- 
counts can be calculated by the computer 
automatically. MMS has the most sophisti- 
cated calculation abilities. If your needs go 
beyond the four basic mathematical func- 
tions, it could be your best choice. 

In CCA and MMS, the calculation fields 
are defined during initialization. As records 
are added in MMS, the calculated fields are 
skipped until all fields are entered. Then 
computations are displayed. In CCA, calcu- 
lations are not visible at the time the record 
is added. In Aids, the calculations are done 
by a separate program and are not as easi- 
ly accessible. Also Aids has only two fields 
for calculated fields, but there is a "balance 
forward" field in addition to these. The Aids 
program is really geared to producing cal- 



culation for a printout, whereas MMS and 
CCA produce calculations at any time. 

Special Features 

There are a few features of these pro- 
grams which deserve special mention. For 
instance, MMS has a built-in driver for low- 
ercase. There is also the ability to output to 
RS232-C and TRS-232 printer interfaces, 
which eliminates the need to load special 
software first. 

CCA allows permanent fields to be speci- 
fied and the data in them can never be 
changed. It allows recovery of deleted 
records until the file is compacted. 

The method Aids uses to combine files is 
one of its most important special feature. 
Flies larger than machine capacity (about 
200 records in 48K) should be divided at a 
logical point. Perhaps half the alphabet will 
be file A, and the other half file Z. To add a 
record, determine in which file it belongs, 
load that file and add the record. 

If the A file becomes too large, divide it. 
Use Select and Save to put records from A 
to B on disk as a new file AB. The rest can be 
selectively saved as new file C. 



Since records can be added to the end of 
a new file, it is possible to sort a file which 
exceeds machine capacity by loading it a 
little at a time, sorting each segment and 
chaining them to a new disk file. 

Summary 

Choosing the right data base depends on 
the application. For any use involving rela- 
tively few records, Aids is my preference be- 
cause of speed and ease of use. 

For larger applications, the choice be- 
tween CCA and MMS is more difficult. 
There are important differences between 
MMS and CCA which the buyer needs to 
consider. 

CCA would benefit from some moderni- 
zation. But if the operator is inexperienced 
and multiple sorts are needed, the ease of 
running printouts and its clear documenta- 
tion would make it a good choice. 

If handshaking with a word processor is 
needed for form letters, if calculations of 
more complexity than + - * / are needed 
or if files are longer than one-disk capacity, 
MMS would be the choice. MMS is clearly 
the more sophisticated program overall. ■ 
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INTRODUCING THE FIRST PASCAL COMPILER 
FOR TRS-80* MODEL I AND MODEL 






• FAST ONE PASS RECURSIVE DESCENT DESIGN 

• CONFORMS TO ISO DP 7185.1 

• SYNTAX ERROR CHECKING 

• ACCESS TO TRS-80 GRAPHICS AND RANDOM NUMBER GENERATOR 

• COMPLETE DOCUMENTATION 

SEND CHECK OR MONEY ORDER - 6% SALES TAX FOR CALIF ORDERS 









*TRS-80 IS A TRADEMARK OF TANDY CORP. 
**MINIMUM 32-K AND SINGLE DISK DRIVE 



ONACKI SYSTEMS 

5161 COLE ST. 

SAN DIEGO, CA 921 17 




-See List ol Advertisers on page 322 
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TECHNIQUE 



Space saving techniques. 



RAM Squeeze 



John D. Adams 
13126 Tripoli Ave. 
Sylmar, CA 91342 



I learned to program in 4K of RAM. At that 
time just buying a computer had inflicted 
severe trauma on my budget and there was 
no way I could put out another third of the 
computer's price for 12K more of memory. I 
remember vividly the frustration of trying to 
squeeze my developing programming ef- 
forts into that space. Like many other trying 
experiences, some good came of it. It taught 
me to out-Scrooge Scrooge in penny-pinch- 
ing RAM space. 

The price of memory has come down con- 
siderably, but the jump from 16K upwards is 
still tough because the expansion interface 
is now necessary. 

Actually, 16K allows considerable pro- 
gramming latitude. Sooner or later we are 
all going to write a program that leaves us 
tight for RAM. By being frugal I have shoe- 
horned in some programs that I thought 
would never fit. The following suggestions 
may help you. Please understand they are 
given with absolutely no regard for the 
"beauty" or "elegance" of programming 
style. They are nitty-gritty last resorts for 
getting a size 10 foot into a size nine shoe. 

Line Density 

Listings 1 and 2 are routines that draw a 
border around your monitor. Listing 1 re- 
quires 219 bytes of storage, while Listing 2 
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needs only 99, a savings of over half the 
storage space. To get this kind of economy, 
here are some of the things we can do. 

1. Write multiple statement lines. Each 
program line we write uses five bytes in 
"overhead," two for the line number, two for 
the pointer and one for a carriage return. 
Level II allows us to put more than one step 
on a single line by inserting a colon be- 
tween them. Listing 2 reduces the number 
of lines by 16 saving 80 bytes in one fell 
swoop. Since 255 characters can be entered 
in any line, we can get a lot of instruction on 
that single line. 

Granted, Listing 2 is not as pretty or as 
easy to read as Listing 1 . When push comes 
to shove in a program, elegance is expend- 
able. Pack those lines good and tight. 

When using multiple statement lines be 
careful using the If... Then statements. 
Should such a test fail, execution proceeds 
to the next line and not the next statement. 
Using the Else instruction can get around 
this problem. An example follows: 



XXX IF B = C THEN 500 ELSE ZZ = 0:STATEMENT: 
STATEMENT 



10 


CLS 






20 


Y = 






30 


FOR X = 1 TO 


127 




40 


SET (X,Y) 






50 


NEXT X 






60 


X = 127 






70 


FOR Y = 1 TO 


47 




80 


SET (X,Y) 






90 


NEXT Y 






100 


Y = 47 






110 


FOR X = 127 


TO 


STEP -1 


120 


SET (X,Y) 






130 


NEXT X 






140 


X = 






150 


FOR Y = 47 TO 


STEP -1 


160 


SET (X,Y) 






170 


NEXT Y 






160 


GOTO 180 








Program Listing 


1. 



ZZ is a dummy, it is not used in the program. 
If the test fails, it allows the remaining 
statements on the line to be read. 

2. Eliminate spaces. The computer sees 
FORX = 1TO10, SET(X.Y) and GOTO20 ex- 
actly as it does FOR X = 1 TO 10, SET(X.Y) 
and GOTO 20. Long lines may have 20 or so 
spaces that can be saved. 

3. Eliminate unnecessary lines. Note that 
line 20 in Listing 1 is gone in Listing 2. All 
variables are set to zero at Run, so it is not 
needed. Look for such lines and weed them 
out. 

4. Omit variable names after Next. Level II 
does not usually require a variable name 
after Next as did Level I. This is true even in 
nested loops. Each variable you eliminate 
saves byte space. 

5. Write lines economically. Look at lines 
110 and 150 in Listing 1 and compare them 
with their counterparts in Listing 2. We have 
saved the space used by "STEP-1" in both 
cases. While the operation is perhaps not 
quite as aesthetic, the job gets done. De- 
sign lines to do maximum work with mini- 
mum coding. 

Clearing String Space 

The 80 stores string data from the top of 
memory (less reserved space) downwards. 
The stack is built below this area. The com- 
puter must know where to start the stack so 
that string data does not write over it. On 
power-up, 50 bytes are set aside for strings. 
If you need more, you must reserve it with 
the Clear nnn instruction. If you need less 
than 50 (or none at all), this space can be 
used. After loading KBFIX the Print Memory 
query returns 15515. After running the line 
10 CLEAR the same query returns 15557. 
We have reclaimed 42 bytes. When RAM 
gets short be miserly with string space, 
even if it means counting string characters 
by hand. 



"When push comes to shove in 

a program, elegance is expendable. 

Pack those lines good and tight." 



Dimensioning Arrays 

Don't over-dimension arrays. We usually 
know how many elements are going into 
one and it should be set at that exact num- 
ber. Once it is dimensioned, that space is 
lost whether we use it or not. Zero can be 
used as a subscript. As an example, as- 
sume that we want to store 15 elements in 
an array. We can run the line 10 DIM A(15) 
that allows us to store the elements in A(1) 
through A(15) and uses 84 bytes. If, instead, 
we run the line 10 DIM A(14), the elements 
can be stored in A(0) through A(14) and only 
80 bytes are required. 

The more dimensions an array has the 
more overhead we incur. Here are some 
representative numbers: 



Running 10 DIM A(250) uses 1025 bytes 
Running 10 DIM A(10,25) uses 1169 bytes 
Running 10 DIM A(5.5,10) uses 1612 bytes 

Even though each of these arrays will hold 
250 elements, the third line uses almost 600 
bytes more than the first. Keep arrays sim- 
ple. 

Consider number precision when design- 
ing arrays. Use a type declaration symbol if 
only integers are going into the array. Look 
at these numbers: 



Running 10 DIM A%(250) uses 524 bytes 
Running 10 DIM A%(10,25) uses 598 bytes 
Running 10 DIM A%(5,5,10) uses 821 bytes 

Again each array holds 250 elements, but 
compare these figures with those given 
above. 

REM Statements 

Remarks help us to understand and oper- 
ate complex programs, but they use up a lot 
of room. We can have our cake and eat it 
too. Programs will often fit into memory but 
leave insufficient room for storing operat- 
ing data. Such programs may contain re- 
mark lines. The following is an example. 



10 REM • THIS IS A PROGRAM TO COUNT TO 100 BY 
USING A FOR-NEXT LOOP. 

20 REM • EACH TIME THE LOOP CYCLES X IS IN- 
CREMENTED BY 1 AND THAT 

30 REM * VALUE IS PRINTED. THIS CONTINUES UN- 
TIL THE VALUE OF X 

40 REM * HAS REACHED 100 AT WHICH TIME THE 
LOOP IS EXITED AND 

50 REM * THE PROGRAM TERMINATES. 

100 FOR X = TO 100 

110 PRINT X; 

120 NEXT 

As written, the routine takes 305 bytes. It 
can be CSAVEd intact. When it is CLOAD- 
ed, the REM statements can be inspected 



by listing either to the monitor or the printer. 
Before running the program (while still in 
command mode) enter Delete 10-50. The 
byte expense is now 31 and we have picked 
up 274 bytes for data. Grouping the REM 
statements together makes them easier to 
LLIST or Delete. 

Number Precision 

The 80 stores integers from - 32768 to 
+ 32767 in two bytes, whereas it takes four 
for single precision numbers and eight for 
double precision. Use as little precision as 
you need. Take advantage of the DEFINT in- 
struction. Should the location A contain an 
integer and appear 25 times during the 
course of a program it saves space to use 
the line "10 DEFINT A" at the beginning of 
the program, rather than to use the % sym- 
bol 25 times. If (For... Next) loop count- 
ers are to run as integers, define them as 



such, and this will cut their storage space in 
half. 

Use Subroutines 

Write any operation that has to be repeat- 
ed frequently as a subroutine, after which it 
can be called from any location in the pro- 
gram with automatic return. Should the 
subroutine always be called from the same 
location, a GOTO is more economical as it 
carries no byte overhead. A GOSUB re- 
quires six bytes. If, for instance, a subrou- 
tine at 500 is always called from line 100, 
line 100 could contain GOTO 500 and use 
the instruction GOT0 1 10 at the subroutine's 
termination. 

"Shortcut" Instructions 

Some of Level ll's instructions are really 
routines that do a great amount of work 
without hogging RAM space. DEFINT has 



10 CLS:F0RX=1T0127:SET(X,Y) :NEXT:X=127 : F0RY=1T047 :SET(X,Y) :NEXT: 
Y=47:FORX=0TO127:SET(X,Y) :NEXT:X=0:FORY=0TO47 :SET(X ,Y) :NEXT 
20 GOTO20 

Program Listing 2. 



10 INPUT-ENTER ANY 


RATIONAL NUMBER BETWEEN AND 12";X 


20 GOSUB 500 








30 CLS 


PRINT"LETTER GRADE 


FOR";X;"IS 


*;G$:GOTO 10 


500 


IF 


X> 


■11.5 THEN G$="A+": RETURN 




510 


IF 


x> 


=10.5 THEN G$="A": RETURN 




520 


IF 


x> 


=9.5 THEN 


G$="A-": RETURN 




530 


IF 


x> 


=8.5 THEN 


G$="B+": RETURN 




540 


IF 


x> 


=7.5 THEN 


G$="B" 


RETURN 




550 


IF 


x> 


=6.5 THEN 


G$="B-":RETURN 




560 


IF 


x> 


=5.5 THE G$="C+" 


RETURN 




570 


IF 


x> 


=4.5 THEN 


G$="C" 


RETURN 




580 


IF 


X>=3.5 THEN 


G$="C-": RETURN 




590 


IF 


X> 


=2.5 THEN 


G$="D+": RETURN 




600 


IF 


X> 


=1.5 THEN 


G$="D" 


RETURN 




610 


IF 


x> 


=.5 THEN G$="D-" 


RETURN 




620 


G$ 


= "F 


: RETURN 
















Program Listing 3. 





10 INPUT" ENTER ANY RATIONAL NUMBER BETWEEN AND 12" ;X 

20 ON INT(X+1.5) GOSUB 500,510,520,530,540,550,560,570,580,590,6 

00,610,620 

30 CLS: PRINT "LETTER GRADE FOR";X;"IS ";G$:GOTO 10 

500 G$="F":RETURN 

510 G$="D-": RETURN 

520 G$="D":RETURN 

530 G$="D+": RETURN 

540 G$="C-": RETURN 

550 G$="C": RETURN 

560 G$="C+":RETURN 

570 G$="B-": RETURN 

580 G$="B":RETURN 

590 G$="B+": RETURN 

600 G $=" A- ": RETURN 

610 G$="A": RETURN 

620 G$="A+":RETURN 

Program Listing 4. 
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FREE 
48-Page 
Catalog 



A new, free 48-page catalog is free 
from Creative Computing and Periph- 
erals Plus. To help buyers make intelli- 
gent purchasing decisions, the product 
descriptions are exceptionally compre- 
hensive and include screen photos in the 
software section. 

The catalog describes 20 books on pro- 
gramming, games, and educational appli- 
cations; 160 software packages for 
Apple, Atari, TRS-80. PET, CP/M, Tl, Sor- 
cerer and Sol computers; 3 magazines 
(Creative Computing, Microsystems, and 
SYNC); 5 graphics and music peripherals; 
an LP record; board game; 8 T-shirts and 
an eclectic assortment of other products 
for the personal computer user. 

To get your free copy, simply drop a 
card or note to the address below. 



creative computing 

Attn: Becky 
39 East Hanover Avenue 
Morris Plains, NJ 07960 ^512 




RS-232 Printer Driver 
Versatility 

Ws have a versatile ana flexible RS-232 printer 
driver that can be set up tor a variety of printers 
it uses the IPS 80* RS-232 C boara After load- 
ing you HIST ana LPRINT statements will work in 
the normal manner 

Many parameters ana options are available 

Driver Parameters 

• Form length Number of lines per form (typi- 
cally 66) 

• p age size Number of printed lines per page 

• Number of characters per line (carnage 
width) 

• Number of nulls to insert after a carnage 
return 

• Number of nulls to insert after a form feed 

Driver Options 

• Top-of-torm select (Form-feed or multiple line 
feeds) 

• Long line disposition (truncate or fold) 

• Use naraware handshake (yes/no) 

• Process X-ON/X-OFF handshake (yes/no) 

• insert a line feed (L/F) after a carriage return 
(C/R) (yes/no) 

• Convert lower case characters to upper case 
characters (yes/no) 

FYice (35.00 - includes cassette ana manix* 

Contact: Micro Systems Software 

3235 Kifer Road Suite 32 * 49 3 

Santa Clara. California 95051 
(408)735-1650 

"TRS-80 is a registered trademark of the Tandy Corp 



"// all of this editing does not 

appeal to you, there is yet another solution." 



already been mentioned. Two others are the 
ON X GOTO and ON X GOSUB statements. 
They are particularly economical in menu- 
driven programs. Check the two routines 
given below. 



10 REM • ROUTINE #1 

20 CLS:PRINT"1. ENTER AMOUNT" 

30 PRINT"2. ADD AN AMOUNT" 

40 PRINT"3. PRINT TOTALS" 

50 INPUT'ENTER YOUR CHOICE";X:IF X = 1 THEN 300 

60 IF X = 2 THEN 400 

70 IF X =3 THEN 500 

10 REM ' ROUTINE #2 
20 CLS:PRINT"1. ENTER AMOUNT" 
30 PRINT"2. ADD AN AMOUNT" 
40 PRINT"3. PRINT TOTALS" 
50 INPUT'ENTER YOUR CHOICE";X:ON X GOTO 
300,400,500 



Both routines do the same thing, but the 
second stores in 26 bytes less. These in- 
structions are also useful when values are 
assigned on the basis of another variable's 
value. I use a grading program that contains 
a subroutine to convert number grade aver- 
ages to letter grades. It is based on A + be- 
ing equal to 12, A to 11, A- to 10, B+ to 9, 
etc. Listing 3 shows the original routine. 
Listing 4 is the revision I made when I ran 



— DISCOUNT PRICES 

SCOTCH DISKETTES 

Soft Sector - Single Density - 5% inch 

32% less abrasive than the industry average. 

Soft box of 10 $27.95 

Storage box of 10 $28.95 

3M Disk Drive Cleaning Kit (5 V. inch) $22.95 
Shipping & insurance for each box/kit $1.00 

TRS-80 SOFTWARE 

Designed/tested with TRSDOS & NEWDOS + 
Requires 16 K and one disk drive unless noted. 
Software prices incl. shipping & insurance. 
Directory Librarian with diskette order $9.00' 
Reads directories of up to 99 diskettes. Main- 
tains a master library of names and free grans. 
Fast sorts. Supports printer Req's 48K 
Typing Teacher with diskette order $4.00* 

Teaches touch typing. Letter, word, and para- 
graph exercises Monitors typing speed. 
Math Drills with diskette order $2.00' 

Prints personalized practice worksheets for 5 
types of math problems. Ages 5-9. Req's MX80. 
Game Pack #1 with diskette order $2.00' 

Exciting arcade games - Duel. Race & Maze 
All four programs with diskette order $14.00' 
'without diskette order - add $5.00 lor 1 or more 
programs 

EPSON MX80 PRINTER 

80 chars/sec ■ 9x9 matrix ■ letter quality 
Epson provides 90-day warranty for MX80 

• Regular tractor model W/TRS80 cable $509.00 

• Friction/Tractor model W/TRS80 cable $604 00 
- Shippings insurance $10.00 
PAPER & LABELS 

Special proposal quality paper ■ pin fed 
Pure white 20 lb. bond with watermark 

■ Box of 2300 sheets -9 '/a x 11 inch $37.00 

■ Shipping & insurance for each box $9.00 
Pressure Sensitive Labels 

• Box of 5000 labels -3'/ix "/„ inch $19.00 

■ Shipping & insurance for each box $4.00 

SUPER SPECIAL PACKAGE 
Everything in this advertisement! 

Diskettes (1 box), cleaning kit. MX80 (w/cable- 
add $95 for MX80FT). all software, proposal pap- 
er & labels (1 box ea). Includes shipping $639 00 

3HE 99 Visa and Mastercard accepted 
Michigan residents add sales tax. 

THE COMPUTER ANSWER ^471 
P.O. Box 573 T 
Birmingham, Michigan 48009 
• • (31 3) 642-4338 (Order Phone* 24 hours/day) _ 



out of RAM. It does the same job and saves 
76 bytes in the process. 

Parentheses 

Parentheses are invaluable for evaluat- 
ing expressions in a specific order, but also 
take up byte space. Each level takes four 
bytes plus 12 more for each temporary 
value. Too often we tend to use parentheses 
to accomplish something that would be 
done by the order of operations. The alge- 
braic hierarchy that the 80 follows is listed 
on page 1/6 of your manual. There is no 
point to writing 10 E= (((At2)*B)/C) + D 
when the line would be evaluated in the indi- 
cated order with no parentheses. Familiar- 
ize yourself with the order of operations and 
design expressions so that they take advan- 
tage of the computer's logic. 

The suggestions made above can be ef- 
fective if used while the program is being 
written. But let's say you have completed 
that pet project and spent hours typing it in- 
to your computer. You have 10 or 12 lines 
left and the RAM poops out. By doing a little 
surgery you may be able to fit the rest of the 
program into RAM. 

Get some idea of how much space you 
will need to finish. Count five bytes per line 
and one for each character in the line. Re- 
member to allow for instructions such as 
For. . . Next loops, arrays and GOSUBs that 
carry overhead. Now look for areas in which 
large savings can be made. A printed listing 
helps by letting you see the entire program. 
Delete REM statements that are not abso- 
lutely necessary. Check array dimensions 
and precison. Inserting a % after the array 
name could save hundreds of bytes. Look 
for areas where several short lines occur 
consecutively and combine them into one 
line. Apportion string space sparingly. 
Throw out lines that are really not neces- 
sary. Look for expressions which can be 
shortened. Start deleting spaces until you 
gain enough space to finish. If you keep at it 
diligently, you can pick up the space you 
need. 

If all of this editing does not appeal to 
you, there is yet another solution. Several 
software utilities that reduce programs are 
now on the market. (You will probably have 
to delete some lines to get the program and 
the utility into the computer.) The program 
is then dumped to tape or disk. After clear- 
ing the RAM, the utility is loaded and then 
the program. Running the program then 
puts the utility into motion. These utilities 
can reclaim an impressive amount of 
space, but they do have their idiosyncra- 
cies, so follow instructions carefully. After 
its reduction, the program can be dumped 
again, the RAM cleared of the utility, the 
program reloaded and the additional space 
utilized.! 
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HAVE WE GOT 





YOU IN '81 &'82 

Attend the biggest public computer shows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 

You'll see computers costing $150 to $250,000 including 
and micro computers, software, graphics, data and word 
essing equipment, telecommunications, office machines, 
ronic typewriters, peripheral equipment, supplies and corn- 
services. 

All the major names are there including; IBM, Wang. DEC, 
Xerox, Burroughs, Data General. Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized video games, robots, com- 
puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 

Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 

THE THE 



Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows. 
824 Boylston Street, Chestnut Hill, Mass 02167 
Tel 617 739 2000. Tickets can also be purchased 
at the show. 



THE 

NORTHEAST 

COMPUTER 

SHOW 

BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



MI§J=TfEb§ 
"COMPUTER — i 
SHOW 

CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E CAPITAL ST. SE 

(ECAP ST EXIT OFF I 295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

11 AM TO 7PM WEEKDAYS 

1 1 AM TO 6PM WEEKENDS 



THE 

SOUTHERST 

COMPUTER 

SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NEAT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 29-NOV 1,1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



SOUTHERN 
■ 5_§iL!§"!iRNiti — i 

^rt aa rt; rs-r-s-s 
*_5_F^!E-=-= 5 SLF": 

LOS ANGELES 
LA Convention Center 

1201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



REVIEW 



Word processing software from Micro Architect 



Word 



Word 

Micro Architect 
Arlington, MA 
$49 

D. Wilson Cooke 

Box 203 

Tigerville, SC 29688 

Bargain hunting is a favorite pastime 
when I'm looking for software. I saw a 
need for a word processing program at the 
school where I teach, but did not feel a large 
cash outlay was justified. 

Micro Architect offers a low-cost group of 
programs for word processing under the 
group heading Word. 

Word2 is a 16K cassette-based program 
designed for the TRS-80 Level II. Word3 and 
Word4 are two similar programs for a disk- 
based Model I. Word-M2 is a program for the 
Model II. I ended up ordering Word4. 

An Overview 

Word arrived on a disk containing four 
files and enough TRSDOS programming to 
enable it to run on a one-disk system. Two 
of the files were Word3 and Word4. The 
other two were text files that either could be 



listed or formatted with Word, consisting of 
instructions on how to use Word. A 1 2-page 
manual was shipped with the disk. The 
manual is adequate only for someone fairly 
familiar with computers and the basic con- 
cept of word processing. The rank beginner 
might have difficulty. 

After copying the four files on another 
disk and storing the original in our safe 
area, I ran both Word3 and Word4 to print 
the instructions in the text files INST and 
INSTW4. It worked! 

There are slight variations in different 
versions of Word, but all are based on the 
same philosophy. Unlike machine language 
programs, such as Electric Pencil, it is writ- 
ten in Basic. This makes the program rela- 
tively easy to modify and use. It is quite 
easy, for example, to insert a line to select a 
particular type style on a printer. It also runs 
slower than a program written in machine 
language. 

Word takes a text file prepared indepen- 
dently of the processing program and for- 
mats it into a printed document. The text 
file is prepared using Basic. It is written as if 
it were a Basic program, line numbers and 
all, using roughly 20 special format instruc- 
tions appropriately interspersed within the 



5 . 


SP 3 


10 


.LL 65 


20 


PL 50 


30 


IN 8 


40 


CE 24 


50 


:XAMPLE OF 'WORD' USAGE 


60 


NC 


70 


SP 


80 


FI 


90 


' Line 5 skips 3 lines at the beginning" Line 10 specifies 


th 


it the length of each line is to be 65 characters. 


100 


'Line 20 specifies that the page will contain 


110 


'a total of 50 lines MaxiMUM. Line 30 specifies 


120 


'that the text will be indented 8 spaces froM the Margin. 


131) 


'Line 40 specifies that the next line will be centered. 


HO 


'Line 50 is a text line. 


150 


'Line 60 defeats the centering function. Line 70 causes 


160 


'a blank line to be output. Line 80 specifies that the 


170 


'text is be filled and justified on both Margins. 


180 


'Lines 90 through 190 are text lines. Line 200 is the 


190 


'end stateMent. 


20 


.EN 




Program Listing 1. 



text. The text can be listed or printed on 
paper using LLIST at any stage of its 
preparation. The Edit function allows text 
editing at any time. 

Once the text is prepared and edited, it 
can be saved on a System disk using the 
ASCII format (the A option). Since Word is 
not resident in memory while preparing the 
text file, it is possible to prepare a single 
text as large as the available RAM. Multiple 
text files for long documents such as books 
would be limited only to the number of disks 
available. When the formatted document is 
desired, Word is called into memory and 
run. Word3 takes about 4K bytes of RAM 
and Word4 takes a few hundred bytes more. 

Different Versions 

Word4 is a slightly enhanced version of 
Word3. Both programs are for a standard 
disk-based machine using TRSDOS or 
NEWDOS. Word4 has the ability to generate 
lowercase characters that are sent to the 
printer even though they are not displayed 
on the video monitor. This feature alone 
may be well worth the slightly extra cost 
($10) over Word3. Because of the software 
needed to generate the lowercase charac- 
ters, Word4 runs slower than Word3. Also, 
files prepared for one version of Word will 
not run properly on the other version. A sec- 
ond difference in the versions of Word is 
that Word3 can accept only one text file and 
process it, while Word4 can accept several 
text files and chain them together for print- 
ing longer documents. Up to ten files can be 
entered at one time. A third difference is 
that Word4 can also number lines in the for- 
matted document so that they correspond 
with those in the text file. This makes edit- 
ing much easier. 

Modifications 

Radio Shack's lowercase modification 
works with both versions of Word, but has 
one problem that must be overcome before 
using Word. Typed lowercase letters will 
automatically be converted to uppercase by 
Basic unless the character is enclosed in 
quotes or is part of a Remark statement. 
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"It is possible to get Word hung in an 

infinite loop if the commands are not used properly. 

A little experience will solve problems like this." 



Rather than modify the machine language 
lowercase driver program to defeat this 
problem, I chose to modify Word. 

As text files are prepared, the text lines 
begin with the apostrophe symbol (Radio 
Shack's Basic abbreviation for REM). Using 
the Auto function to generate the line 
numbers, it is rather easy and nearly auto- 
matic to start out each line with an 
apostrophe. Word was then modified to ig- 
nore the extra apostrophe at the beginning 
of a line but nowhere else. (See Program 
Listing 1.) Only one line must be added to 
Word3 to cause it to reject the extra 

apostrophe: 9033 IF MID$(A$,I + 1,1) = 

THENI = I + 1. 

The modifications to Word4 are more 
complex, but quite easy. Lines 503 and 9035 
through 9050 must be deleted. These are 
replaced by the lines: 



9032 LN=VAL(LEFT$(A$,I)) 

9033 IF MIDS(A$,I + 1,1) ■ THEN 1 = 1 + 1 

9035 A$ = RIGHT$(A$,LEN(A$) - l):RETURN 



A Multiple Copy Routine 

When multiple copies of a document are 
desired, it is simple to run Word more than 
once. The speed can be improved if the for- 
matting is done only once and dumped to 
the disk in formatted form. The formatted 
disk file is then used to print the second and 
later copies. I modified both versions of 
Word to print an image on the disk that is 
exactly like the one printed on paper. The 
new file generated is automatically named 
the same as the old file with the letter F 
prefixed to the old file name. Thus, the old 
file name should be chosen so that it is one 
letter less than the maximum length the 
system allows. The necessary Basic code 
to modify both versions of Word is shown in 
Program Listing 2. A short program to read 
the disk file and print it on the line printer is 
also given in this Listing. 

The only problem likely to be encoun- 
tered with this modification is lack of disk 
space for long text files. It is necessary for 
both the formatted and the unformatted ver- 
sion of the text to reside on the disk at the 
same time. This could present problems 
with long texts on one-disk systems. I got 
around this problem, to some extent, by 
having a master disk with all the necessary 
software from TRSDOS along with the 
various versions of Word that I have creat- 
ed. Another disk is made using Backup and 
everything is deleted from it that is not ab- 
solutely essential. The master disk is used 
to load Basic, Word, or anything else need- 
ed. This leaves maximum disk space on the 
second disk for text files. It is a simple mat- 
ter to switch disks in the drive. 

After using Word for a few months to 



write letters, memos, and several longer 
documents, I feel that it does what the sup- 
plier says it will do. The only serious prob- 
lem I have encountered is in not using the 
format instructions correctly in preparing 



the text file. It is possible to get Word hung 
in an infinite loop if the commands are not 
used properly. A little experience will solve 
problems like this. For the price, Word does 
a good job.B 



50 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

60 REM xx MODIFICATION TO W0RD3 TO PRINT FORMATTED IMAGE xx 

61 REM xx OF DOCUMENT ON DISK. ** 

62 REM xx WRITTEN BY D. W. COOKE, OCTOBER, 1980 xx 
70 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
506 E:* = "F"+A*S0PEN "0",2,B$ 

9980 LPRINT TAB(TI >0«: PRINT *2,TIJO*:iF MV=1 THEN RETURN 
9990 FOR 1=2 TO MV: PRINT *2,SP* ! LPRINT SP*: NEXT I J RETURN 



50 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

60 REM x* MODIFICATION TO WORD'? TO PRINT FORMATTED IMAGE xx 

61 REM xx OF DOCUMENT ON DISK. ** 

62 REM x* WRITTEN BY D. W. COOKE, OCTOBER, 1980 xx 
70 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
509 GOSUB 5305 OPEN"I" , 1 , FI*(XU> S LN=0t B*="F"+F I*(XU> ! 

0PEN"0",2,B* 

9980 if fl=0 then lprint tab < ti )0$: print ♦2,tij0$ else lprint 

ln,tab<ti>o$:print #2,ti;o* 
9990 for 1=2 to mvs lprint sp*: print #2,sp*s next is return 



10 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
20 REM xx PROGRAM TO PRINT FILE FROM DISK WHEN FILE IS xx 
30 REM xx CREATED BY W0RD3 OR W0RD4. xx 

10 REM xx WRITTEN BY D.W. COOKE, OCTOBER, 1980 xx 

REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CLEAR 200o:clssprint:print 



50 

60 

70 INPUT "NAME OF FILE TO BE PRINTED FROM DISK"? A» 

80 

90 



OPEN "I",l, A* 

IF E0F<1) THEN 160 ELSE LINE INPUT »1,B$ 
100 A = LEN(B*) 
110 D* = LEFT*(B*,3>: TI = VAL<D*> 



120 IF A<4 THEN LPRINT ' 

130 C* = RIGHT*(B*,A-3> 

110 LPRINT TAB(TI) C» 

150 GOTO 90 

160 CLOSEJEND 



GOTO 90 



Program Listing 2. 



FRICTION FEED FOR YOUR EPSON 

MX-70" MX-80 

•W-70 and tf(-80 are Trade Marks of EPSCN. Inc. 



Converts your printer for (riction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

Snap-on installation, (no tools 
needed, uses existing mounts). 

Tractor feed remains undisturbed. 



Proven reliability, ,-j ¥• J 

Available NOW! 

Only $39. 95 (add $1.50 for postagel 



^470 MICRO-GRIP, Ltd. 
P.O. BOX 873 
VISA* Master Card Accepted LAFB, VA 23665 



fi 



MANUFACTURING INVENTORY CONTROL 

ng Inventory Control 



MICS meduU-Manuf 

15 reports for inv 



pur 



Vendor 
"Pick List 
Scheduling 



ports * Part reorder reports 

t" reports * ABC analysis 
mulation capability 

* Parts "allocation" feature - prevent stoekouts 

* Inquiry by part, vendor part, and description 

BOMP module - Bill of Materials Processor 

* Indented BOM reports * Finished goods reports 

* Obsolete parts report * "Where used" inquiry 

* Automatic "Pick List" report generation 

* Work in process value reports 

* Process "lead time" based on actual inventory, 
work in process, and reorder lead times 

All modules for Model 1, 32K Business Systems 
Master menu driven - fully operator prompted 

MICS-1 2 drives, 1000 parts, 200 vendors - $295 
MICS-2* 2 drives,2003 parts, 300 vendors - $345 
MICS-3 3 drives, 2000 parts,200 vendors - $345 
MICS-4* 3 drives, 4000 parts, 400 vendors - $315 
BOMP (adds on to any MICS Module) - $295 

Send for catalog of ELTECH business modules 

ELTECH Associates ^4se 

2466 Moreno Drive, Los Angeles, Ca 90039 

(213) 663-0347 

•Requires double density. All modules upgradable 



• See List ot Advertisers on page 322 
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SOFT SECTOR MARKETING, 

INCORPORATED 



Our One Year Anniversary! 

New Toll-Free Order Line for Buyers Outside Michigan. 

800-521-6504 

For The Game Players 



Larry Ashmun Is Back . . . 
and Brings You . . . 

SUPER VADERS 

With Sound - Mod I & Mod III 

'1981 Soft Sector Marketing. Inc. 

The third in the evolution of the 
most popular space invaders games 
for Tandy machines. Now for 1 or 2 
players, 10 levels of play. 



Cassette (goes to disk") 



$19.95 



Ask for upgrade information for TRS-Super 
Invaders or Invaders-Plus. 



CONFLICT 

A strategy game 
involving land conquest. 

2-8 players 
Cassette $14,95 

MOD I & MOD III Color. 
Please state machine when 
ordering. 



Flippy 

c 1981 

by James Limkemann 




A Machine Language, 
Othello Game. 

MOD I & MOD III 
- 1 or 2 Players- 
Cassette $14.95 

Complete with 
Good Game Instructions. 



Coming Soon! 

"If s more than just another 
machine language arcade 
game." 

ALIEN DEFENCE 




If s An Experience! 

Super Fast Action! 
- 1 or 2 Players - 

Lander 50 Points 

Mutant 100 Points 

Cruiser 150 Points 

Bomber 200 Points 

Mother Ship 1000 Points 

Swarmers 150 Points 

Call for Availability 
MOD III Only 



MASTER CONTROL 

For the Color Machine 

®1981 Soft Sector Marketing, Inc. 
Requires 16K 



^mmmmm m IWi ftwil 
II a is a a aoa ni a di M 
' til a a a a a a m a a h ssa it 

aeiQaaQQiiBB 



Ask about our other Color Machine programs! 



FEATURES: 

1. 50 preprogrammed command keys, standard and 
extended commands. 

2. Direct control of motor, trace, and audio. 

3. Relocatable Machine code. 

4. Automatic line numbering, starting point and incre- 
ment alterable. 

5. Programmable Custom key. 

6. Direct Run button. 

7. Keyboard overlay for easy program use. 

8. Easy entry of entire commands into the computer and 
display. 

9. Full instruction manual. 

Cassette $24.95 



Outside Michigan 
Order Line Only 

800-521-6504 



SOFT SECTOR MARKETING, 

INCORPORATED 

6250 Middlebelt 
Garden City, Michigan 48135 



-515 



Questions & 
Michigan Orders. 

313-425-4020 
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1981 by James Limkemann 




A Self-relocating Machine language Monitor 
lor MOD I & MOD III 



Utilities 



BUG+ 

°1981 by J. Limkemann. Bug+ is a powerful 
machine language monitor. The one point most 
improved over other monitors, is the tape write. 
Bug+ has the ability to write a "clean" tape (at 
500 baud), this tape will read into the TRS-80 
under the system command, without the prob- 
lems previously associated with the volume set- 
ting. Regardless what version basic you have or 
whether or not you have a Radio Shack cassette 
fix this monitor will improve the reliability of your 
cassette by 100%. There is also a verify command 
that works the same as a "CLOAD?". except 
when an error is found; the memory address and 
what is found on the tape is displayed. 
Finally a break point that works! When a break 
point is reached, there is a blinking astrisk in the 
bottom right hand corner, you are able to see 
what is on the screen before the monitor takes 
control. Press the enter key the screen clears and 
the monitor comes to life. When you continue 
from a break point, the monitor will restore the 
screen first then load the CPU registers and return 
to your program. You do not lose your program or 
display, and it does work! 
Bug+ also has all the commands of T-Bug. they 
just work better. Bug+ loads into low memory, 
then relocates itself. 

Mod III has all the commands of the Mod I version 
plus it gives you the ability of reading or writing 
1500 baud or 500 baud or 500 baud tapes. You 
can read at one rate and write at another. MOD I 
or III. 4K. both on same tape. 
Cassette $14.95 



SUPER UTILITY 

c 1980 by Kim Watt of Breeze Computing. Inc. 

Sold on protected media only. 

Main Program list: 

Zap; display sector (disk. file), display memory, 
compare disk sectors, copy disk sectors, verify 
disk sectors, zero disk sectors, string search, 
sector search, single or double density diskettes 
(if your machine works normally with double 
density). 

Purg*; kill selected files, get disk directory, zero 
unused directory entries, zero unused granules, 
remove system files, kill by category, change 
name, date, password auto command, change 
file parameters, remove passwords. 

Disk Format; standard format, format without 
erase, special format, read address marks. 

Disk Copy; standard copy with format, standard 
copy without format, special copy (to back up 
many protected disks) - purchaser use- only for 
his own personal disks. 

Tap* Copy; this program is to make backup of 
many TRS-80 tapes, no matter how it is record- 
ed (note agin this program is for the use of the 
original purchaser for his own programs only). 

Disk Repair; repair gat table, repair hit table, 
repair boot, read protect directory track, re- 
cover killed files, check directory. 

Memory; move memory, exchange memory, 
compare memory, zero memory, test memory, 
input byte from port, output byte to port, 
memory to disk, disk to me;nory. 

Disk Repair; repair gat table, repair hit table, 
repair boot, read protect directory track re- 
cover killed files, check directory. 

MOD I . protected disk only $49.95 

Back up copy available! 



MOD III ROM 
COMMENTED 

e 1981 Soft Sector Marketing, Inc. 

Only $22.50 

+$2.50 Shipping & Handling 

Not just a rehash of old information, 
but detailed comments on the ROMS 
in the latest machine from Tandy. 

Now in its 3rd printing! 
Over 150 Pages! 



SPECIAL 

If you purchase both Postman and Lazy 
Writer at the same time, at list price, (or if 
you already own one of the packages 
and now want ot purchase the other), 
we will at no extra cost include the 
Postwriter package FREE. To purchase 
this package say "I want the best pack- 
age on the market so send me the full 
system at one time". This includes the 
Postman, Convert 1 and Convert 2. The 
package works on all quality operating 
systems based on the Tandy disk format 
(TRSDOS. LDOS. NEWDOS. NEWDOS-80, 
etc.) MOD I Only 

$250.00 

See page 3 of this ad for details on these 
programs. 



BOSS III 

: 1981 Soft Sector Marketing, inc 
for Mod III 



The 

BASIC 

OPERATED 

SINGLE 

STEPPER 



This Machine Language utility is designed to 
aid you in creating and debugging programs 
written in BASIC. The utility allows you to trace 
the program flow, to single step the BASIC 
program, to observe the conditions of varia- 
bles during program execution, and to push 
your BASIC program on the stack during 
program development. The utility is known to 
operate with Mod III. TRS-DOS or Mod III Rom 
BASIC. 

Cassette (goes to disk) $18.95 

- New Lower Price - 

Also Boss 2.1 version 2.2. °1 980 V.B Hester for 
Mod i Cassette (goes to disk) $18.98 

TAPE COPY 2 

8 1981 Soft Sector Marketing, inc. 

This program will load most any TRS-80 
500 Baud system tape (standard) Mod I 
speed) and load it into memory and save 
it at either 500 or 1 500 Baud on the Mod III. 
NO KNOWLEDGE OF MACHINE LANGUAGE 
NEEDED. Now it gives you a way to back 
up a machine language program that 
loads at the lower speed and makes 
cassette loading into your new Mod III a 
much faster and more reliable process. 
Works with Mod I* & Mod III. 



Only . 



$14.95 




CHAIN MAKER 

'-1981 Steve Skindell. This program makes writing 
chain files on NEWDOS-80 a breeze. This is not 
only a program that creates chain files but it also 
is an editor of the file. A file can be removed from 
the disk and edited and saved back to the disk 
quick and easy. An outstanding program and a 
must for every NEWDOS-80 owner. Comes with 
complete, easy to read manual. Purchaser must 
own NEWDOS-80 $14.95 




COD - certified check. M.O. or cash only. Most' orders shipped next day. All orders must have shipping included. 
Please add 2% or $2.50. whichever is higher for shipping. Michigan residents, please add 4% tax. Add extra S 1 .50 for 
C.O.D. Personal checks take 3 weeks to clear. All hardware must be prepaid. No hardware shipped collect Out of the 
country orders add $10.00 extra shipping. 
"TRS-80 is a product of Radio Shack, division or the Tandy Corporation ^515 
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VISA 



The Serious Side of Computing . 

Business Programs 



CRITPATH* 

'PM Programming 1980 

CRITPATH* will help 

- Determine the earliest possible completion 
date for your project. 

- Identify the critical activities in your project; the 
jobs that will delay completion of the entire 
project if they are not completed on time. 

- Provide you with the scheduled start and finish 
date for all project activities so you can plan your 
labor and material needs to support the project 
completion date. 

- Develop the information needed to permit you 
to shift resources and funds to critical activities 
from those activities identified by the program as 
being capable of delay without delaying the 
completion of the project. 

CRITPATH* provides you with 

- Both screen and printer outputs of your schedule 
in work days, tabulating the earliest start/finish 
and latest start/finish days as well as the total 
float for each project activity. 

- The length of the critical path in work days. 

- A listing of all activities that are on the critical 
path, jobs that cannot be delayed without 
delaying the entire project. 

- A printer output of the actual calendar datesfor 
the erliest start/finish and latest start/finish along 
with both free and total float for each activity. 

- Your choice of printing out data sorted consec- 
utively by 

a. Job sequence 

b. Earliest start dates 

c. Earliest finish dates 

d. Latest start dates 

e. Latest finish dates. 

Specially designed for builders, by a builder. Also 
works well with many other businesses. 

MOD I $600.00 

MOD III $750.00 

Manual $50.00 

Overview Free 

Requires 48K 2 disk drives and 132 column 
printer. 



3 



COMPLEAT IDIOTS BOOKKEEPER 

c 1981 S.F.I. This will probably not be the only 
bookkeeping program you'll ever need(but you 
can never tell) but it should be your first. 
Why? 

- Easy to use 

- Easy to understand instructions 

- Has Purge feature 

- Advanced Edit features 

- Batch input 

- Build new fiels from parts of your existing IDIOT 

files 
-Flexable Report Generator 
Mod I or III. 48K. 1 drive $49.95 



NEW, 

MAKE VC 

°1981 S.F.I. Changes IDIOT files to VISI CALC 
interchange format or take VC files and makes it 
into IDIOT readable file. 

Now Only $24.95 

Make VC requires Compleat Idiots Bookkeeper. 



POSTMAN 

By Alger Software. f '1980 S.S.M, Inc. A machine 
language mailing list program that will do the 
following: 

- 645 labels on a 35 track disk drive 

- 745 labels on a 40 track disk drive 

- 1534 labels on an 80 track disk drive 

- 10 fields (2 user defined) 

- Fast sorts (500 racords in 30 seconds) 

- Written for(1) drive system (capacities shown 

are for a single drive system) 

- Most any lable stock that is one up can be used 

(you save no money buying labels that are 
more than one up anyway) 

- Print one label at a time or a sequence of labels 

- Purge duplicates with or without user assistance 

- 9 digit zip code 

- Super fast search on any field - 3 second 
average 

- Easy screen editing 

Now Postman has been upgraded with many 
new features. Now this very popular mailing 
package is not just the best way for most people 
and small businesses to do their mailing lists, but 
now we give you a way to uncramp. convert and 
formletter your mailing list. You need this pack- 
age if one of the following is true: If your 
mailing package is memory dependent. This 
means that you must have more memory to 
handle more names in your machine; If you 
need a way to get rid of duplicate names in your 
mailing list; If you want to sort on more than just 
name or zip (our package can sort on any or all 
10 fields at once.); If you are waiting more than 
one minute for your sort to finish, (our package is 
in machine language so it runs very fast); If your 
present program will not handle the 9 digit zip 
code; If your program doesn't have full screen 
editing. This package is a machine language 
program; this is the reason for the super fast 
speed of all functions! 

This is random access disk based program and 
any name can be called to read, write, print or 
update in3 secondsor less. Nowalong with it you 
get utilities that permit you to do the following: 
CONVERT 1; takes all the files from most other 
mailing list and converts them to our system, 
(why should you change to our system if we 
made the change hard?) CONVERT 2; convert 
from our package back to ASCII files if you want 
to do something with them (like send them to 
another computer over the phone). This program 
runs on all quality operating systems. Requires I 
disk drive and 32K memory Only $125.00 



GUARANTEE 

All programs described as 
Business Programs 

come with a 30 day. money back guar- 
antee, less 10% restocking charge. We 
feel the best way to see if a program 
works in your business is to use it. 



POSTWRITER 

c 1981 S.S.M.. Inc. Now there is. at extra cost, a 
formletter package that permits inserting any of 
the 10 fields of information from "Postman" into 
any part of a letter, (yes even in the body of the 
letter), and right and left justify the letter. This 
program is made to be used only with the 
Postman progam and one of the following word 
processing packages Lazy Writer orElectric Pencil. 

$49.95 

Requires Postman 




GRAPHX 

By Steve Skindell s 1981 . This is a program that is 
for the person who does reports or requires some 
sort of plotted output to show gains or losses, or 
any type of output that needs graphs. This 
program puts to the screen, or to a printer, the 
plotted points in bar program for accountants. 
CPAs and the average businessman to evaluate, 
at a moments glance where he is. was or where 
he is going. Files saved to disk can be recalled at 
any time to be reexamined, modified, or just 
reprinted. An extra feature: if you have the 
Microline printer, by Okidata or Epson MX-80, 
your output is in true graphics. Information is 
supplied for the user so he can modify this 
program for other printers. Comes complete and 
ready to run. Requires MOD I or MOD III, 48K disk. 
Printer optional (132 col.) Only $49.95 



5,000 MAILING LABELS 
$14.95 

Plus $2.00 Shipping 



Outside Michigan 
Order Line Only 

800-521-6504 



Questions & 
Michigan Orders. 



SOFT SECTOR MARKETING, 

INCORPORATED ^515 

6250 Middlebelt -,- AOn AMtx 

Garden Cit y, Michigan 48135 313 -425-4020 
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In the June, 1981 Micro-computing, Page 20 . . .^ 

Lazy Writer® was compared to a lesser costing word processing program 
and some interesting information was brought out. We would like to clarify 
the facts: 



Reviewers Comments 



Clarification 



"Lazy Writer is the easiest to use" 

"Features a unique cancel edit feature" 
"Allows loading any ASCII files" 



- That is what is ment by - The Innovative Word Processing 
'System'. 



- In true tact. Lazy Writer will load any program or sequen- 
cial tile. 

"Built-in 'Help* command that can be called to -This file can be added to, by the user, to include your 
explain most used features" most used features. 

To Error Is Human. 

In the same article it was said that Lazy Writer COULD NOT DO the following: WRONG! 



Features reviewer thought not included in 
in Lazy Writer 

Underlining, Page Numbering 

Headers/ Footers 

Append Modules 

Keep track of free space 

Pull directory from program 

Repeating keyboard 

Support for MX80 printer 

Superscript/Subscript 



Does 

Lazy Writer 

Do This 



Clarification 



YES 



YES 
YES 
YES 
YES 
YES 
YES 



Lazy Writer has always had this ability. June 1 , 1 981 
these features were improved to support almost 
every printer on the market - standard! 

Called Extentions 

Hit clear/ break in program 



All of the tricks the MX-80 can do. 

Added June 1. 1981. You can embed any printer 

control codes any place in the text. 



As a matter of fact in June, 1 981 Lazy Writer was improved to such a degree that a new manual (over 1 00 pages was 
issued) along with the new program, (by the way, there was NO charge for this update to registered owners). 

Important Things Not Mentioned In The Article: 



E) Types of Printer Outputs Supported, RS232, TRS 232, 
and parallel printers. 

F) Nowhere did they mention the Communication 
portion of Lazy Writer. 

& MUCH, MUCH MORE! 
Send for Overview. 



A) Chain Printing. Gives you the ability to print files 
longer than can be loaded into memory, (e.i. our 157 
page MOD III ROM Commented Book). 

B) User Defined Special Character. For use with 
printers that have printable characters that the TRS-80 
keyboard does not directly support, (e.i. Daisy Wheel) 

C) Customize Your Printer Default Commands with 
PRINTGEN. 

Comments in the July 1 981 Creative Computing 

Pg. 34-36 - Summary "Very easy to use" 

"All the functions of Lazy Writer are covered well in its documentation, which ranks 

among the best I have seen, it is on a par with the construction manuals for Heathkits and 

Dynakits" 

"This being written on a TRS-80 Model I computer with ease and flexibility that previously 

had been available only on larger computers with much more expensive word 

processing programs. What has moved the Model I up into at least the Triple-A League, if 

not the true Big Leagues, of writing is a modestly priced word processer called Lazy 

Writer." 

"The best thing about Lazy Writer, from the viewpoint of a professional writer and editor, is 

not that it does exotic things, undreamtof by users of Electric Pencil and Scripsit. It is that it 

does the same thing in a much simpler way." 

Even though many advantages were overlooked, one over 
shadowing fact is . . . 

There's nothing even close.® 

Purchase direct or from your local retailer. 




an Innovative word processing system 

••434 



Modi 
Mod III 



$125.00 
$175.00 



Ma*t»fCard 



C.O.D - certified check M.O. or cash only. Most orders shipped next day. All orders must have shipping included. 
Please add 2% or $2.50. whichever is higher for shipping. Michigan residents, please add 4% tax. Add extra S 1 .50 for 
C.O.D. Personal checks take3 weeks to clear. All hardware must be prepaid. No hardware shipped collect. Out of the 
country orders add $10.00 extra shipping. 
•TRS-80 is a product of Radio Shack, division of the Tandy Corporation. 
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VISA 



UTILITY 



An exercise in deduction. 



TRS-80 Disassembler 



Carl Wuebker 

505 Duke Lane 

Fort Collins, CO 80525 



Like many people, I enjoy a good puzzle. 
Working puzzles helps you to exercise 
your deductive powers and logic abilities. 
When you bought your computer you prob- 



ably weren't aware you bought a challeng- 
ing puzzle at the same time. Trying to solve 
this puzzle will help you understand the 
mysteries of your computer and write clear- 
er programs. 

The puzzle I am referring to is your oper- 
ating system. For instance, how does your 
TRS-80 write a byte on tape? Why does it 
skip a line after printing a 64-character line? 



Lines 


Module 


Variable 


Description 


1-99 


Main Program 




Sets the starting location, page number, calls proper output rou- 
tine, stops on each page if requested. 






HX$ 


String to allow easy hex conversion 






L 


Current disassembler location 






P 


Current page number 






P$ 


L if line printer, S if screen 






S$ 


S means stop after current page 


100-199 


Lineprinter 




Line prints a disassembled page 






N 


Line counter 






L$ 


Complete disassembled line 


200-299 


Screenprinter 




Screen prints a disassembled page 


1000-1799 


Dis-A-Line 




Disassembles one instruction line at L and bumps L 






10 


First byte of instruction 






11 


Second byte of instruction 






12 


Third byte of instruction 






13 


Fourth byte of instruction 






RNS 


# is replaced by RNS for instruction 






RSS 


" is replace by RSS for instruction 






M$ 


Instruction text w/out hex data 






DL 


Number of bytes in instruction 






FM 


Found a # in instruction text 






FS 


Found a * in instruction text 


1800-1999 


Replace- #-OR- - 


I 


Replaces a # or ' in instruction text with RNS or RSS 
Character counter 


2000-2199 


Access-I-Text 




Reads instruction text from data array and formats instruction 






OPC$ 


Opcode = >alpha array 






FLD$ 


Register = >alpha array 






10$ 


String used to hold opcode only 






11$ 


String used to hold opcode argument 






T 
I 


Format type (0 Is first instruction character is not numeric) 
General character pointer 


2200-2299 


Load-I-Text 




Moves data at 2300-2999 into FLDS and OPCS arrays 


3X00-3X99 


Formatter 




Formats specific instruction type X 






c 


Pass this number of a GOSUB 5000 






c$ 


Get this hex string back. . . 


4000-4199 


Prelude Formatter 




This routine formats the address, ASCII, and hex interpretations 
of the instruction 






LT 


Temporary for the location counter 


5000-5019 


One-Byte-Hex 




Converts C into a one byte hex C$ 


5020-5069 


Two-Byte-Hex 




Converts C into a two byte hex C$ 

Fig. 1. 



What does your TRS-80 program look like in 
memory? On tape? How can you fix a tape 
that won't CLOAD? 

The TRS-80 Disassembler program, writ- 
ten in TRS-80 Level II Basic, allows you to 
read the bits in the ROM (via the PEEK com- 
mand) and convert them into Z-80 standard 
mnemonic instructions. This program per- 
forms most of the routine tasks of solving 
the puzzle, and leaves the thinking part up 
to you. 

Unraveling 

To use the program, type it into your ma- 
chine, save it on your cassette or disk and 
set L (in line 40) to the first location you 
want disassembled. Run the program, an- 
swer the "PRINTER (L,S) , STOP (S,N)" ques- 
tion (S,N means Screen, Non-stop, for ex- 
ample) and the program will start disassem- 
bling instructions at a rate of about three to 
five lines per second. Take the disassem- 
bled listing and start unraveling! 

The Operating System 

The operating system (also known as the 
Basic interpreter) consists of about 6000 
simple steps which act in concert to follow 
your high level instructions (given in Basic). 
When you type: PRINT "HELLO" (enter), the 
system obligingly displays HELLO on the 
screen. During the time between pressing 
enter and the appearance of the message, 
the operating system has used thousands 
of simple steps (known as machine instruc- 
tions). These instructions tell the Z-80 CPU 
what you typed and then (once it had 
"understood" the Print statement) to move 
the data (HELLO) into another area of 
memory (which is written to the display). 
The operating system is the interface be- 
tween you, the user, who is speaking Basic 
and the Z-80 which is speaking machine in- 
struction. 

The operating system is written in as- 
sembly language (which is a form of 
machine instruction). It's much easier for a 
programmer to remember how to write the 
statement: 
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HERE: JP HERE ; LOOP FOREVER (in BASIC. 10 GOTO 10) 

than it is for him or her to remember: 0010: 
C3 10 00, which is Z-80 "GOTO $0010" in 
hexadecimal. (I use a $ preceding a number 
to indicate a hexadecimal number; I feel it's 
clearer and easier for an assembler to syn- 
tax). The TRS-80 operating system involves 
about 150 pages filled with assembly lan- 
guage instructions. These instructions 
were assembled and the bits (analogous to 
line 0010: C3 10 00) where made into a set of 
ROMs. These ROMs are shipped with every 
TRS-80 so when it is powered up, the Z-80 
will act on the bits to interpret your Basic 
language input. 

While writing the operating system, the 
programmer named the routines, subrou- 
tines and data. For example, when a key- 
board character was needed, he or she 
probably wrote CALL GETC instead of 
CALL $0013. Not only was this easier than 
looking up the current ROM location for the 
subroutine, it made life easier for other pro- 



grammers who attempted to fix the bugs 
that creep into every large program. When 
the operating system was finally bug free, it 
was assembled by an assembler (that is, 
the names were converted into addresses 
which the Z-80 understands). In this pro- 
cess, all the names were left out of the 
TRS-80 ROM; only the addresses which 
were referenced remained. The puzzle is, 
therefore, to find out what the programmer 
asked the Z-80 to do without relying on 
names and other comments. 

A Look Inside 

The TRS-80 Disassembler is written in a 
modular fashion; a description of the mod- 
ules, their functions, and their variables ap- 
pears in Fig. 1. 

A Sample Disassembly— The TWRITE 
Subroutine 

While reading through my disassembled 
TRS-80 listing, I noticed a routine which 
called a subroutine and then delayed short- 



0261: CD 64 02 


TWRIT2 


CALL 


$0264 


; CALL TWRITE, then fall into it 


0264: E5 


TWRITE 


PUSH 


HL 


; Write byte in A on tape 


0265: C5 




PUSH 


BC 


: Save all registers on stack 


0266: D5 




PUSH 


DE 




0267: F5 




PUSH 


AF 




0268: 0E 08 




LD 


C.$08 


; Bit counter = eight bits to write 


026A: 57 




LD 


D,A 


; Save byte to be written in D 


026B: CD D9 01 


TLOOP: CALL 


$01 D9 


; Write a pulse on the tape 


026E: 7A 




LD 


A,D 


; Rotate D left into carry 


026F: 07 




RLCA 




; (Get current bit in carry) 


0270: 57 




LD 


D,A 




0271: 30 0B 




JR 


NC,$027E 


; If bit to be written is 0, 
: wait 2ms silently 


0273: CD D9 01 




CALL 


$01 D9 


; If bit to be written is 1, 

; write a second pulse 1 ms out 


0276: 0D 




DEC 


C 


; Decrement bit counter 


0277: 20 F2 




JR 


NZ.S026B 


; if bit counter>0 then loop 


0279: F1 




POP 


AF 


; Restore all registers 


027A: D1 




POP 


DE 




027B: C1 




POP 


BC 




027C: E1 




POP 


HL 




027D: C9 




RET 




Return 


027E: 06 87 


TZERO 


LD 


B.S87 


; Wait 1ms silently 


0280: 10 FE 




DJNZ 


B.S0280 


; to signify a zero bit. . . 


0282: 18 F2 




JR 


$0276 


; Continue writing 


01 D9: 21 01 FC 


PULSE 


LD 


HL.$FC01 


; Write pulse on tape 


01 DC: CD 21 02 




CALL 


$0221 


; Set port $FF to ppppppOl 


01 DF: 06 0B 




LD 


B.$0B 


; Wait... 


01E1: 10 FE 




DJNZ 


B,$01E1 




01 E3: 21 02 FC 




LD 


HL,$FC02 


; Set port $FF to ppppppIO 


01 E6: CD 21 02 




CALL 


$0221 




01 E9: 06 0B 




LD 


B.S0B 


; Wait... 


01EB: 10 FE 




DJNZ 


B.$01EB 




01 ED: 21 00 FC 




LD 


HL,$FC00 


; Set port $FF to ppppppOO 


01 F0: CD 21 02 




CALL 


$0221 




01 F3: 06 5C 




LD 


B,$5C 


; Wait to finish off 1ms 


01 F5: 10 FE 




DJNZ 


B, 


01 F5 


01 F7: C9 




RET 




; Pulse written on tape 


021 E: 21 00 FF 


WRPFF 


:LD 


HL.$FF00 


; Write ($403D) to port $FF 


0221: 3A 3D 40 


CHPFF 


:LD 


A,($403D) 


; Change port $FF 
; Send port $FF 


0224: A4 




AND 


H 


; (Old port $FF AND H) OR L 


022F: B5 




OR 


L 




0226: D3 FF 




OUT 


($FF),A 




0228: 32 3D 40 




LD 


($403D),A 


; Save current port $FF 


022B: C9 




RET 


Fig. 2. 


; Port $FF written. . . 



r HARD DISK FOR ^ 

TRS-80* 
MODELS I & III 
$2495 

• 5 megabyte formatted capacity 

• Controller, case, power supply, and cable 
included 

• Software interface 

• LOW PRICE 

NOW is the time to upgrade your Mod I or III 
to incorporate the latest technology in 
reliable mass data storage. We are able to 
bring you Winchester disk drives for this 
fantastic price due to quantity purchases and 
high technology design. EVERYTHING need- 
ed to add a "Winnie" to your system is 
provided. 
FEATURES: 

• Seagate ST506 5.25 inch disk drive 

• 5.0 Mbits/sec transfer rate 

• 3 msec track-to-track access time 

• 8.33 msec latency 

• 32 256-byte sectors per track 

• 4 read /write heads 

• Winchester controller 

• Read /Write/ Format macro-commands 

• Automatic CRC checking 

• Sector interleave capability 

• "Bad Block" mark and detection 

• Software interface to disk BASIC 

• Complete documentation 

• Cooling fan 

• 90 day warranty 

ACT NOW to take advantage of this special 
offer. $2495 is the TOTAL price including 
shipping via UPS in the continental United 

Order [specify Model I or III] from: 

PSM Inc. 

P.O. Box 1877 

Kettering, OH 45429 -66 

Charge Cards 4 COD's WELCOME! 

Ohio residents add sales tax. 

^_ 'TRS-80 is a trademark of Tandy Co. A 
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FINALLY! 

A Tape-Based 

EDITOR-ASSEMBLER 

For The Model III 

CONCINNATOR is used in conjunction 
with Radio Shark's Editor/ Assembled 

1.2 -- it provides compatibility with the 
Model III, and also provides numerous 
enhancements. Most important is the 
ability to dump assembled programs into 
memory for testing, and being abb; to re- 
turn to CONCINNATOR without many 
saves and loads. Will verify source 
dumps; supports 1500 baud; displays 
number of bytes left in buffer, and per- 
mits display and modification of memory 
location contents. And more! You've 
been waiting, and now it's here: Conci- 
nnalor. a sophisticated editor/ assembler 
for the Model III. Will also enhance 1.2 
for the Model I TRS-80! 819.95 on tape. 

Ask About Other 
MODEL III SOFTWARE 



To Order (oncinn.lor: 
Send $l'»').'> with 12 to rover 
uaikaainji & postage to TAS, 
address Mow. Speedy I or 
III SI. 30 will be added tor 
I .Oil. I', added lo charge or- 
der*. Inquire about other 
Model III software rurranlK 
available! 



TAS, IK06 Ada. Lansing. Ml 48910 
Ph. (517) 487-3358 or 485-0344 
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s! 



^See List ol Advertisers on page 322 



80 Microcomputing, August 1981 • 241 



SUPER "COLOR" WRITER 



At last, a full featured, fast word processing system for the 
TRS-80 (TM) Color Computer & Line Printer VII. The Super 
Color Writer writes Letters, Memos, Checks, Invoices. 
Essays with page numbers, Addresses Envelopes etc • 
Screen Display Option • Key Beep • Block Move • Delete • 
Insert • Scroll • Correct • Quick Paging • Word Count • 
Search • And More • 16K Color or 16K Extended Basic • 

Add 32K Super Color Ram for Big Jobs 

CASSETTE AND COMPLETE DOCUMENTATION $49.95 



RAM EXPANSION KITS FROM $19.95 



MEMORY EXPANSION FOR TRS-80 MODEL I, III & 

COLOR COMPUTER 

INCLUDES RAM TEST • PLUGS INSIDE COMPUTER 

Model III & 1 16K memory upgrade kits • guaranteed $19.95 
Super Color Ram-04 16: 4K to 16K kit complete . $1995 
Super Color Ram-1632: 16K to 32K kit complete . . . $79.95 
Super Color Ram-0432: 4K to 32K Kit complete . . . $99.00 
Includes instructions • Model 1/4K add $4.00 for dip shunt 



GAME & EDUCATION CASSETTE PACKS 

Model III • Color Computer • Model l/LII • 16K Required 
• • • Ultra Quality sound and graphics • • • 



COMBAT3-PAK CASS-S24.95 

Three Super-Action Real Time Two Player Games 
Stellar Battle • Galactic Blockade • • • 2-1-0 Combat 

ADVENTURE 3-PAK CASS— $24.95 

A Trilogy of Fantasy Adventures • Forsaken Gultch • 
Dazmar; World of Doom • World Under The Cimeeon Moon 

VEGAS 4-PAK CASS— $24.95 

Why fly to Vegas? You'll have it at home! • Keno • 
One Arm Bandit • Casino Craps • Up and Down the River 

CHILDRENS EDUCATION 3-PAK CASS— $24.95 

Give your children a head start • Kid's math primer • 
Adventures in Storyland • Hangman — a fun word game 

BUY THREE GET ONE FREE!! • All 4 cassettes $74.95 

('TRS-80 is a registered trademark of the Tandy Corp) 



Specify computer type • add $300 shipping & handling 
MN residents and 5% sales lax • sendcheckor M O to: 
NELSON SOFTWARE SYSTEMS. INC. • DEPT.808 
P.O. BOX 19096 • MPLS.. MN. 55419 • 612/927-0511 
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ly. Usually a computer won't use a delay un- 


are written to tape starting with bit 7 and 


less the operation it's doing is time-depen- 


continuing until bit is written. Bits are writ- 


dent. After thinking through some of the op- 


ten to tape as follows: 


erations which could be time-dependent, I 




decided it probably had something to do 


bit: Pulse. 2ms silence 


with the cassette tape unit. On digging fur- 


1 bit: Pulse. 1ms silence, pulse, 1 ms silence 


ther, I discovered the subroutine was used 




by another subroutine to write a byte on the 


("A Look Inside The TRS-80," Kilobaud 


tape. When entered at TWRITE ($0264), the 


April, 1979, is an excellent article for those 


subroutine writes the byte in A to the tape 


interested in the tape format.) 


(provided that the tape is running and con- 


Below are the disassembled routines— 


nected). When entered at TWRIT2 ($0261), it 


TWRIT2 and TWRITE— with my own labels 


writes the byte in A to the tape twice. Bytes 


and comments added. ■ 


Program Listing for Disassembling the TRS-80 


10 CLEAR 3000 




20 GOSUB 2200 




30 HX$="0123456789ABCDEF" 


40 L=0 




50 P=0 




60 INPUT "PRINTER (L, 


S) , STOP (S,N)";P$,S$ 


70 IF P$="L" THEN GOSUB 100 ELSE GOSUB 200 


80 IF S$="S" THEN 60 


ELSE 70 


90 END 




100 P=P+1 




110 FOR N=l TO 45 




120 GOSUB 1000 




130 LPRINT LS 




140 NEXT N 




150 LPRINT " " 




160 LPRINT TAB (24);"- 




170 RETURN 




200 FOR N=l TO 15 






Program continues 








EDITOR, ASSEMBLER AND MORE! 



SOFTWARE DEVELOPMENT SYSTEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack! Vastly superior to RAM -based assemblers/editors, the SDS80C is non- 
volatile, meaning that it your application program bombs, it can't destroy your 
editor/assembler. Plus it leaves almost all ot 16K or 32K RAM free for your 
program. Since all three programs, editor, assembler and monitor are co-resident, 
we eliminate tedious program loading when going back and forth from editing to 
assembly and debugging! 

The powerful screen-oriented Editor features finds, changes, moves, copys and 
much more. All keys have convenient auto repeat (typamatic), and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code. 

The Assembler features all of the following: complete 6809 instruction set; 
complete 6800 set supported for cross-assembly; conditional assembly; local 
labels; assembly to cassette tape or to memory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG, tailored for debugging 
programs generated by the Assembler and Editor. It features examine/change of 
memory or registers, cassette load and save, breakpoints and more. SDS80C 
Price: $89.95 



*jl?W CRACK THOSE ROMS! 



SOURCE GENERATOR: This package is a disassembler which runs on the color 
computer and generates your own source listing of the BASIC interpreter ROM. 
Also included is a documentation package which gives useful ROM entry points, 
complete memory map. I/O hardware details and more. A 16K system is required 
for the use of this cassette 80C Disassembler Price: $49.95 



CBUG IS HERE! 

MONITOR TAPE: A cassette tape which allows you to directly access memory. I/O 
and registers with a formatted hex display. Great for machine language 
programming, debugging and learning. It can also send/receive RS232 at up to 
9600 baud, including host system download/upload. 19 commands in all. 
Relocatable and reentrant. CBUG Tape Price: $29.95 

MONITOR ROM: The same program as above, supplied in 2716 EPR0M. This 
allows you to use the entire RAM space. And you don t need to re-load the monitor 
each time you use it. The EPR0M plugs into the Extended Basic ROM Socket or a 
modified R0MPACK. CBUG ROM Price: $39.95 



LEARN 6809! 

6809 ASSEMBLY LANGUAGE PROGRAMMING. 

by Lance Leventhal. contains the most comprehen- 
sive reference material available for programming 
your Color Computer. Price: $16.95 



PARALLEL O! 

USE A PARALLEL PRINTER with your Color 
Computer! Adaptor box plugs into the serial port and 
allows use of Centronics/Radio Shack compatible 
printers with parallel interface. Assembled and 
tested PI80C Price: $69.96 



THE 
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GOOD STUFF! 



32K RAM! 

MEMORY UPGRADE KITS: Consisting of 4116 
200ns. integrated circuits, with instructions for 
installation. 4K-16K Kit Price: $39.95. 16K-32K 
Kit (requires soldering experience) Price: $39.95 

WE SHIP FROM STOCK! 

Master Charge/Visa and COD Accepted 



P.O. BOX 1110 DEL MAR, CA 92014 714-942-2400 
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Program continued 



210 GOSUB 1000 

220 PRINT L$ 

230 NEXT N 

240 RETURN 

1000 I0=PEEK(L) 

1010 IF 10=203 THEN 1200 

1020 IF 10=237 THEN 1300 

1030 IF 10=221 THEN 1500 

1040 IF 10=253 THEN 1520 

1050 I1=PEEK(L+1) :I2=PEEK(L+2) 

1060 GOSUB 2000 

1070 RN$="HL":RSS="(HL) " 

1080 GOSUB 1800 

1090 GOSUB 4000 

1100 L$=LS+M$ 

1110 RETURN 

1200 I0=PEEK(L+l)+256 

1210 GOSUB 2000 

1220 IF M5="???" THEN 1090 

1230 DL=2 

1240 RN$="HL":RS$="(HL)" 

1250 GOSUB 1800 

1260 GOSUB 4000 

1270 L$=L$+M$ 

1280 RETURN 

1300 I0=PEEK(L+1) 

1310 IF I0<64 OR (I0>127 AND I0<160) OR I0>191 THEN 10= 

191 
1320 IF I0<128 THEN 10=10+448 ELSE 10=10+416 
1330 Il=PEEK(L+2) :I2=PEEK(L+3) 
1340 GOSUB 2000 
1350 IF M$="???" THEN 1390 
1360 DL=DL+1 

1370 RN$="HL":RS$="(HL) " 
1380 GOSUB 1800 
1390 GOSUB 4000 
1400 L$=L$+M$ 
1410 RETURN 
1500 RN$="IX" 
1510 GOTO 1530 
1520 RN$="IY" 
1530 C=PEEK(L+2) 
1540 GOSUB 5000 
1550 RS$="("+RN$+"+$"+C$+") " 
1560 IF PEEK(L+1)=203 THEN 1660 
1570 I0=PEEK(L+l):Il=PEEK(L+2):I2=PEEK(L+3) 
1580 IF 10=54 THEN I1=PEEK (L+3) : 12=0 
1590 GOSUB 2000 
1600 FM=0:FS=0 

1610 IF M$<>"???" THEN GOSUB 1800 
1620 DL=DL+(FM OR FS)+FS 
1630 GOSUB 4000 
1640 L$=L$+M$ 
1650 RETURN 
1660 I0=PEEK(L+3)+256 
1670 GOSUB 2000 
1680 FM=0:FS=0 

1690 IF M$<>"???" THEN GOSUB 1800 
1700 DL=DL+3*FS 
1710 GOSUB 4000 
1720 L$=L$+H$ 
17 30 RETURN 
1800 FM=0:FS=0:I=5 

1810 1*1+1: IF I>LEN(M$) THEN RETURN 

1820 R$=MID$(M$,I,1) :IF R$<>"#" AND R$<>"*" THEN 1810 
1830 IF R$="*" THEN 1880 
1840 FM=1 

1850 M$=LEFT$(M$,I-1)+RN$+RIGHT$(M$,LEN(M$)-I) 

1860 I=I+LEN(RN$) 

1870 GOTO 1810 

1880 FS=1 

1890 M$=LEFT$(M$,I-1)+RS$+RIGHT$(M$,LEN(M$)-I) 

1900 RETURN 

2000 IN$=OPC$(I0) 

2005 T=ASC(IN$)-ASC("0") 

2010 IF T<1 OR T>9 THEN T=0 ELSE IN$=RIGHTS (IN$,LEN (IN$ 

2015 FOR 1=1 TO LEN(IN$) 

2020 IF HID$(IN$,I f l)=" " THEN 2045 

2025 NEXT I 

2030 I0$=IN$+STRING$(5-LEN(IN$) ," ") 

2035 11$=-" 

2040 GOTO 2055 

2045 I0$=LEFT$(IN$,I)+STRING$(5-I," ") 

2050 I1$=RIGHT$(IN$,LEN(IN$)-I) 

2055 ON T+l GOTO 3000,3100,3200,3300,3400,3500,3600,370 

0,3800,3900 
2200 DIM OPCS(607) ,FLD$(7) 
2205 RESTORE 

2210 FOR 1=0 TO 7:READ FLD$(I):NEXT I 
2215 1=0 

2220 READ OPC$(I) 

2225 IF LEFT$(OPC$(I) ,1)<>"1" THEN 2240 
2230 FOR J=l TO 7 :OPCS ( I+J) =OPCS (I) :NEXT J 
2235 1=1+7 

2240 I=I+1:IF I<=607 THEN 2220 
2250 RETURN 
2300 DATA "B", "C" , "D", "E" , "H" , "L" , "*" , "A" 




Program continues 



Other Models 

*LNW DEMI-CASE..$32.50 

*LNW SHROUD $27.50 

*"80" SHROUD $24.50 

Add $2.50 shipping & handling 
N.Y.S. residents add 7% sales tax 

^358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 

"Specializing In Electronic Packaging" 



TRS-80 " SOFTWARE 

For The Model 1 6 Model III Computers 

MACHINE LANGUAGE 
SOFTWARE 

MONITOR *3 $39.95 

Disassembler, memory displays, memory 
move, search verily, and modily. read and 
write object tapes, hexadecimal arithmetic, 
object code relocator. unload programs for 
disk, symbolic output tapes, 41-page in- 
struction manual 

MONITOR #4 $49.95 

Same as Monitor #3 but adds save and read 
disk files, direct input and output ol disk 
sectors, send, receive, or talk to another 
computer via RS-232-C interface, symbolic 
disassembly on disk 

SMART TERMINAL $69.95 

Enables your TRS-80 to be used as a remote 
terminal to a time-sharing system Supports 
lowercase and full range of control keys 
Automatic transmission between memory 
and host computer Much more 

FASTSORT $9.95 

Machine-language sorting program for use 
by Basic programs Many times faster than 
other methods' 

BASIC SOFTWARE 

MAILING LIST $69.95 

Maintains mailing list files of over 1000 
names per diskette Add, delete, change, 
find name, machine language sort, pi irit file 

SMALL BUSINESS 

ACCOUNTING $49.95 

Based on Dome Bookkeeping Journal H612. 
keeps track of income, expenditures, and 
payroll for a small business of up to 16 
employees Daily, monthly, year-to-date 
summaries 



14 Lexington Road, New City. N.Y. 10956 

' TRS-80 is a registered trademark ol Tandy Corp ^103 



• See List ot Advertisers on page 322 
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EPROM-80 FOR TRS-80 

Programmer for 2700 Type EPROMs 
(2704/08, 2758, 2716, 2732, 2732A, 
Mostec 2764, Intel 2764) 




The logical solution to EPROM programming! One program 
tor all type EPROMs. Timing under software control. 28 pin 
zero insertion torce socket. No external power supplies 
required. 36" ribbon cable connects directly to expansion 
interface. Average programming time 100 seconds per 1K 
bytes. Includes program on disc and cassette. Program 
operated in two modes. Mode 1: EPROM type select. Program 
prompts user to set 4 toggle switches depending upon 
EPROM type. Mode 2: Type of action: Reads one EDTASM 
file from disc or cassette (assembled anywhere) into buffer. 
Reads EPROM data into buffer. Writes buffer data to EPROM 
Automatic verify after write. And More. Minimum require- 
ments: TRS-80 LEVEL 2, 16K RAM PRICE $290.00 

CANTECHDATA -483 

7826 W. ARGYLE, NORRIDGE, ILL 60656 
PHONE (312) 887 0161 



TRS-80" 

16K- LEVEL II 

SOFTWARE 



VACATION PLANNER $14.95 

Guides you through a complete analysis of your 
vacation plans. Gives you Ideas, details costs, lets 
you compare several different vacations. Fly, drive, 
resort, sightseeing, camping and more. Organizes 
your vacation and supplies you with print-outs if you 
have a lineprlnter. If you take your vacation seriously. 
let your TRS-80 help you get the most out of it. 

MINI-LEDGER 

(SMALL BUSINESS GENERAL LEDGER) 

$29.95 

Easy to set up your books with this easy to use 
program. 40 accounts, 60 checks per month, reports 
to screen or if you have a lineprinter you can maintain 
hardcopies of your reports. Balance your checkbook. 
A must for a home, part-time, or any other business 
operation not having many transactions per month. 

To order send cash, check or money order. Allow 2 
weeks extra for personal checks. We pay postage, 
sales tax is included with price. Listing of other 
software available. 

RAM Intelligence ^492 

P.O. Box 985 

Rancho California, California 92J30 

"TRS-80 is a registered trademark 

of Tandy Corp. 



TRS-80 Baseball . . . Graphics Style 




UK Level II Cost 31K Disk 

$12.95 $15.95 

N C ReaidenU Add «% Sale* Tai 

•Model 111 Compatible 'True Graphics - Not A Simulation 

•High-Speed Machine Language .Two-Player Capability 

•Not Available From Other Source* 

Call For Qsotei On All TRS-aa Equipment, Peripheral., a Acceitorie.. 

Order Now! — Phone .lt-M4-Z*M 

Radio /hack 

DEALER 

Send Chech Or Money Order To : ^490 

King Electronic.. Town a Country 
Shopping Center. Aberdeen. N.C. talis 



Phone IIMM4M 
Open IM Mon.-Sal. 



Program continued 



2400 DATA "NOP","3LD BC","LD (BC),A","INC BC", INC B 

2405 DATA "DEC B","2LD B" , "RLCA" , "EX AF,AF'","ADD #,BC 

2410 DATA "LD A,(BC)","DEC BC","INC C","DEC C","2LD C 

2415 DATA "RRCA" , "4DJNZ B","3LD DE" , "LD (DE),A","INC DE 



2420 DATA "INC D","DEC D" 



"2LD D","RLA","4JR","ADD t,DE 



2425 DATA "LD A, (DE) " , "DEC DE","INC E","DEC E" , "2LD E 

2430 DATA "RRA","4JR NZ","3LD #","8LD #","INC #" 

2435 DATA "INC H","DEC H","2LD H" , "DAA" , "4JR Z","ADD #, 

#" 

2440 DATA "6LD #","DEC #","INC L","DEC L","2LD L , CPL 

2445 DATA "4JR NC","3LD SP","8LD A", "INC SP","INC * 

2450 DATA "DEC *","2LD *" , "SCF" , "4JR C","ADD #,SP 

2455 DATA "6LD A", "DEC SP","INC A", "DEC A","2LD A , CCF 



2460 

2465 
2470 
2475 
2480 
2485 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2600 
2605 
2610 



1LD E","1LD H","1LD 

A" 
NZ" 



2615 

2620 

2625 

2630 

2635 

2640 

2700 

2705 

2710 

2715 

2720 

27 25 

27 30 

2735 

2740 

27 45 

2750 

2755 

2760 

2765 

2770 

2775 

2800 

2805 

2810 

2815 

2820 

3000 

3010 

3020 

3100 

3110 

3120 

3130 

3140 

3200 

3210 

3220 

3230 

3240 

3250 

3300 

3310 

3320 

3330 

3340 

3350 

3400 

3410 

3420 

3430 

3440 

3450 

3500 

3510 

3520 

3530 

3600 

3610 



DATA "1LD B","1LD C","1LD D 
L" 

DATA "1LD *","1LD A","1ADD A","1ADC A","1SUB 
DATA "1SBC A","1AND","1X0R","10R","1CP" 
DATA "RET NZ","POP BC","3JP NZ" , "3JP" , "3CALL 
DATA "PUSH BC","2ADD A","RST 0","RET Z","RET" 
DATA "3JP Z","9","3CALL Z" , "3CALL" , "2ADC A" 
DATA "PUSH BC","2ADD A","RST 0","RET Z","RET 
DATA "3JP Z","9","3CALL Z" , "3CALL" , "2ADC A" 
DATA "RST $8", "RET NC","POP DE","3JP NC" 
DATA "70UT A","3CALL NC","PUSH DE","2SUB A 
DATA "RST $10", "RET C" , "EXX" , "3JP C","5IN A" 
DATA "3CALL C","9","2SBC A", "RST $18" 
DATA "RET PO","POP #","3JP PO","EX (SP),# 
DATA "3CALL PO","PUSH #" , "2AND" , "RST $20" 
DATA "RET PE","JP (#)","3JP PE","3X DE,HL" 
DATA "3CALL PE" , "9" , "2XOR" , "RST $28" 
DATA "RET P","POP AF","3JP P", "DI" , "3CALL P 
DATA "PUSH AF","20R","RST $30", "RET M" 
DATA "LD SP,#","3JP M" , "EI " , "3CALL M" 
DATA "9","2CP","RST $38" 
REM CBXX 

DATA "1RLC","1RRC","1RL","1RR" 
DATA "1SLA","1SRA","9","9","9","9","9","9 
,"1SRL" 

DATA "1BIT 0","1BIT 1","1BIT 2","1BIT 3" 

4","1BIT 5","1BIT 6","1BIT 7" 

0","1RES 1","1RES 2", "IRES 3" 

IRES 4", "IRES 5", "IRES 6", "IRES 7' 



,"9", "9' 



DATA "1BIT 
DATA "IRES 



DATA 

DATA "1SET 



","1SET 1","1SET 2","1SET 3" 
DATA "1SET 4","1SET 5","1SET 6","1SET 7" 
REM ED40 - ED7F 

DATA "IN B, (C)","OUT (C),B","SBC HL,BC" 
DATA "8LD BC" , "NEG" , "RETN" , "IM 0","LD I, A" 
DATA "IN C,(C)","OUT (C),C","ADC HL,BC" 
DATA "6LD BC" , "9" , "RETI " , "9" , "LD R,A 
DATA "IN D,(C)","OUT (C),D","SBC HL,DE" 
DATA "8LD DE" , "9" , "9" , "IM 1","LD A, I" 
DATA "IN E,(C)","OUT (C),E","ADC HL,DE" 
DATA "6LD DE" , "9" , "9" , " IM 2","LD A,R" 
DATA "IN H,(C)","OUT (C),H","SBC HL,HL" 
DATA "8LD HL" , "9" , "9" , "9" , "RRD" 
DATA "IN L,(C)","OUT (C),L","ADC HL,HL" 
DATA "6LD HL" , "9" , "9" , "9" , "RLD" 
DATA "9", "9", "SBC HL,SP","8LD SP" 
DATA "9", "9", "9", "9", "IN A,(C)","OUT (C) ,A 
DATA "ADC HL,SP","6LD SP" , "9" , "9" , "9" , "9" 
REM EDA0 - EDBF 



LDI","CPI","INI","OUTI","9","9","9","9" 
LDD","CPD","IND","OUTD","9","9","9","9" 
LDIR","CPIR","INIR","OTIR","9","9","9", 
LDDR" , "CPDR" , "INDR" , "OTDR" ,"9", "9", "9", 



DATA 

DATA 

DATA 

DATA 

DL=1 

M$=I0$+I1$ 

RETURN 

DL=1 

IF LEN(I1$)<>0 THEN Il$=Il$+"," 

M$=I0$+I1$+FLD$(I0 AND 7) 

IF 10=118 THEN M$="HALT" 

RETURN 

DL=2 

IF LEN(I1$)<>0 THEN Il$=Il$+"," 

C = I1 

GOSUB 5000 

M$=I0$+Il$+"$"+C$ 

RETURN 

DL=3 

IF LEN(I1$)<>0 THEN Il$=Il$+"," 

C=256*I2+I1 

GOSUB 5020 

M$=I0$+Il$+"$"+C$ 

RETURN 

DL=2 

IF LEN(I1$)<>0 THEN Il$=Il$+"," 

IF IK128 THEN C=L+2+Il ELSE C=L+2 + Il-256 

GOSUB 5020 

M$=I0$+Il$+"$"+C$ 

RETURN 

DL=2 

C=I1 

GOSUB 5000 

GOTO 3630 

DL=3 

C=256*I2+I1 



"9" 
"9" 



Program continues 
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NO SYSTEM is the system many people 
use with their only priority being past dues. 

Billist keeps track of bills due, bills paid, check 
numbers, dates paid and even repetitive cash 
payments! 

Billist will keep track of up to 100 accounts a month. 
Store data on an inexpensive cassette with a 
complete listing of accounts, if printer equipped. 

Billist allows six priorities. 

Sort by priority, name or date due; compress; delete; 
advises you when an account is late! 

Billist becomes indispensable . . . providing current 
account information without digging through the pile. 

—THIS MONTH'S SPECIAL— 
6.95 for the listing (lib.) 
10.95 for the cassette (1 lb.) 
Required equipment RS. Lvl II or III with 16K 
STK#126 

MASTERGUESS 

♦ ♦ • a challenge beyond Mastermind! 

Masterguess by Elf II offers a test of logic enhanced 
by the creative use of TRS 80 graphics. 

AVAILABLE NOW FOR ONLY $6.95 

Required equipment RS. Lvl II or III, 16K STK #127 

SHIPPING RATES 

• $2.50 for first 3 lbs. . . .55$ ea. add'l. lb. 

• COD's add $2.00 

• Canadian order, please add 75$ per lb. 

• P.O. Boxes — include phone for UPS 
Please allow 2 to 3 weeks for checks to clear. 
3% cash discount (cash, check, money order or 
COD.) 

P.O. Box 1567, Wheat Ridge, Colorado 80033 

Colorado Residents add 3% Sales Tax 

P.O. Box 1017, Medina, Ohio 44258 

Ohio Residents add 5V2% Sales Tax 

24 Hour phone Order Line 1-303-431-4154 



-' ' 



COMPUTER ACCESSORIES & 
EQUIPMENT 

STOCK NO. PRINTERS 



PRICE 



113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 



Okidata microline 80 $ 475.00 

Okidata microline 82 614.00 

Okidata microline 83 912.00 

Tractors 70.00 

RS-232-256 char, buf 180.00 

RS-232 2K char, buf 264.00 

Epson Mx-80 525.00 

Centronics 737-1 720.00 

MPI 88G 659.00 

Vista Daisy Wheel 1545.00 

NEC 5510 or 5530 2845.00 



Shipping and insurance included on all Printers to 48 
continental states. Blue Label to Hawaii and Alaska available. 
STOCK NO. RIBBONS PRICE WT. 



109 

110 
111 

112 



■ & '. 



Zip pack LP I,II,IV 
Multistrike carbon 

Diablo hy type 

Qume 

NEC 



$17.75/4 

12.95/3 

9.95/3 

20.45/3 



VERBATIM 
w/DATALIFE ,M (with hub rings) 



103 
104 
105 



106 
107 



MD 525-01, 26.95 

MD 525-10 26.95 

MD 525-16 26.95 

(for plastic box, add $1.00/box) 
10 boxes, mix or match $252.50 

FD 34-8000 39.95 

(x 10 $360.00) 
with hub ring 43.95 

and hard box (xlO $400.00) 









CASSETTES TDK/ 
MAXELL 


PRICE 


SHPG. 
WT 


100 
101 
102 


D-C30/LN-30 
D-C60/LN-60 
D-C90/LN-90 

TERMINALS 


$14.95/10 
18.45/10 
22.95/10 


31b. 
31b. 
31b. 


124 


HazeltineH1410 
MEMORY CHIPS 


$765.00 
(free shipping) 






!ATA INC. 



125 






Motorola 

MCM4116AC20; 
16K.200 ns. memory 
chips for mod I, 
expansion interface 
and mod III 

ONLY SO SETS AVAILABLE 



$21.95/8 
(shunts not 
included) 



2 lbs. 



:■!?,:■ 









.*** 



.".: ; . ." 




A STATISTICAL 

ANALYSIS PACKAGE 

BETTER THAN 

SPSS OR SAS? 

StatPac is better. And it's de- 
signed specifically for the Model 
I or III TRS80. 

All phases of research analysis can be 
processed including: 

• frequency analysis 

• crosstabs & chi-square 

• correlation & linear 
regression 

• multiple linear regression 

• descriptive statistics 

• t-test 

• analysis of variance 

• management reports 

The complete 3-disk program is $185. 
An extensive step-by-step user's man- 
ual is included or may be purchased 
separately for $30 and applied to pur- 
chase of disks. MasterCard and VISA 
accepted. 

For more information and a free 
16-page brochure write or call: 

612/866-9022 

Walonick Associates 
5624 Girard Ave. So. " 363 
Minneapolis, MN 55419 



Program continued 



3620 
3630 
3640 
3650 
3700 
3710 
3720 
3730 
3800 
3810 
3820 
3830 
3840 
3850 
3900 
3910 
3920 
4000 
4010 
4020 
4025 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 



GOSUB 5020 

IF LEN(I1$)<>0 THEN Il$=Il$+", " 

M$=I0$+Il$+"($"+C$+") " 

RETURN 

DL = 2 

Oil 

GOSUB 5000 

GOTO 3830 

DL=3 

C=256*I2+I1 

GOSUB 5020 

IF LEN(I1$)<>0 THEN IlS=","+Il$ 

M$=I0S+"($"+C$+")"+IlS 

RETURN 

DL = 1 

M$="???" 

RETURN 

C=L 

GOSUB 5020 

L$=C$+" " 

DS="" 

FOR LT=L TO L+DL-1 

CT=(PEEK(LT) AND 127) 

IF CT<32 THEN CT=46 

L$=L$+CHR$(CT) 

C=PEEK(LT) 

GOSUB 5000 

D$=D$+C$+" " 
NEXT LT 
LS=L$+STRING$ (6-DL, " ") +D$+STRING$ (3* (5-DL) 



»)+■ 



4120 L=L+DL 
4130 RETURN 
5000 C$=MID$(HX$,INT(C/16)+1,1)+MID$(HX$, (C AND 15)+1,1 

) 
5010 RETURN 
5020 CT=INT(C/256) 
5030 C$=HID$(HXS,INT(CT/16)+1,1)+HID$(HX$, (CT AND 15)+1 

,1) 
5040 CT=C-256*CT 
5050 C$=C$+HID$(HX$,INT(CT/16)+1,1)+MID$(HX$, (CT AND 15 

)+l,l) 
5060 RETURN 



NEWDOS/80 users 

"CHAIN USER/JCL" 

Operate your system like the professionals 
do with DO files. Issue instructions to the 
operator and/or supply commands to the 
computer. NEWDOS/80 provides a little 
used 'chain' facility which, when used, 
provides procedure type execution the 
same as big systems. This utility is an 
interactive maintenance program which 
allows you to create and maintain single or 
multi-sectioned chain files for use with 
NEWDOS/80. Specify simple command 
words as PAUSE, DISPLAY, COMMENT and 
SECTION or any other DOS or BASIC 
command. Chain files may be built, listed, 
printed and executed. 



Program is distributed on diskette for 32K 
or 48K Model I. User Documentation and 
example included. Only $15.95 postpaid. 
CT residents add sales tax. Payment by 
check or money order. ORDER NOW! 



mm Software 

140 Cheney Road 

Marlborough, CT 06447 

Tel. (203) 295-9482 



k-479 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 

Options & Futures 
Stocks & Bonds 
Convertible 
& Other Hedges 
Portfolio Position 
Tax Positions 
Market Timing 

Write or call: 
Bayesian ^i 86 
Investment 
Services 

Dept. H3 

757 Santa Rosita 

Solana Beach, CA 92075 

(714)755-6225 




Does Your 

Computer Have 

the BLAAS? 



Give It 

a Dose 

of S-IQOl 




WHY S-IOO? 

• The S-100 Bus (lEEE 696) can add the 
computing POWER you need. 

• No practical limit to its CAPACITY. 

• Add 32k. 64k. 128k. 256k. 512k 
or MORE of RAM. 

• Add 8 or moredisc drive units 
(40 MEGABYTE each) if you like. 

• More ECONOMICAL than a new system. 

• No need to add bulky, expensive 
peripherals, just CARDS. 

• Many. MANY manufacturers of S-100 
(eliminating expensive sole source). 

HOW S-IOO? 

• Adapter from S95 00 (kit) available 
for TRS-80. Pet. Apple and others. 

• Mainframes from S3IO 



Lomputer Wit ^im 

INCORPORATED 

5620 1761b Street S.W. 

Lynnwood, Washington 98036 

(206) 743-4336 



formerly HUH 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES F0R TRSW Model I 

CCMOO 5V4", 40 Track (102K) $314 



ADDON DRIVES FOR ZENITH Z-89 
CCI-189 5 1 /4", 40 Track (102K) $394 

Z-87 Dual 5 V* " system $995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 



PRINTERS 




RAW DRIVES 

5V«"TEACorTANDON 



$CALL POWER SUPPLIES $CALL 



DISKETTES -box of 10 

5V4" Maxell $40 

8" Maxell $45 

PLASTIC FILE BOX- Holds 50 5V«" diskettes 

PLASTIC LIBRARY CASE 5%" $3.00 

HEAD CLEANING DISKETTE 

FLOPPY SAVER $11.95 



BASF/Verbatim 
BASF/ Verbatim 



RINGS 



16K RAM KITS 

200 ns for TRS-80,* Apple 



II, 



2 for $37 
(specify): Jumpers 



$26.95 
$36.00 
$19.00 
$ 4.00 
$25.00 
$ 6.95 

$19 

$2.50 



SYSTEM SPECIAL 

Apple II Plus 48K w/drive and controller. Epson MX-80 printer and 
interface. SUP-R Mod RF Modulator: List $2965 You Pay $2299 



COMPUTERS/TERMINALS 

ARCHIVES 64K, 2-Drives, 77 Track 

ALTOS ACS8000 Series 

TRS-80* II-64K $3499 

ZENITH 48K, all-in-one computer 

ZENITH Z-19 

TELEVIDEO 920C $ 729 

IBM 3101 Display Terminal 

ATARI 400 $ 479 

MATTEL INTELLIVISION 
APPLE PERIPHERALS 



I-16K 



950 



800 



SCALL 
SCALL 
$ 899 
$2200 
$ 725 
$1039 
$1189 
$ 795 
$ 229 
SCALL 




NEC SPINWRITER 

Letter Quality High Speed Printer 

R.O. 

R.O. with tractor feed 

KSR with tractor feed 



MX100 



NEC SPINWRITER 3500 Series, 5 new models 

EPSON MX-70 MX-80 MX-80FT 

PAPER TIGER 

IDS 445 Graphics & 2K buffer 

IDS 460 Graphics & 2k buffer 

IDS 560 Graphics 

ANADEX DP-8000 $ 849 DP-9500/01 

OKIDATA 

Microline 80 Friction & pin feed 

Microline 80 Friction, and pin & tractor feed 

Microline 82 Friction & pin feed feed 

Microline 83 120 cps, uses up to 15" paper 

CENTRONICS 739, new model with graphics 

PRINTER SPECIAL 

SEIKOSHA GP-80M List $399 



$2395 
$2555 
$2795 

SCALL 
SCALL 

$ 695 

$1050 
$1450 
$1295 



415 
500 
615 
849 
825 



You Pay $319 



MONITORS 

BELL& 

HOWELL 9"B&WBHD911 

LEEDEX 12"B&W $ 129 
SANYO 9"B&WVM4509 

SANYO 12" B&W DM5012 

SANYO 12" Green Screen DM5112 

SANYO 13" Color DMC6013 

ZENITH 13" Color 

TELECOMMUNICATIONS 

LIVERMORE STAR MODEM 2-year guarantee 
UNIVERSAL DATA SYSTEMS UDS-103 
D-CAT HARD WIRED DIRECT MODEM 
AUTO-CAT Auto Answer, Direct Connect Modem 
D.C. HAYES MICRO-MODEM 
CCI Telnet Communications Package 



13" Color 



$195 
$369 
$149 
$219 
$238 
$406 
$349 



$125 
$179 
$189 
$249 
$295 
$135 



S-100 CALIFORNIA COMPUTER SYSTEMS APPLE ACCESSORIES AND SOFTWARE 




MAINFRAME 

Z80CPU 

MOTHER BOARD 

16K STATIC RAM, 200ns 

32K STATIC RAM, 200ns 

64K DYNAMIC RAM 

FLOPPY DISC CONTROLLER 

EXTENDER BOARD 

2P + 2SI/0 



Model 2200A 
Model 2810 
Model 2501 
Model 21 16C 
Model 2032C 
Model 2065C 
Model 2422A 
Model 2520K 
Model 271 8A 



$349 
$259 
$106 
$309 
$619 
$580 
$345 
$ 52 
$309 



VISICALC 
DB MASTER 
Z-80 SOFTCARD 
VIDEX BOARD 
KEYBOARD ENHANCER 
16K CARD 
APPLE JOYSTICK 
SUP-R MOD 
CCS CARDS 

GALAXIAN 

SPACE ALBUM 

ASTEROIDS 

FLIGHT SIMULATOR / 

WIZARD & PRINCESS / 

SARGON 2 / 




$155.00 
$159.00 
$259.00 
$259.00 
$110.00 
$169.00 
$ 49.00 
$ 25.00 
SCALL 



HIRES FOOTBALL 
MYSTERY HOUSE 



22.95 
35.00 
17.95 
29.00 
28.00 
29.00 
35.00 
24.00 



For fast delivery, send certified checks, money orders or call to arrange 
to three weeks to clear. All prices are mail order only and are subject 



direct bank wire transfers. Personal or company checks require two 
to change without notice. Call for shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



The CPU SHOP . 



TO ORDER CALL TOLL FREE 1-800-343-6522 

TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



5 Dexter Row, Dept. MC08M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. till 5) 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/^Digital Research 




■ See List ol Advertisers on page 322 
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APPLICATIONS 



A slide and negative indexing program. 



Hold That Pose 



Doug and Pam Ebert 
301 N. Clement 
Aviston, IL 62216 



Are you plagued with boxes of jumbled 
photos or slides? Have you spent 
hours looking for a picture you just took last 
week? For the serious amateur or profes- 
sional photographer, keeping track of your 
creative efforts can be time consuming and 
confusing. 

Here's the program that's a perfect ac- 



cessory for your camera. You can index 
your negatives, photos and slides with a 
simple numbering system. Not only will 
each photo be cross-referenced under three 
subjects, but exposure data (i.e. date taken, 
f/stop, shutter speed) can be recalled on 
each entry when needed. 

Listing Options 

This program allows you to see all the 
photos you have in the index or list photos 
by subject area or a particular special ef- 
fect. No longer will you sort through stacks 
of slides looking for pictures of a certain 



Program Listing. 



10 'PHOTO INDEX PROGRAM 

20 'BY DOUG & PAM EBERT 

30 '119 E MAIN, LEBANON, IL 62254 

40 CLS : PRINT @410," STAND-BY" 

50 CLEAR4500 

60 DEFINTN,P,S,D,F,L,R,I,J,C 

70 DIMN(600) ,PS(600) ,S1(600) ,S2(600) ,Dl(600) ,D2(600) ,OS(600) ,SH$ 

(600) ,L1(600) ,L2(600) ,F1(600) ,F2(600) 

80 DIMDA$(32) ,LN$(14) ,FL$(9) 



90 FA$=" ### 

100 FB$=" ### 

%" 
110 FC$=" DATE 



% 



% 



% 



F/##.# 



% 



% 



% 



% 



% 



% 



%' 



% 



% 



% 



% 



% 



% 



% 



120 FD$="##/## 

130 FE$=" ##. % 

140 FF$="##. % 

150 'READ DATA STRINGS 

160 F0RI=1T032 

170 READDA$(I) :NEXTI 

180 F0RI=1T014 

190 READLN$(I) :NEXTI 

200 F0RI=1T09 

210 READFL$(I) :NEXTI 

220 'READ DATA TAPE 

230 R=0 

240 CLS:INPUT"DO YOU WISH TO LOAD A DATA TAPE";YN$ 

250 IFLEFT$(YN$,1)="Y"GOSUB3500 

260 CLS:PRINT@155,"PHOTO INDEX" : PRINT: PRINT 

270 PRINT"1 - INSTRUCTIONS": PRINT" 2 - LIST ENTRIES" :PRINT"3 - 

ADD AN ENTRY" 
280 PRINT"4 - DELETE AN ENTRY" : PRINT" 5 - SAVE INDEX ON TAPE":P 
RINT"6 - PRINT OUT INDEX" : PRINT: PRINT 
290 INPUT"ENTER MODE DESIRED" ;CH 
300 IFCH<1ORCH>6GOTO290 
310 ONCHGOSUB500, 1000, 2000, 2500, 3000 

320 IFCH=6THENST%=PEEK( 14312) AND240: IFST%-48THENGOSUB3400ELSEPRI 
NT"PRINTER UNAVAILABLE" : FORI =1TO10 00: NEXTI 
330 GOTO260 
500 'INSTRUCTIONS 
510 CLS:PRINT§27, "INSTRUCTIONS": PRINT 

Program continues 



subject— the computer will search the in- 
dex for you. 

Need to know how that picture of an or- 
chid was taken? Enter the file number of the 
photo in list mode #4 (Table 2) and the list- 
ing will include the f/stop, shutter speed, 
lenses and special effects used. 

If you have a printer, use the photo index 
option #6 (Table 1) and you won't need to 
keep a written copy of the entries in case of 
an I/O error. 

The Data Tape 

After setting up memory areas, the pro- 
gram will ask if you want a data tape read in; 
respond with a no if this is your first run. On 





1-lnstructions 




2-List Entries 




3-Add An Entry 




4-Delete An Entry 




5-Save Index on Tape 




6-Print Out Index 




Table 1. Photo Index 




1) All Entries 




2) By Subject 




3) By Special Effect 




4) By File Number 




5) Return to Menu 




Table 2. List Modes 


N 


= File number 


PS 


= Primary Subject 


S1 


= Secondary subject 


82 


= Secondary subject 


D1 


= Month photo was taken 


D2 


= Year photo was taken 


OS 


= F/stop 


SHS 


= Shutter speed 


L1 


= Lens used 


L2 


= Secondary lens 


F1 


a Filter/special effect used 


F2 


= Secondary filter/special effect 


DAS 


= Subject names 


LN$ 


= Lens names 


FL$ 


= Filter/special effect names 




Table 3. Variables 
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"This program allows for easy modification to fit 

your needs. As it appears here, the program 

needs 32K. . . and holds a total of 600 entries." 



subsequent runs the computer will read in 
the data you saved on tape at the end of a 
previous run and will compute the number 
of entries you now have on file. (The com- 
puter automatically checks the tape to in- 
sure it is photo data and will respond with 
an incorrect data tape message if it is the 
wrong tape or not fully rewound.) Add or de- 
lete entries as needed and before ending 
the run, save the Index on tape by using the 
photo index option #5. 

Preparing Photos 

In order to use this program effectively, 
go through the photos, negatives and slides 
you already have. As you enter each photo 
in the index, give any data asked for that you 
have available. Perhaps you don't know the 
f/stop or lens used— just enter 00 or NONE 
as applicable. Be sure to record the file 
number on each photo and its negative as 
you enter it in the computer. Write numbers 
lightly on the backs of photos and corners 
of slides. Negatives can be stored in num- 
bered envelopes or specially-made sleeves. 

The computer generates each new file 
number for you— just record the number on 
the photo and store it in numerical order. To 
update the index, sit down for a few minutes 
when you get a new set of photos and enter 
them. Then you'll be able to find any picture 
with ease when you want it. 

Modifications 

This program allows for easy modifica- 
tion to fit your needs. As it appears here, the 
program needs 32K of memory and holds a 
total of 600 entries. For a 16K system the 
number of entries would decrease to 150. 
You must then edit lines 50 and 70 to fit your 
computer's memory. Line 50 would be 
CLEAR 2200 and line 70 would look like this: 
DIMN(150),PS(150).... Also change line 
3550 to FORI = 1TO150. 

All of the subject areas, lenses and spe- 
cial effect choices are in data statements at 
the end of the program, lines 6001-6006. If 
you take more photographs of football than 
of mountains, just change subject names to 
fit your needs. The types of lenses and spe- 
cial effects can be modified in the same 
way. Please note that there is a six-charac- 
ter limit on subject names, eleven on lens- 
es, and ten on special effects. To add 
names to any of these classifications, you 
must increase the respective dimension 
statement in line 80. Also, change the lines 
which print the information tables: lines 160 
and 4020 for subject types, 180 and 4120 for 
lens types, and lines 200 and 4220 for spe- 
cial effect types. 

So put a new roll of film in your camera. 
You've got time to take more pictures and 
know you can find them when you're 
through. ■ 



Program continued 

520 PRINT"THIS PROGRAM CREATES AN INDEX TO CATALOG & SORT PHOTOS 

530 PRINT"THE 'LIST ENTRIES' MODE WILL DISPLAY A LIST OF ALL PHO 

TOS: 

540 PRINTTAB(IB) "A) IN CATALOG" :PRINTTAB(10) "B) OF A PARTICULAR 

SUBJECT" 

550 PRINTTAB(10) "C) USING A SPECIFIC SPECIAL EFFECT" :PRINTTAB( 10 

)"D) BY ENTRY NUMBER" 

560 PRINT"THE 'ADD ENTRY' MODE ALLOWS ADDITION OF NEW PHOTOS TO 

THE" 

570 PRINT "CATALOG IN MEMORY." 

580 PRINTTAB(IB) "FOR EACH ADDITION, THE PROGRAM WILL SUPPLY THE 

PHOTO" 

590 PRINTTAB( 10) "NUMBER. USER MUST INPUT EXPOSURE DATA AND PRIM 

ARY" 

600 PRINTTAB( 10) "SUBJECT. USER MAY ALSO CROSS-REFERENCE EACH PH 

OTO" 

610 PRINTTAB(IB) "IN TWO ADDITIONAL SUBJECT CATEGORIES." 

620 PRINTTAB(5) "PRESS ANY KEY TO CONTINUE" 

630 I$=INKEY$:IFI$=""GOTO630 

640 CLS:PRINT"THE 'DELETE ENTRY' MODE REMOVES PHOTO FROM CATALOG 

IN MEMORY.": PRINT 
650 PRINT"THE 'SAVE INDEX ON TAPE' MODE PLACES THE CATALOG IN ME 
MORY" 

660 PRINT"ONTO A CASSETTE TAPE FOR FUTURE USE.": PRINT 
670 PRINT"THE 'PRINT OUT INDEX' MODE CREATES A HARD COPY OF THE 
CATALOG" 

680 PRINT" (WITH AN IN-LINE PRINTER)." 

690 PRINT: PRINTTAB( 5) "PRESS ANY KEY TO RETURN TO MENU" 
700 I$=INKEY$:IFI$=""GOTO700 
710 RETURN 

1000 'LIST ENTRIES MODE 

1010 CLS:PRINT@150, "CHOOSE LIST MODE DESIRED" : PRINT: PRINT 
1020 PRINTTAB(10) "1) ALL ENTRIES" :PRINTTAB(10) "2) BY SUBJECT" :PR 
INTTAB(10) "3) BY SPECIAL EFFECT" 

1030 PRINTTAB(10) "4) BY FILE NUMBER" :PRINTTAB(10) "5) RETURN TO M 
ENU" 

1040 PRINT: INPUT"ENTER LIST M0DE";CH 
1050 IFCH<1ORCH>5GOTO1040 
1060 IFCH=5RETURN 

1070 ONCHGOSUB1250, 1500, 1700, 1800 
1080 GOTO1010 
1250 'LIST ALL ENTRIES 
1260 C=0:GOSUB4300 
1270 FORI=lTOR 
1280 IFPS(I)=0GOTO1310 

1290 C=C+1:PRINTUSINGFA$;N(I) ,DA$(PS(I)) ,DA$(S1(I)) ,DA$(S2 ( I) ) ,D 
1(I),D2(I) 

1300 IFC=10THENGOSUB1360 
1310 NEXTI 

1320 C=10-C:FORI=1TOC: PRINT: NEXTI 

1330 PRINT§896,"END OF DATA PRESS ANY KEY TO RETURN TO LIST ME 
NU " 

1340 I$=INKEY$:IFI$=""GOTO1340 
1350 RETURN 

1360 PRINT: INPUT" ENTER '1' TO SEE NEXT PAGE '2' TO SEE PREVIO 
US PAGE";CH 

1370 C=0:IFCH = 2THENI = I-20:IFK1THENI=0 
1380 PRINT@128," ":RETURN 
1500 'LIST BY SUBJECT 
1510 GOSUB4000 

1520 PRINT@704, "CHOOSE SUBJECT # ENTER '0' TO RETURN TO LIST 
MENU" 

1530 INPUTCH:ST=1:IFCH=0RETURN 
1540 IFCH>32GOTO1530 
1550 GOSUB5000 
1560 RETURN 
1700 'LIST BY EFFECT 
1710 GOSUB4200 

1720 PRINT"CH0OSE EFFECT * ENTER '0' TO RETURN TO LIST MENU" 
1730 INPUTCH:ST=2:IFCH=0RETURN 
1740 IFCH>9GOTO1720 
1750 GOSUB5000 
1760 RETURN 

Program continues 
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TRS-80* MODEL III 
DISK DRIVE KITS 

Process Control Technology s Disk Drive Controller 
olfers more performance for less Dollars 1 

Jumper program nearly any combination of internal 
and external Disk Drives (All four drives can be 
external, or up to two drives can be internal I 

Hardware compatable with 40. 80. or 77 track (8 
inch) drives 1 

Hardware compatable with double sided drives' 

TRS-80- MODEL III 

With Two Internal Dlik Drlvet. 32K RAM $1899 

TRS-80* MODEL III, MODEL III BASIC, 

16K RAM $899 

INTERNAL DRIVE KITS 

DISK DRIVE 1 $679 

DISK DRIVE 2 $279 

EXTERNAL DRIVES 

DISK DRIVE 3 (Includes Cable) $359 

DISK DRIVE 4 $329 

Fully Warranted for 90 Days 

•TRS-80 is a trademark of Radio Shack 



PROCESS CONTROL ^408 
TECHNOLOGY 

P.O. BOX 8825 

STOCKTON, CA 95208 

(209) 952-6576 



SINCE YOU 
COULDN'T 
WAIT 

WE DIDN'T 





INTRODUCES THE 

FIRST IN A SERIES 

OF ACTION PACKED. 

HIGH RESOLUTION ©$i 

COMPUTER SIMULATIONS. 

MET EDS 

CONTAINS HIGH RESOLUTION. SOUND ENHANCED 
LASER BLASTS COCKPIT PtRSPtCllV t , VARI ABLI SKIL1 
LFVFL ALIOMATK Ml 1T1 GAMF SCOKF 7 \\.V> AM< 

jcmTicKOPFKAnov ucnsricKsm inch df.u i 

EXCLUSIVELY DESIGNED FOR 
TRS-80* COLOR 
EXTE N I) E I) COM PITER 

S,n.l check or money order I18.9S 
1MB : ILLUSTRATED MEMOm BANKS 
P.O. BOX 289 
WILLIAMSTOWN, MA 01267 1^467 

• ATRADEMARKOI TANDY CORPORATION 



Program continued 

1800 'LIST BY PIC # 

1810 CLS: INPUT" ENTER # OF PHOTOS YOU WANT TO SEE(1 TO 3)";Jl 

1820 IFJK1ORJ1>3GOTO1810 

1830 F0RI=1T0J1 

1840 INPUT"ENTER PHOTO # DESIRED"; J2 (I) :NEXTI 

1850 GOSUB3200 

1860 F0RJ=1T0J1 

1870 F0RI=1T0R 

1880 IFPS(I)=0GOTO1900 

1890 IFN(I)=J2(J)GOTO1920 

1900 NEXTI 

1910 IFI>RPRINT"ENTRY #";J2(J);" NOT FOUND" : PRINT :GOTO1930 

1920 GOSUB3300 

1930 NEXT J 

1940 PRINT0896, "ENTER • 1 ' TO LIST MORE PHOTOS ' 2 ' TO RETURN T 

LIST MENU" 

1950 INPUTCH:IFCH=1GOTO1810ELSERETURN 

2000 'ADD ENTRY 

2010 CLS:R=R+1:N(R)=N(R-1)+1 

2020 GOSUB4000 

2030 PRINT6704, "CHOOSE PRIMARY SUBJECT * FOR NEW ENTRY - #";N(R) 

:INPUTPS(R) 

2040 IFPS(R) >32GOTO2020 

2050 INPUT"CH00SE TWO SECONDARY SUBJECTS (#,#)" ;Sl (R) ,S2 (R) 

2060 IFS1 (R) >320RS2 (R) >32GOTO2050 

2070 CLS:INPUT"ENTER DATE PHOTO WAS TAKEN (MM,YY) " ;Dl (R) ,D2 (R) 

2080 IFDl (R) >120RD2 (R) >99GOTO2070 

2090 INPUT"ENTER F/STOP USED";0S(R) 

2100 INPUT"ENTER SHUTTER SPEED (1/1000, 1 MIN) UP TO 6 CHARACTER 

S";SH$(R) 

2110 GOSUB4100 

2120 PRINT: INPUT" CHOOSE BASIC LENS # USED";Ll(R) 

2130 IFL1(R) >14GOTO2120 

2140 INPUT"CHOOSE ATTACHMENT # (EX-TUBE, NONE) " ; L2 (R) 

2150 IFL2(R)>14GOTO2140 

2160 CLS:GOSUB4200 

2170 INPUT"CHOOSE BASIC EFFECT # USED";Fl(R) 

2180 IFF1(R) >9GOTO2170 

2190 INPUT"CHOOSE SECOND EFFECT #";F2(R) 

2200 IFF2(R) >9GOTO2190 

2210 GOSUB3200 

2220 I=R:GOSUB3300 

2230 PRINT:PRINT:INPUT"IS THIS DATA CORRECT" ;YN$ 

2240 IFLEFT$(YN$,1)="N"GOTO2020 

2250 INPUT"ADD ANOTHER ENTRY" ;YN$ 

2260 IFLEFT$(YN$,1)="N"RETURN 

2270 GOTO2010 

2500 'DELETE ENTRY 

2510 CLS: INPUT" ENTER PIC # TO BE DELETED ('0 1 TO RETURN TO MENU) 

";J 

2520 IFJ=0RETURN 

2530 PRINT"IS PIC # " ; J; : INPUT"T0 BE DELETED" ;YN$ 

2540 IFLEFT$(YN$,1)="N"GOTO2510 

2550 F0RI=1T0R 

2560 IFN(I)OJNEXTI 

2570 IFI>RPRINT"PIC # ";J;" NOT FOUND. " :F0RI=1T01 000: NEXTI :G0T02 

510 

2580 PS(I)=0 

2590 PRINT"ENTRY DELETED" :FORI=1TO1000: NEXTI :GOTO2510 

3000 'SAVE ENTRIES 

3010 CLS:I$="":PRINT"PREPARE CASSETTE FOR RECORDING DATA TAPE.": 

INPUT"PRESS <ENTER> WHEN READY" ;I$ 

3020 IFI$O""GOTO3010 

3030 R=R+1:N(R)=-1:PS(R)=-1:S1(R)=-1:S2(R)=-1:D1(R)=-1:D2(R)=-1: 

0S(R)=-1:SH$(R)="-1":L1(R)=-1:L2(R)=-1:F1(R)=-1:F2(R)=-1 

3040 PRI NT #-1, "PHOTO INDEX" 

3050 F0RI=1T0R 

3060 IFPS(I)=0GOTO3080 

3070 PRINT#-1,N(I) ,PS(I) ,S1(I) ,S2(I) ,Dl(I) ,D2(I) ,0S(I) ,SH$(I) ,Ll 

(I),L2(I) ,F1(I),F2(I) 

3080 NEXTI 

3090 INPUT"DO YOU WISH TO MAKE ANOTHER COPY";YN$ 

3100 IFLEFT$(YN$,1)="Y"GOTO3010 

3110 R=R-1:RETURN 

3200 'DATA HEADINGS 

3210 CLS :PRINT@24, "EXPOSURE" ;:PRINT@55, "FILTER &" 

3220 PRINT@64 , "PIC # " ; : PRINT@72 , "SUBJECTS" ; : PRINT@90 , "DATA" ; : PRI 

NT@105 , "LENS" ; : PRINT@120 , "EFFECTS" 

3230 PRINTSTRING$(63,"-") :RETURN 

3300 'PRINT ALL DATA 

3310 PRINTUSINGFB$;N(I) ,DA$(PS(I)) ,OS(I) ,LN$(Ll(I)) ,FL$(Fl(I)) 

3320 PRINTUSINGFC$;DA$(S1(I)) ,SH$(I) ,LN$(L2(I)) ,FL$(F2(I)) 

3330 PRINTUSINGFD$;D1(I) ,D2(I) ,DA$(S2(I)) :PRINT:RETURN 

Program continues 
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tern Expansion 
forTRS80's 

ntw MDX-2 system expansion board from 

[COMPUTEX provides more capabilities than any other 
system expansion currently available. 

FEATURES INCLUDE 

• Capability to build only what you need. 

• Silk screened and solder masked P.C.B. 

• Dip switches are used instead of hardware jumpers. 

• No messy vertically mounted termination resistors. 

• On board direct connect modem kit $39.95 

• 2K/4KEpromkit $17.95 

• RS232/20m. A. serial interface $17.95 
' *■ Seal time clock kit $1 7.95 

• Floppy disk controller kit $31 .95 

• 32K RAM expansion kit (less Ram) $1 1 .95 

• Cassette port $3.95 

• Analog power supply $29.95 

• MDX-2 printed circuit board $74.95 

• Hardware and socket kit $19.95 

• Centronics line printer port $8.95 

Buy just the system expansion board and those kits you 
want, or save even more and buy the complete kit. 
MDX-2 KIT COMPLETE 



DISK DRIVE SALE 



■— 



~m 



$269.00 



Model III Disk Drive 
Kits & Drives 

Now available from COMPUTEX, a Radio Shack Disk Drive 

Kit for your Model III for only $429.95. 

Compare these standard features on our list to the others. 

1. Drive Controller Board 

2. All necessary interconnecting cables 

3. Switching Power Supply 

4. Disk Drive Mounting Brackets 

5. Internal Disk Drive Cable 

6. Comprehensive installation and theory manual 

7. 16K RAM 

COMPLETE MODEL III DRIVE PACKAGES 

These packages all include, the Model III Disk Drive Kit 
and the Micro Systems Software Model III DOS. 
M3DK-1 (2-TM100-1 Drives) provides over 

350K Bytes storage 919.95 

M3DK-2 (2-TM100-2 double headed drives) provides 

over 700K Bytes storage 1 ,149.95 

M3DK-3 (2-TM100-3 80 track drives) provides over 

700K Bytes storage 1 ,199.95 

M3DK-4 (2-TM100-4 double headed 80 track drives) 

provides over 1 .4 M Bytes storage 1 ,399.95 



TANDON TM100-1 
Bare Drive $235.00 With case/supply $285.00 

Single sided 40 track • 102KB Single Density, 180KB Double Density 

TANDON TM100-2 
Bare Drive $335.00 With case/ supply $385.00 

Double sided 40 track • 204KB Single Density, 360KB Double Density 

TANDON TM100-3 
Bare Drive $335.00 With case/supply $385 

Single sided 80 track • 204KB Single Density, 360KB Double Density 

TANDON TM100-4 

Bare Drive $455 With case/supply $505.00 

Double sided 80 track • 408KB Single Density, 735KB Double Density 
All TANDON drives from COMPUTEX come with comprehensive 

users manual, TANDON maintenance manual and schematics. In 

addition, all drives are electrically tested before, during and after their 

48 hour burn in. 

DISK DRIVE ACCESSORIES 

Two Drive Cable $24.95 

Four Drive Cable $34.95 

Drive Extender Cable $14.95 

Model III Second Drive Cable $4.95 



COMPUTEX Comprehensive Test Program 

As one of the leading suppliers of disk drives and TRS80 systems, we 
had to have a systems test program that we knew worked. Since no 
complete systems test program already existed, we wrote our own. The 
COMPUTEX COMPREHENSIVE TEST (CCT) program was written 
exclusively for COMPUTEX and is now available to everyone. 

Features 

DISK DRIVE SPEED TEST • DISK DRIVE ALIGNMENT PROGRAM* 

EXPANSION INTERFACE RAM TEST • KEYBOARD RAM TEST • VIDEO RAM TEST 

KEYBOARD BOUNCE TEST • ROM CHECKSUM PROGRAM 

FULLSCREEN RAM DISPLAY PROGRAM 

'The Drive Alignment Program requires an Alignment Disk. 

The CCT program is a must for disk drive users and should be a part 

of everyones library. 

CCT Program $21.95 
Dysan Alignment Disk $39.95 



G^O 



MEMORY SPECIAL FUNCTION 



FD1771B-01 
'R16O? 
MC.1V? 
2716-450 

2R0A 

CC74SI88 

CC.27lfi.fi 



l M148H 

IIA;H05 
UA.'Hl. 
UA/UI.' 



23 95 

648 
• 2 M 



FD1793B-0I 
AYS 1013A 
MCS674 
?I14 450 



Programmed lor LNW Color CPU 
Level II Roms lor Color CPU 



Ml Mil 
MCI441 
'HHIH 
7*.4V 



7474 

7486 

7490 

7492 

7493 

7495 

74121 

74123 

74125 

74132 



74164 
74165 
74166 
74173 
74175 
74176 
74194 
74195 
74151 
74366 
74367 



74LSOO SERIES • LOW POWER SCHOTTKY 



DIODES TRANSISTORS SEMICONDUCTORS 



1N400I 
IN5231 
1N5244 
1NS?44 



48 05 KBP02 

09 2N3904 

25 2N3906 

?5 MPUI3I 

?5 J175 

CRYSTALS 

4 00 3 579 MHZ 

4 00 HHMH7 

1°. PRECISION RESISTORS 



267 OHMS 
845 OHMS 
8 66 K OHMS 
21 5 K OHMS 
165 K OHMS 

All !• 



324 OHMS 


619 OHMS 


>4 K OHMS 


2 55 K OHMS 


8 87 K OHMS 


18 7 K OHMS 


95 3 K OHMS 


97 6 K OHMS 


?10K OHMS 


237 K OHMS 


Resuiors are S 18 


nan 



I C SOCKETS 



18 PIN Low Profile 21 



7400 SERIES TTL 



74157 
74161 



74LSO0 

74LS02 

74LS04 

74LS05 

74LS08 

74LS09 

'4LS10 

74LS11 

74LS13 

74LSI4 

74LSI5 

74LS20 

74LS21 

74LS30 

74LS32 

74LS74 

74LS86 

74LS93 

74LS123 

74LS124 

74LS132 



74S04 
74S22 
74S64 



27 74LS1J9 

27 74LS153 

29 74LSI55 

39 74LS157 

27 74LS161 

32 74LS164 

27 74LS166 

71 74LS174 

56 4LS175 

1 15 74LS193 

31 74LS240 

27 74LS241 

31 74LS244 

26 74LS246 

31 74LS257 

44 74LS367 

41 74LS373 

70 74LS374 
1 18 74LS393 
1 69 74LS138 

95 

74S00 SCHOTTKY 

55 74S05 

47 74S32 

47 74S74 

71 74SI61 

1 59 74S175 

2 45 74S387 



1 10 
1.18 
165 



1 10 

l 85 
I 85 
l 85 
225 



' 85 
2 35 



1 50 

595 



LNW COLOR COMPUTER KIT 
$499.95 

(less P.C.B.) 
Includes all components to assemble the LNW color computer: high 
resolution video RAM and 16K user RAM. keyboard, and Level II compatible 
ROMS. Printed circuit board not included. 

LNW EXPANSION INTERFACE KIT 
$219.95 

(less P.C.B.) 
Includes all components to assemble the LNW Expansion Interface plus 32K 
of RAM. It does not include the printed circuit board, dual cassette relay or 
cabinet. 



A beautiful custom 
Expansion Interface. 



all wood 
$99.95 



cabinet is available for housing the LNW 



ONE YEAR GUARANTEE 

on our 200 N.S. 16K Memory Kits 

16K- $23.95 32K- $45.95 48K- $74.95 

These are top quality, new memory chips at unbelievably low prices. 




OAAfUTEX 



(713) 488-8022 



*-»392 



.':■'* 



EL.ECTRC3N.C5 CDIT1PUTER5 

321 El Dorado Blvd. • Webster, Tx. 77598 

Visa and Mastercard accepted 
Personal and company checks require two weeks to clear 

Please visit our new showroom fust off the Quit Freeway. 
We have expanded, changed our name back to COMPUTEX, 
added more personnel In order to offer you complete service 
and reliability. 



■See List ol Advertisers on page 322 
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OPTIONS-80 

BOX 471 CONCORD MA 01742 



PROGRAM FOR MAXIMIZING RETURNS 
FROM OPTION INVESTING. ANALYZES 
BUY & SELL OF LISTED CALLS, PUTS, 
SPREADS & SHARES. INCLUDES COM- 
MISSIONS, RISK, COST OF MONEY AND 
DIVIDENDS. HARDCOPY & STORAGE TO 
DISK. ACCOMPANYING MANUAL A COM- 
PLETE & UNIQUE GUIDE TO OPTION 
INVESTING. $125. SEND FOR FREE 
BROCHURE. MONEY BACK GUARANTEE. 



AUDIO ALARM DEVICE 
TRS-80 MODEL l/lll 

External Device that plugs 

directly into Cassette Port. 

Ideal for Business Applications: 

• Operator error notitication tone 

• Complements numeric keypad input 

Specifications: 

• 2V4-Wx3 , /4"Lx1V4 ,, D 

• 36" cable with cassette port plug 

• 1 pound 

• Beep lasts 2 seconds 

• Battery powered— 9 volt 

• On]y 1 line basic program 

• Install in seconds 

Inexpensively Priced 
$34.95 Audio Alarm Device 
$_ 175 Postage & Handling 

$36.70 Total Price 

(Ohio Residents Add $2.10 Sales Tax) 
MAKE CHECK -OR- MONEY ORDER PAYABLE TO: 
RSI 

231 Green Street. Dayton, Ohio 45402 
(513)461-4850 ^67 






If You've Written an 
Extraordinary Program- 
We'd Like to Publish Itl 
Programs needed for MANAGE- 
MENT applications: 

PERT ft CPM SCHEDULING 
PREDICTIVE MODELING 
DECISION-MAKING SIMULATIONS 
PRODUCTION SCHEDULING 
EXPENSE ANALYSES 

Royalty checks may be in TOUR 
future. Write for our free Pro- 
grammer's Kit today. 

INSTANT SOFTWARE. INC. ^^ 

Submissions Dept. 

Peterborough, NH 03458 



Program continued 

3400 'PRINT OUT INDEX 

3410 LPRINTTAB(24)"EXPOSURE"TAB( 55) "FILTER &" 

3420 LPRINT"PIC #"TAB( 9) "SUBJECTS"TAB(27) "DATA"TAB( 42) "LENS"TAB( 

57) "EFFECTS" 

3430 LPRINTSTRING$(63,"-") 

3440 F0RI=1T0R 

3450 IFPS(I)=0GOTO3490 

3460 LPRINTUSINGFB$;N(I) ,DA$(PS(I)) ,0S(I) ,LN$(Ll(I)) ,FL$(Fl(I)) 

3470 LPRINTUSINGFC$;DA$(S1(I)) ,SH$(I) ,LN$(L2(I)) f FL$(F2(I)) 

3480 LPRINTUSINGFD$;D1(I) ,D2(I) ,DA$(S2(I)) rLPRINT 

3490 NEXTI 

3495 RETURN 

3500 "READ DATA TAPE 

3510 CLS: INPUT" PREPARE CASSETTE WITH DATA TAPE. PRESS <ENTER> W 

HEN READY"; 1$ 

3520 IFI$O""GOTO3510 

3530 INPUT#-1,A$ 

3540 IFA$O"PH0T0 INDEX" PRINT" INCORRECT DATA TAPE" :FORI=1TO1000 : 

NEXTI :GOTO3510 

3550 FORI=1TO600 

3560 INPUT#-1,N(I) ,PS(I) ,Sl(I) f S2(I) ,Dl(I) ,D2(I) ,0S(I) ,SH$(I) ,Ll 

(I),L2(I),Fl(I),F2(I) 

3570 IFN(I)=-1GOTO3590 

3580 NEXTI 

3590 R=I-1 : PRINT: PRINTR; " ENTRIES NOW IN MEMORY" 

3600 INPUT"PRESS <ENTER> TO CONTINUE" ;I$ 

3610 IFI$=""THENRETURNELSEGOTO3610 

4000 'PRINT SUBJECTS 

4010 CLS :PRINT@24, "LIST OF SUBJECTS" 

4020 F0RI=1T032 

4030 PRINTUSINGFE$;I f DA$(I) ;:NEXTI 

4040 PRINT" ":PRINTSTRING$(64,"-") :RETURN 

4100 'PRINT LENSES 

4110 CLS :PRINT§30, "LENSES" 

4120 F0RI=1T014 

4130 PRINTUSINGFF$;I,LN$(I) ;:NEXTI 

4140 PRINT" ":PRINTSTRING$(64,"-") :RETURN 

4200 'PRINT EFFECTS 

4210 CLS :PRINT§24, "FILTERS AND EFFECTS" 

4220 F0RI=1T09 

4230 PRINTUSINGFF$; I , FL$ ( I) ; : NEXTI 

4240 PRINT" ":PRINTSTRING$(64 f "-") :RETURN 

4300 'HEADING 

4310 CLS:PRINT@14,"PRIMARY":PRINT@64,"PIC #"; :PRINT@78 f "SUBJECT" 

; z PRINT§93 , "SECONDARY SUBJECT (S) " ; : PRINT8123 , "DATE" 

4320 PRINTSTRING$ ( 63 , "-") : RETURN 

5000 'SEARCH ROUTINE 

5010 GOSUB4300 

5020 C-0 

5030 F0RI-1T0R 

5040 IFPS(I)-0GOTO5060 

5050 ONSTGOSUB5100,5200 

5060 NEXTI 

5070 C-11-C:F0RI«1T0C:PRINT:NEXTI 

5080 PRINT"END OF LIST. PRESS ANY KEY TO RETURN TO LIST MENU" 

5090 I$-INKEY$:IFI$»""GOTO5090 

5100 IFPS(I)=CHORS1(I)=CHORS2(I)=CHGOSUB5300 

5110 RETURN 

5200 IFF1(I)-CHORF2(I)=CHGOSUB5300 

5210 RETURN 

5300 C»C+1:PRINTUSINGFA$;N(I) ,DA$(PS(I)) ,DA$(S1(I)) r DA$(S2(I)) f D 

KD,D2(I) 

5310 IFC<10RETURN 

5320 C=0 : PRINT :PRINTTAB( 5) "PRESS ANY KEY TO CONTINUE LISTING" 

5330 I$«INKEY$:IFI$=""GOTO5330 

5340 PRINTgl28 f " ":RETURN 

6000 'DATA 

6001 DATA "ANIMAL" , "AUTUMN" , "BIRDS" , "CATS" , "CELEB" , "DOGS" , "FLOWE 
R" , "FOOD" , "FOREST" , "HOLDAY" , "HORSES" , "HOUSE" 

6002 DATA " INSECT" , "KIDS" , "MACRO" , "MOOD" , "MTNS" , "PEOPLE" , "PLANTS 
" , "RELIG" , "WATER" , "SCENIC" , "SEA" , "SILOET" , "SPORTS" 

6003 DATA "SPRING" , "STILIF" , "SUMMER" , "SUNSET" , "TREE" , "WINTER" , "N 
ONE" 

6004 DATA "50mm" ,"80-200 ZOOM" , "WIDE-ANGLE" , "MACRO" f "2X-TELEC0NV 
" , "3X-TELEC0NV" , "EX-TUBEl2mm" , "EX-TUBE20mm" 

6005 DATA "EX-TUBE32mm" f "EX-TUBE36mm" f "EX-TUBE48mm" f "EX-TUBE56mm 
" , "EX-TUBE68mm" , "NONE" 

6006 DATA "COLORBURST" , "DIFFUSION" , "DOUBLE-EXP" , "MULT-IMAGE" , "PO 
LARIZER","HALO SPOT", "6 PT. STAR" , "82B" , "NONE" 

3040 PRINT#-l f "PHOTO INDEX" 

3050 F0RI-1T0R 

3060 IFPS(I)=0GOTO3080 

3070 PRINT#-l f N(I) ,PS(I) f Sl(I) f S2(I) ,Dl(I) ,D2(I) ,0S(I) ,SH$(I) ,Ll 

(I) f L2(I) f Fl(I) f F2(I) 
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********************************* *x*AV itti*A *w*^* tw » * 

4MHZ, DOUBLE DENSITY.COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 



COMPARE THE FEATURES AND PERFORMANCE 
FEATURES LNW80 PMC-80* 



TRS-80* 
MODEL III 




When you've compared the features of an LNW80 Computer, you'll quickly 
understand why the LNW80 1s the ultimate TRS80 software compatible system. 
LNW RESEARCH offers the most complete microcomputer system at an outstand- 
ing low price. 

We back up our product with an unconventional 6 month warranty and a 10 
days full refund policy, less shipping charges. 

LNW80 Computer $1,450.00 

LNW80 Computer w/B&W Monitor S one 5" Drive $1,914.00 

All orders must be prepaid, CA residents please Include 6S sales tax. 
Contact us for shipping charges 

* TRS80 Product of Tandy Corporation. 

** PMC Product of Personal Microcomputer, Inc. 



PROCESSOR 




4.0 MHZ 


1 ,8 MHZ 


2.0 MHZ 


LEVEL II BASIC INTERP. 




YES 


YES 


LEVEL III 
BASIC 


TRS80 MODEL 1 LEVEL II COMPATIBLE 


YES 


YES 


NO 


48K BYTES RAM 




YES 


YES 


YES 


CASSETTE BAUD RATE 




500/1000 


500 


500/1500 


aOPPY DISK CONTROLLER 




SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 
DOUBLE 


SERIAL RS232 PORT 




YES 


YES 


YES 


PRINTER PORT 




YES 


ye:s 


YES 


REAL TIME CLOCK 




YES 


YES 


YES 


24 X 80 CHARACTERS 




YES 


NO 


NO 


VIDEO MONITOR 




YES 


YES 


YES 


UPPER AND LOWER CASE 




YES 


OPTIONAL 


YES 


REVERSE VIDEO 




YES 


NO 


NO 


KEYBOARD 




63 KEY 


53 KEY 


53 KEY 


NUMERIC KEY PAD 




YES 


NO 


YES 


B/W GRAPHICS, 128 X 48 




YES 


YES 


YES 


HI-RESOLUTION B/W GRAPHICS. 


480 X 192 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS 
128 X 192 IN 8 COLORS 


(NTSC), 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS (RGB), 
384 X 192 IN 8 COLORS 


OPTIONAL 


NO 


NO 


WARRANTY 




6 MONTHS 


90 DAYS 


90 DAYS 


TOTAL SYSTEM PRICE 




$1,914.00 


$1,840.00 


$2,187.00 


LESS MONITOR AND DISK DRIVE 




$1,450.00 


$1,375.00 


— 



LNW80 

- BARE PRINTED CIRCUIT BOARD a MANUAL $89.95 

The LNW80 - A high-speed color computer totally compatible with 
the TRS-80*. The LNW80 gives you the edge in satisfying your 
computation needs 1n business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that is comparable to the most 
expensive microcomputer with the compatibility to the world's 
most popular computer (TRS-80*) resulting 1n the widest soft- 
ware base. 



FEATURES: 



TRS-80 Model 1 Level II Software Compatible 
High Resolution Graphics 

RGB Output - 384 x 192 in 8 Colors 

. NTSC Video or RF MOD - 128 x 192 in 8 Colors 

. Black and White - 480 x 192 
4 MHz CPU 

500/1000 Baud Cassette 
Upper and Lower Case 
16K Bytes RAH, 12K Bytes ROM 
Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

AND MANUAL $69.95 

WITH GOLD CONNECTORS $84.95 



The System Expansion will allow you to expand your LNW80, TRS-80*, 
or PMC-80** to a complete computer system that 1s still totally 
software compatible with the TRS-80* Model 1 Level II. 

FEATURES: 

. 32K Bytes Memory 
. 5" Floppy Controller 
. Serial RS232 20ma I/O 

Parallel Printer 
. Real Time Clock 
. Screen Printer Bus 

On Board Power Supply 

Solder Masked and Silkscreened 



LNW RESEARCH 

C OR PORA T ION 

2620 WALNUT 
TUSTIN CA. 92680 ^w 



LNDoubler&DOS PLUS 3.3D 

- Assembled and Tested w/DOS PLUS 3. 3D $175.00 

Double-density disk storage for the LNW Research's "System Expan- 
sion" or the Tandy's "Expansion Interface". The LNDoubler™ is 
totally software compatible with any double density software 
generated for the Percom's Doubler***. The LNDoublerTM provides 
the following outstanding features. 

. Store up to 350K bytes on a single 5" disk 
Single and double density data separation 
Precision write precompensation circuit 
Software switch between single and double density 

. Easy plug In Installation requiring no etch cuts, jumpers 
or soldering 

. 35, 40, 77, 80 track 5" disk operation 

. 120 day parts and labor Warranty 

*** Doubler is a product of Percom Data Company, Inc. 

DOS PLUS 3. 3D 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS, with ease 1n useablHty. 

KEYBOARD 



LNW80 KEYBOARD KIT $84.95 

The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



CASE 



LNW80 CASE $84.95 

The streamline design of this metal case will house the LNW80, 
LWN System Expansion, LNW80 Keyboard, power supply and fan, 
LNDoublerTM, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. Add $12.00 for shipping 

PARTS AVAILABLE FROM LNW RESERARCH 
. 4116 - 200ns RAM 

6 chip set $26.00 

8 chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 

LNW80 "Start up parts set" LNW80-1 $82.00 

LNW80 "Video parts set" LNW80-2 $31.00 

LNW80 Transformer LNW80-3 $18.00 

LNW80 Keyboard cable LNW80-4 $16.00 

40 Pin computer to expansion cable $15.00 

System Expansion Transformer $19.00 

Floppy Controller (FD1771) and UART (TR1602) . . . $30.00 



ORDERS & INFO. NO. 714-544-5744 
SERVICE NOi 714-641-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED „„. 
ADD $3 FOR SHIPPING 



TUTORIAL 



When man meets machine code, it's important to remember the basics. 



Be a Super USR! 



Roger C. Alford 
406 Packard #104 
Ann Arbor, Ml 48104 



As most programmers know, 
machine language pro- 
grams and routines run much 
faster than equivalent Basic 
programs and allow greater con- 
trol over the computer. Also, 
machine language is used al- 
most exclusively when real-time 
programming is necessary. 
However, when Level II Basic 
was developed it appears that 
linking Basic and machine lan- 



guage routines was not a major 
concern. Yet, there are ways to 
make your computer fulfill your 
needs in spite of these limita- 
tions. 

For Basic to know the loca- 



tion of the USR routine, the ad- 
dress must be POKEd into loca- 
tions 16526 (low address byte) 
and 16527 (high address byte). 
One method of implementing 
several different USR function 



calls is to POKE a particular 
function's address into these 
locations immediately prior to 
the use of the USR call. This 
method is fairly straightforward 
and is illustrated in Program 



o CALL 1000 



50 CALL 2000 



000 POKE 16526,N1:POKE 16527.N2: 
PRINT USR(A) 
010 RETURN 



2000 POKE 16526,N3:POKE 16527.N4: 
Z% s USR(4) 
2010 RETURN 

Program Listing 1. This is 
one method that allows the 
single USR function to make 
various function calls. 



10 


POKE 16526 


,l:POKE 


16527 


125 


20 


CLS 








J0 


INPUT "XX5 


";XXS 






40 


INPUT "X%" 


;x% 






b0 


Y-USR(X%) 








60 


PRINT 








/0 


GOTO 40 










Program 


Listing 2(a). 













Program Listing 2(b). 




7D01 




00100 




ORG 


32001 


/STARTING ADDRESS - 7D01H 


28A7 




00110 


STROUT 


EQU 


28A7H 


/ROM 


STRING-OUT ROUTINE 


0A7P 




00120 


GETVAL 


EQU 


0A7FH 


;R0M 


GET-USR PARAM. VALUE ROUT. 


26ID 




00130 


VARPTR 


EQU 


260DH 


;ROM 


VARPTR ROUTINE 


■ 33A 




00140 


COUT 


EQU 


033AH 


;ROH 


CHARACTER-OUT ROUT. 


0A9A 




00150 


RETURN 


EQU 


0A9AH 


/RETURN VALUE ROUTINE 






00160 


1 














00170 


; PROGRAM STARTS 


HERE 










00180 


; 










7D01 


CD7F0A 


00190 


START 


CALL 


GETVAL 




/GET PARAMETER VALUE 


7D04 


7C 


00200 




LD 


A,H 




/CHECK FOR IN HIGH BYTE 


7D05 


FE00 


00210 




CP 









7D07 


2015 


00220 




JR 


NZ,ERR 




/IF NOT, ERROR 


7D09 


7D 


00230 




LD 


A,L 




/FIND DESIRED ROUTINE 


7D0A 


FE01 


00240 




CP 


1 




/L-l? 


7D0C 


2815 


00250 




JR 


Z, ROUTl 




/IF YES, EXEC. ROUTINE 1 


7D0E 


FE02 


00260 




CP 


2 




/L-2? 


7D10 


2820 


00270 




JR 


Z,ROUT2 




/IF YES, ROUTINE 2 


7D12 


FE03 


00280 




CP 


3 




/L-37 


7D14 


2821 


00290 




JR 


Z,ROUT3 




/IF YES, ROUTINE 3 


7D16 


FE04 


00300 




CP 


4 




ZL»4? 


7D18 


2822 


00310 




JR 


Z,ROUT4 




/IF YES, ROUTINE 4 


7D1A 


FE05 


00320 




CP 


5 




/L-5? 


7D1C 


2833 


00330 




JR 


Z,ROUT5 




/IF YES, ROUTINE 5 


7D1E 


217C7D 


00340 


ERR 


LD 


HL.ERRMSG 


/IF NONE, PRINT ERR MESSG 


7D21 


181C 


00350 




JR 


PRTRET 




/ AND RETURN 


7D23 


21267E 


00352 


ROUTl 


LD 


HL,VARY 




/LOAD ADDR OF "Y%" 


7D26 


CD0D26 


00354 




CALL 


VARPTR 




/FIND ADDR OF VALUE 


7D29 


EB 


00356 




EX 


DE,HL 




/PLACE ADDR IN HL PR. 


7D2A 


CB26 


00358 
00360 




SLA 


(HL) 




/SHIFT LOW BYTE-PUT HIGH 
/ BIT INTO CARRY 


7D2C 


23 


00362 




INC 


HL 




/POINT TO HIGH BYTE 


7D2D 


CB16 


00364 




RL 


(HL) 




/ROTATE LEFT W/CARRY IN 


7D2F 


C39A0A 


00366 




JP 


RETURN 




/RETURN TO BASIC 


7D32 


21B07D 


00380 


R0UT2 


LD 


HL,MSG2 






7D35 


1808 


00390 




JR 


PRTRET 






7D37 


21CC7D 


00400 


R0UT3 


LD 


HL,MSG3 






7D3A 


1803 


00410 




JR 


PRTRET 






7D3C 


21E87D 


00420 


R0UT4 


LD 


HL,MSG4 






7D3F 


E5 


00430 


PRTRET 


PUSH 


HL 




/SAVE HL VALUES j 


7D40 


3E0D 


00440 




LD 


A,0DH 




/SEND A RETURN 


7D42 


CD3A03 


00450 




CALL 


COUT 






7D45 


El 


00460 




POP 


HL 




/RESTORE HL VALUES 


7D46 


CDA728 


00470 




CALL 


STROUT 




/PRINT STRING 


7D49 


3E0D 


00480 




LD 


A,0DH 




/SEND ANOTHER RETURN [ 


7D4B 


CD3A03 


00490 




CALL 


COUT 






7D4E 


C39A0A 


00500 




JP 


RETURN 




/RETURN TO BASIC 


7D51 


21047E 


00510 


ROUTS 


LD 


HL,MSG5 




/PRINT MESSAGE 5 


7D54 


CDA728 


00520 




CALL 


STROUT 






7D57 


21227E 


00530 




LD 


HL,VARBLE 


/PUT VAR. NAME ADDR IN HL 


7D5A 


CD0D26 


00540 
00550 


1 


CALL 


VARPTR 




/GET DESCRIPT BLOCK IN DE 






00560 


/PREPARE TO PRINT VALUE 


OF XX $ 






00570 


I 










7D5D 


EB 


00580 




EX 


DE,HL 




/PLACE PTR VALUE IN HL 


7D5E 


46 


00590 




LD 


B, (HL) 




/USE B REG AS CHAR CNTR | 


7D5F 


23 


00600 




INC 


HL 




,PT TO LOW ADDR. BYTE 


7D60 


5E 


00610 




LD 


E,(HL) 




/GET LOW ADDR. BYTE 


7D61 


23 


00620 




INC 


HL 






7D62 


56 


00630 




LD 


D, (HL) 




/GET HIGH ADDR. BYTE 


7D63 


EB 


00640 




EX 


DE,HL 




/PT. TO STRING W/ HL 


7D64 


3E00 


00650 




LD 


A,0 




/CHECK FOR LENGTH STR 


7D66 


B8 


00660 




CP 


B 






7D67 


280B 


00670 




JR 


Z,DUN 




/IP YES, DONE W/ PRINT 

Program continues 
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Apparat, Inc. announces the most powerful Disk Operating 
System for the TRS-80®. It has been designed for the 
sophisticated user and professional programmer who 
demands the ultimate in disk operating systems. 

New 2.0 version has all of the features of NEWDOS/80 plus 
many more enhancements: 

• DOUBLE DENSITY ON MODEL I 

Use the LNW DOUBLER or PERCOM DOUBLER to expand 
storage 80% under NEWDOS/80 Version 2.0. mixing single 
and double density specifications without any patches. 

• SINGLE DENSITY ON MODEL III 

Will allow the MODEL III to read disks from MODEL I and to 
write disks the MODEL I can read, making it easy to move 
programs between the two under NEWDOS/80 on both 
machines. 

• COPY BY FILE EXPANDED 

CBF will now work with system files and can run on single 
drive systems. Files to be copied can be limited to files of 
common extension or only non-invisible files. Files for copying 
can be listed in a data file. This is helpful in moving programs 
from NEWDOS/80 Version 1.0 system disks to NEWDOS/80 
Version 2.0. 

• EXPANDED DIRECTORIES 

Directories can be expanded three times the normal number of 
available entries, even on DOS disks. This is extremely useful 
when using double density. 

• DYNAMICALLY MERGE IN BASIC 

To allow sections of BASIC programs to be deleted and 
replaced during program execution with non-ASCII files from 
disk. Also allows passing of variable values between BASIC 
programs. 

• SELECTIVE VARIABLE CLEARING 

Will allow the programmer to keep some variables and release 
the space used by the rest; also, specific variables may be 
erased releasing the space they use. 

• CHAINING ENHANCEMENTS 

Features to allow chain files to be written from SCRIPSIT; also, 
chaining may be switched on and off without changing chain 
file positioning, and may be executed via CMD "XXX" and 
DOS-CALL. 



• PAGE SCROLLING IN BASIC 

Scrolling has been modified to allow the user to display 
programs page by page, in addition to the regular line scrolling. 

• CREATE PRE-ALLOCATED FILES 

File space may be allocated on the disk in advance, to prevent 
the possibility of disk full errors. 

• REPEAT FUNCTIONS 

Keys in MODEL I repeat when held down. Entering "R" as a 
DOS command causes the previous DOS command to be 
repeated. 

• ROUTING FOR DEVICE HANDLING 

To send input and output from one device (display, printer, 
keyboard, etc.) to others or to a routine in main memory. 

• FORMS COMMAND (MODEL III) 

To set printer formatting on the MODEL III. 

• SET COM RS 232 (MODEL III) 

Commands to set the specifications on the serial output port. 

• DISASSEMBLER OUTPUT TO DISK 

The Disassembler will now write a source code file to disk, 
which the editor assembler can read and edit. 

• DATE AND TIME VALUES 

Saved through non-powerup reset and can be used as defaults 
for DOS commands. COPY and FORMAT. 

• SUPERZAP 

Has the ability to scan diskettes or disk files to find the 
occurences of specific values. Also will generate passwords and 
hashcodes. 

NEWDOS/80 Version 2.0 Model I or III (When ordering, 
please specify model number). Priced at only . . . s 149°°. 




^264 



_ , Apparat Inc. 

4401 South Tamarac Parkway 
Denver. CO 80237 

(303)741-1778 

"On-going Support for Microcomputers" 

TRS-80* is a registered trademark of Tandy Corp. 



*>See List ot Aaverr.sers on page 322 
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Program continued 












7D69 


7E 


00680 


LOOP 


LD 


A,(HL) >GET CHARACTER 


7D6A 


E5 


00690 




PUSH 


HL ; SAVE HL PTR 


7D6B 


C5 


00700 




PUSH 


BC |SAVE B CNTR 


7D6C 


CD3A03 


00710 




CALL 


COUT > PRINT CHARACTER 


7D6F 


CI 


00720 




POP 


BC t RESTORE VALUES 


7D70 


El 


00730 




POP 


HL 


7D71 


23 


00740 




INC 


HL fPT. TO NEXT CHAR. 


7D72 


10F5 


00750 




DJNZ 


LOOP j LOOP UNTIL B-0 


7D74 


3E0D 


00760 


DUN 


LD 


A,0DH j SEND RETURN 


7D76 


CD3A03 


00770 




CALL 


COUT 


7D79 


C39A0A 


007 80 
00790 




JP 


RETURN j RETURN TO BASIC 






00800 


; THESE 


ARE THE 


CONSTANTS AND MESSAGES 






00810 


t 






7D7C 


2A 


00820 


ERRMSG 


DEFM 


'**** IMPROPER CODE ****' 


7D93 


00 


00830 




DEFB 





7D94 


2A 


00840 


MSG1 


DEFM 


'**** THIS IS ROUTINE 1 ****' 


7DAP 


00 


00850 




DEFB 





7DB0 


2A 


00860 


HSG2 


DEFM 


'**** THIS IS ROUTINE 2 ****' 


7DCB 


00 


00870 




DEFB 





7DCC 


2A 


00880 


HSG3 


DEFM 


'**** THIS IS ROUTINE 3 ****' 


7DE7 


00 


00890 




DEFB 





7DE8 


2A 


00900 


HSG4 


DEFM 


'**** THIS IS ROUTINE 4 ****• 


7E03 


00 


00910 




DEFB 





7E04 


0D 


00920 


MSG5 


DEFB 


0DH ; CARRIAGE RETURN 


7E05 


54 


00930 




DEFM 


'THE VARIABLE XX S CONTAINS: ' 


7E20 


0D 


00940 




DEFB 


0DH 


7E21 


00 


00950 




DEFB 





7E22 


58 


00960 


VARBLE 


DEFM 


'XXS' 


7E25 


00 


00970 




DEFB 





7E26 


59 


00982 


VARY 


DEFM 


'Y%' 


7E28 


00 


00984 




DEFB 





0000 




00986 




END 





XXS? THIS IS A TEST 
X%? 2 

THIS IS ROUTINE 2 

X%? 1 

"•• THIS IS ROUTINE 1 

X%? 5 

THE VARIABLE XXS CONTAINS: 

THIS IS A TEST 

X%? 89 

IMPROPER CODE •"• 

X%? 4 

THIS IS ROUTINE 4 ••" 

X%? 

Figure 2. This is a sample 
run of the Basic program 
of listing 2(a) with the pro- 
gram of listing 2(b) loaded 
in memory. All characters 
that are underlined are 
printed by the computer. 



routine #7 
do 8, 
return 



routine #2 

do& 

return 




print 
error 
message 



—U RETURN J 



Fig. 1. Flowchart of the method for machine language routine to 
decide which USR routine is desired and branch to proper routine. 



10 N-32001 

20 READ AS 

30 IFAS="-1"THEN END 

40 BS=LEFT$(A$,1) :GOSUB200 

50 B1-16*B 

60 BS=RIGHTS(A$,1) :GOSUB200 

70 Bl-Bl+B 

80 POKE N,B1 

90 N=N+1 

100 GOTO 20 

200 IFB$="A"THENB$="10"ELSEI 

="12"ELSEIFB$=*D'THENB$="13" 

HENB$="15" 

210 B=VAL(B$) : RETURN 

1000 DATA CD,7F,0A,7C,FE,00, 

1010 DATA 28, 16, FE, 03, 28, 17, 

1020 DATA 7D,18,12,21,8A,7D, 

1030 DATA 18,03,21,DE,7D,E5, 

1040 DATA 0D,CD,3A,03,C3,9A, 

1050 DATA CD, 0D, 26, KB, 46, 23, 

1060 DATA E5,C5,CD,3A,03,C1, 

1070 DATA 9A,0A,2A,2A,2A,2A, 

1080 DATA 43,4F,44,45,20,2A, 

1090 DATA 48,49,53,20,49,53, 

1100 DATA 20,2A,2A,2A,2A,00, 

1110 DATA 49, 53, 20, 52, 4F, 55, 

1120 DATA 2A,00,2A,2A,2A,2A, 

1130 DATA 4F,55,54,49,4E,45, 

1140 DATA 2A,2A,20,54,48,49, 

1150 DATA 4E,45,20,34,20,2A 

1160 DATA 41, 52, 49, 41, 42, 4C 

1170 DATA 41,49,4E,53,3A,20, 



FB$="B"THENB$="11"ELSEIFB$="C"THENB$ 
ELSEIFB$="E"THENB$="14"ELSEIFB$="F"T 



15, 7D, 

04,28; 

0D,21 

0D,CD, 

21, FA, 

23,56, 

23,10, 

49, 4D, 

2A,2A, 

52, 4F 

2A,2A, 

49, 4E, 

54,48 

33,20 

20,49 

2A,2A 

20,58 

00,58 



,01,28, 
,FE,05, 
,7D,18, 
,03, El, 
,CD,A7, 
3E,00, 
,3E,0D, 
,52, 4F, 
,2A,2A, 
,54,49, 
,20,54, 
,20,32, 
,53,20, 
,2A,2A, 
,20,52, 
,0D,54 
,24,20 
,24,00 



15, FE, 
28,29, 
08,21, 
CD,A7, 
28,21, 
B8,28, 
CD,3A, 
50,45, 
2 A, 2 A 
4E,45, 
48,49 
20, 2A 
49,53 
2A,00 
4F,55 
48,45 
43, 4F 
-1 



02 

21,72 

C2,7D 

28, 3E 

18, 7E 

0B,7E 

03, C3 

52,20 

20,54 

20,31 

53,20 

2A,2A 

20,52 

2A,2A 

54,49 

20,56 

4E,54 



Program Listing 2(c). 



Listing 1. 

Another method, one that re- 
quires less code, is faster, and 
allows several different routines 
to be called from the same place 
in a Basic program at different 
times, is illustrated in the flow- 
chart of Fig. I.This method uses 
the USR parameter (the value 
represented in parenthesis after 
the USR) to decide which routine 
is desired. It then branches to 
the appropriate routine and 
each routine is responsible for 
its own return to the main pro- 
gram. 

VARPTR Function 

The question arises: What if 
the routines require a param- 
eter? If this is the case, we use 
the TRS-80's VARPTR function 
which is accessible from ma- 
chine language. To use the 
VARPTR function routine, place 
in memory the variable name in 
ASCII, followed by a zero byte; 
toad the address of the begin- 
ning of the variable name into 
the HL register pair and call 
location 260DH. The desired ad- 
dress is returned in the DE 
register pair in the format 
described in the Level II 
Reference Manual. 

The programs in Listings 2(a) 
and 2(b) demonstrate this sec- 
ond USR call method and also il- 
lustrate the use of the VARPTR 
function. In the Basic program 
of Listing 2(a), the address of the 
beginning of the machine lan- 



RUN 

XXS? THIS IS A TEST 

Y%? 3 

X%? 2 

THIS IS ROUTINE 2 

Y% = 3 
X%? 1 
Y% = 6 
X%? 1 
Y%= 12 
X%? 4 

THIS IS ROUTINE 4 

Y%= 12 

X%? 5 

THE VARIABLE XXS CONTAINS: 

THIS IS A TEST 

Y%= 12 

X%? 1 

Y% = 24 

X%? -3 

IMPROPER CODE 

Y% = 24 

X%? 

Figure 3. This is a sample 
run of the Basic program 
of listing 3(a) with the pro- 
grams of listings 2(b) and 
3(b) (the modification) 
loaded in memory. All 
characters that are under- 
lined are printed by the 
computer. 



guage routine is POKEd into 
locations 16526-16527 to estab- 
lish the address of the routine 
when the USR function is en- 
countered. When the USR func- 
tion is called, it is the responsi- 
bility of the machine language 
routine to decide which routine 
is desired and branch accord- 
ingly. The machine language 
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TRS-80® DISCOUNT $ SAVE $ 




MODEL II 



« f 




No Taxes on 

Out Of Stat* Shipments 

Okla Include 
2% State Tax 



MODEL III 

26-1061 4K I $599.00 

26-1062 16K III 859.00 

26-1063 32K III 

W/2 Drives. RS 232 2.225.00 

26-1 162 1st Drive 765.00 

Color Computer 4K $353 

26-3001 4K S353.00 

26-3002 16K Ext. Basic 533.00 

26-3009 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 





Proto Board For Color Computer — 

Fits inside 8-Track Cartridge $24.95 

Model I 

26-1 140 Expansion Interface $249.00 

26-1 141 16K Exp. Interface 359.00 

26-1 142 32K Exp. Interface 469.00 

26-1 145 RS 232C Board 84.00 

26-1 160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26- 1 566 Visicalc 83.00 

Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

26-4161 2 Drive Exp 1559.00 

26-4162 3 Drive Exp 2099.00 

26-4530 Scripsit II 259.00 

26-451 2 Profile II 1 59.00 

26-45 1 1 Visicalc II 259.00 

26-4501 Gen Ledger 1 79.00 

26-4506 Mail List 72.00 

PRINTERS 

26- 1 1 67 9 1 /? Line Printer VII $ 360.00 

26-1 166 Line Printer VI 1080.00 

26-1 1 58 Daisy Wheel II 1 798.00 

26-1 165 Line Printer V 1710.00 

26-1401 Cable 36.00 

EPSON MX80/MX70 

Low-Priced Professional Print Quality 

EPSON MX80 (List S645) . . . $499.00 

EPSON MX70 Dot Graphics. 5x7 Matrix (List S450) . . . $425.00 

IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead. graphics . . (List $985) ... $ 795.00 
IDS 460G 9 wire printhead. graphics . . (List $ 1 394) ... 1 1 95.00 
IDS 560G 9 wire, wide carriage, graphics (List SI 794) ... 1 529.00 

All prices are subject to change without notice. Freight, handling, 
and insurance charges are extra. Most items are shipped United 
Parcel Service. Model II and other hardware weighting over 50 
lbs. is shipped freight collect by truck. Certified Check for immedi- 
ate shipment from stock. Master Charge. Visa or Bank Card add 
3% surcharge. 



DOES YOUR SMART 
PRINTER SUDDENLY 

BECOME DUMB 

WHEN YOU PRINT 

FROM SCRIPSIT? 

Is your printer capable of underlining 
but not from Scripsit? 

Is your printer capable of Bold Printing 

but not from Scripsit? 

Can your printer super script and sub script 
but not from Scripsit? 

Can your printer change pitches 
but not from Scripsit? 

The answer is SCRIPMOD 

SCRIPMOD does not require a separate printer driver With 

SCRIPMOD control codes can be embedded in the test of your 

document. You use the same format line syntax you're used to 

now. SCRIPMOD adds one format instruction to Scripsit & two 

control codes. 

SCRIPMOD is supplied on disk with full documentation for 

$39.95. 

PENCIL-FIX Save your warranty Use PENCIL-FIX to avoid 
custom control key on your keyboard Redefines the control key 
for EP to be the (« key Use RS lower case mod or the EP mod 
without the control key. Disk based EP only . S14.95 

PRINT-CENTRAL Send any control code directly to your 
smart printer from the BASIC command mode or from DOS 
Avoid having to type such things as "LPRINT CHR$(31) just to 
change pitch Use CLEAR right arrow (two key strokes) instead 
Any code from 1 to 31 may be sent Mod I 32K disk . S24.95 

SPOOL-REL An m-memory print buffer that runs in Mod I 
32K or 48K disk systems Fully relocatable code and buffer A 
true background spooler at an unbelievably low price S24.95 

TIGGER-GRAF Create engineering, scientific, business, or 
just plain fun on your IDS 440G or 460G printer Resolution is 
495 x 575 Easy BASIC programs provided for data entry and 
machine language module for speed Includes setting individual 
points, drawing lines, shading shapes Several graphs may be 
catenated along the Y-axis for larger graphs Requires Mod I 32 
or 48K 1 disk S149.95 

ALL POCKET AND 

COLOR COMPUTER SOFTWARE 

SOLD AT DISCOUNT 

WRITE US FOR A FREE CATALOG 



1-800-331-9128 Toll Free Order Entry 



Immediate Shipment From Stock 
on Most Items 



Vern Street Products „,„ ^^fiL™ 740 66 

The Computer Store, Inc. 918-747-9333 



4949 South Peoria ^ TAKE TRS . 80 model i 

Tulsa, Oklahoma 74105 trade ins 

TRS-80 is a registered trademark ol trie Tandy Corp 



^See List ol Advertisers on page 322 
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routine of Program Listing 2(b) 
first calls location 0A7FH to get 
the parameter value, which is 
returned in the HL register pair 
(as described in the Level II 
reference manual). It then 
checks the most significant 
byte (in the H register) to make 
sure that it is zero; if not, an error 
message is printed. If the H 



1H 


POKE 16526 


,l:POKE 


16527,125 


20 


CLS 






Jtf 


INPUT-XXS" 


;XXS 




40 


INPUT"Y%"; 


Y% 




SH 


INPUT"X%"; 


C% 




61) 


Y=USR(X%) 






/a 


PRINT"Y%=" 


;Y% 




HI) 


GOTO 50 








Program Listing 3(a). 



register is zero it proceeds to 
check the least significant byte 
(in the L register) and branch to 
the routine corresponding to the 
value found. If it finds a value be- 
tween one and four, inclusive, 
the corresponding routines 
merely print messages indicat- 
ing which routine was called. If 
the value is five, the correspond- 
ing routine prints a message 
and the current contents of the 
variable XX$. If none of those 
values are encountered, an error 
message is printed and control 
is returned to the Basic pro- 
gram. 

Routine 5 is an example of the 
use of the VARPTR function, as 
described earlier. It uses the 



ASCII characters XX$ in memo- 
ry (from the DEFM 'XX$' state- 
ment) followed by a zero byte to 
find the descriptor block for the 
variable XX$. As shown in the 
Level II Reference Manual, the 
address returned (in the DE 
register pair in this case) points 
to a block of three bytes that has 
the size and location of the 
string; the first byte is the length 
of the string, and the second 
and third bytes contain the loca- 
tion of the beginning of the 
string in memory. 

It is important to note that 
even though no values are being 
passed back to the main pro- 
gram, I used a JP0A9AH instead 
of the usual return. This is 



7D23 21267E 


00352 ROUT1 


LD 


HL,VARY 


;LOAD ADDR OP "Y%" 


7D26 CD0D26 


00354 


CALL 


VARPTR 


;FIND ADDR OF VALUE 


7D29 EB 


00356 


EX 


DE,HL 


; PLACE ADDR IN HL PR. 


7D2A CB26 


00358 
00360 


SLA 


(HL) 


; SHIFT LOW BYTE-PUT HIGH 
; BIT INTO CARRY 


7D2C 23 


00362 


INC 


HL 


; POINT TO HIGH BYTE 


7D2D CB16 


00364 


RL 


(HL) 


; ROTATE LEFT W/ CARRY IN 


7D2P C39A0A 


00366 


JP 


RETURN 


.•RETURN TO BASIC 


7E26 59 


00982 VARY 


DEFM 


•Y%' 




7E28 00 


00984 


DEFB 

Progra 




m Listing 3(b). 





because the string print routine 
(location 28A7H in the Level II 
ROM) changes the value in loca- 
tion 40AFH from two to three, 
which causes a TM error upon 
return to Basic, unless either a 
two is replaced in location 
40AFH or a jump to 0A9AH is 
made. If a jump to 0A9AH is 
chosen the value in the HL 
register pair is returned as a 
value, which may be garbage 
but does not affect the opera- 
tion of the Basic program unless 
it uses that value. It is sug- 
gested that this method of re- 
turn be used when using Level II 
ROM subroutines, because of 
the uncertainty of the effects of 
the routines. 

If any of the routines (or all of 
them) need one or more param- 
eters, the user may use any 
variable or variables he desires 
(as many as are needed by each 
of the routines) and access 
those variables in machine lan- 
guage with the VARPTR func- 
tion. Note that the user is not 
limited to only one parameter, or 
to only integer values, but he 



AMBER EAZE™ 

EYE FATIGUE- Much discussion has taken place regarding screen Color and 

contrast. Extensive research has produced a breakthrough in the prevention 

of Opertor Eye Fatigue. Amber has been found to be much more effective in 

preventing eye fatigue than any other color. Put an Amber Eaze Filter on your 

TRS-80™ or any other computer monitor. Contact one of the dealers below, or 

direct to: 

1 71 Hawkins Road Model I $19.95 

Centereach, New York Model II & III $24.95 

__ (516) 981 -8568 (Voice) Other Computers $call 

H(516) 588-5836 (Modem) 

70331 ,1 05 (MicroNET) Dealer Inquiries Invited 

• 122 




Programs Unlimited 

20 Jericho Tpke. 
Jericho, NY 11753 
800-645-6038 

c.c.c. 

5582 Corol Way 
Haslerr, Mi 48840 
517-339-1028 



Stevens Radio Shock 
562 Nurr Rood 
Phoenixville Po 19460 
800-345-6279 

All Systems Go 

105 W. Plant St. 

Winter Garden, Fl 32781 

305-877-2830 



Computer Services of Donbury 
P.O. Box .993 
Donbury, Cr. 06810 
203-744-5516 

Dob's TV. 

93-15 86rh Drive 
Woodhoven, NY 11421 
212-441-2807 
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may access as many variables 
as is necessary and these may 
be any type, including integers, 
single precision values, double 
precision values, strings, and ar- 
rays. This would allow, for in- 
stance, a very fast machine lan- 
guage array sort. New values 
may be returned by either 
changing the values of the vari- 
ables in memory or returning a 
value in the HL register pair with 
a jump to 0A9AH as described in 
the Level II Reference Manual. 
Program Listings 3(a-c) show 
modifications to those in List- 
ings 2(a-c), which are used to 
show how to access a value as a 
parameter and return a new val- 
ue in the same variable. Listing 
3(a) is a test driver and Listing 



3(c) is a Basic program that 
toads in the program of Listing 
3(b). The routine of 3(b) multi- 
plies the value in Y% by two and 
returns the new value in the 
same variable (the multipli- 
cation is done by merely shifting 
the whole value one bit position 
to the left). See Fig. 2 for a test 
run of Listing 2 and Fig. 3 for test 
run of Listing 3. 

As can be seen, there is a 
large amount of flexibility open 
to the assembly language pro- 
grammer, with the combined ef- 
forts of the USR function and 
the Level II VARPTR function. 
With a little thought and a little 
imagination one can enhance 
his programs beyond the limita- 
tions of Level II Basic. ■ 



10 


POKE 32035, 


195- 




















20 


N=32284 






















30 


READ A 






















40 


IF A=-1THEN 


END 




















50 


POKE N,A:N= 


H+lj 


GOTO30 


















100 DATA 33,4: 


,126 


,205,13,38 


235,203 


38,35 


203 


22 


195 


154 


10 


89, 


37 


0,-1 




























Program 


Listing 3(c). 















' BEST PRICES ON TRS-80 

From Radio Ranch, Inc. 



t»oio ; t«*e« 




In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80* 

COMPUTERS & ?=r 



TRS-80* Mod II - 64K J440.00 

TRS-80* Mod III - 16K 879.00 

TRS-80* Mod III - Y2K, 2 Dr 2195.00 

TRS-80* Line Printer 6 1020.00 

Call for LOW PRICES on other models 
Full Factory Warranty 

Jfajoljuy fio/nch,, 3no. , M 

Cert. Check jm. ■—-- Route 3, Radio Ranch Airport 

Cashiers Ck. SJflWIiJSfc; Po)o |||j nojs 61064 

Call Toll Free 800-435-8310 In III. Call 815-946-2371 

^_ * Trademark Tandy Corp. 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEEDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THE UPI-3 IS ALREADY IN THE LEVEL II ROM! SCRIPSIT, PEN- 
CIL, RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc. all work as 
if a parallel printer was in use. 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



SPEEDWAY ELECTRONICS 

1354 AUBURN 

SPEEDWAY, IN 46224 ^275 



Also available from 
YE ODDE SHOPPE 
(317) 925-04% 



VISA MasterCard 

IKS an is a trademark ot landy 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-3 assembled with 90 day warranty 
Kit with all parts, sockets, cabinet, etc. 
UPI-4 for use with Model 1 and RS Printer 
Interface Cable 

Kit with all parts, sockets, cabinet, etc. 
Manual only (may be applied to order) 
Ten day return privilege on assembled units 
Shipping and Handling on all orders 
Specify BAUD rate 50-9600 BAUD 



$139.95 
$ 99.95 

$149.95 
$104.95 
$ 5.00 

$ 4.00 



•See List ol Advertisers on page 322 
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UTILITY 



Get Inkey$ working. 



UC/LC Fix 



Dennis Thurlow 
Instant Software 
Peterborough, NH 03458 



If you have a TRS-80 disk sys- 
tem with Radio Shack's lower- 
case modification, you have 
probably noticed that INKEYS 
does not work properly. PEEKing 
at the video RAM area produces 
strange values when the driver is 
not loaded; when the driver is 
loaded, many Basic programs 
still do not work. The problem 
stems from the fact that, for 
some reason, the tables are 
backwards in the routine. Here is 
an easy way to fix this problem. 
The routine should first be put 
onto disk as a CMD file (example: 



if you want to call the file LCD 
save it as LCD/CMD) with either 
Dump or Tapedisk. Both are sup- 
plied with your TRSDOS. Do not 
use NEWDOSl It will not work 
properly with the lowercase or 
driver. 

Boot the system up, type 
Debug and hit Enter. 

Call the driver by typing only 
the name part of the file name 
(Example: if you saved it as 
LCD/CMD, type only LCD) and 
hitting Enter. 

The routine will now load but 
instead of executing, it will drop 
you into Debug. Your DOS manu- 
al will explain what you see on 
the screen, but you don't really 
need to know to follow these di- 
rections. Type D7000 and hit the 
space bar. Then type S. The 
screen should be identical to Fig. 
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ED 
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40 


11 


CE 
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B0 


EB 


B7 


ED 


52 


E5 
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= > 
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38 
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2E 


2F 
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01 


5B 


0A 


08 


09 
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1. Type ; (semicolon) to see Fig. 2. 
Type — (dash) to return to Fig. 1. 
If your screen doesn't look like 
this, start over. 

Type M70BA and hit the space 
bar. This is the modify mode and 
brackets should appear around 
the byte being modified. The ad- 
dress and contents of the byte 
also appear in the lower left of 
the screen. Note the value here 
is 61 and the next 26 bytes count 
up the hex number system to 7A. 
These need to be changed so 
the table goes from 41 to 5A. 

To change the first byte, type 
41 and hit the space bar. The byte 
changes, the brackets move to 
the next byte and the display in 
the lower left indicates the new 
address and value. Continue typ- 
ing in numbers sequentially (42, 
43, 44... 5A) and hitting the 



space bar until you reach 5A. Hit 
X to end this session. 

Type M70FA and hit the space 
bar. Here and for the next 26 
bytes, you find 41 through 5A ex- 
actly the way you just typed it. 
This table needs to be changed 
to 61 through 7A, using the same 
technique. (Again, type X to end 
the session.) Note: The screen 
will not move to the next page 
when you get to 47, but the 
display in the lower left is still ac- 
curate. Hit ; (semicolon) to see 
the next page and the changes 
you just made. 

Type M713A and hit the space 
bar. The table here should be 
changed to 41 through 5A also. 
Fig. 3 shows what these two 
pages should look like when 
done. 

To save this repaired driver, 
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7000 => 2A 49 40 01 0D 02 B7 ED 


42 E5 2B 22 


49 40 11 


CE 


7010 «> FF 19 22 A0 40 Dl 21 59 


70 CS D5 E5 


EB B7 ED 


52 


7020 => E5 Dl 2A A0 70 19 22 A0 


70 2A D7 71 


19 22 D7 


71 


7030 «> El Dl CI ED B0 EB B7 ED 


52 E5 Dl 21 


64 70 19 


22 


7040 => 16 40 21 B9 71 19 22 IE 


40 21 63 72 


19 22 26 


40 


7050 => 21 0e 00 22 19 40 C3 2D 


40 C5 01 CB 


04 CD 60 


00 


7060 ■=> CI 0A 18 37 01 01 38 21 


36 40 16 00 


0A 5F AE 


73 


7070 »> A3 20 07 14 2C CB 01 F8 


18 F2 5F 7A 


17 17 17 


57 


7080 => 7B 0F 38 03 14 18 FA 21 


80 38 CB 46 


28 02 CB 


F2 


7090 -> 21 19 40 CB 46 28 02 CB 


FA 18 BE A3 


20 01 C9 


21 


70A0 => B9 70 5A 16 00 19 7E FE 


80 20 09 3E 


01 21 19 


40 


70B0 => AE 77 AF C9 FE 01 C0 EF 


C9 40 41 42 


43 44 45 


46 


70C0 => 47 48 49 4A 4B <C 4D 4E 


4F 50 51 52 


53 54 55 


56 


70D0 => 57 58 59 5A 00 00 03 00 


00 30 31 32 


33 34 35 


36 


70E0 => 37 38 39 3A 3B 2C 2D 2E 


2F 0D IF 01 


5B 0A 08 


09 


70F0 => 20 FF FF FF FF FF FF FF 


30 60 61 62 


63 64 65 


66 


7100 »> 67 68 69 6A 6B 6C 6D 6E 


6F 70 71 72 


73 74 75 


76 


7110 => 77 78 79 7A FF FF FF FF 


00 80 21 22 


23 24 25 


26 


7120 => 27 28 29 2A 2B 3C 3D 3E 


3F 0D IF 01 


IB 1A 18 


19 


7130 => 20 FF FF FF FF FF FF FF 


00 40 61 62 


63 64 65 


66 


7140 -»> 67 68 69 6A 6B 6C 6D 6E 


6F 70 71 72 


73 74 75 


76 


7150 => 77 78 79 7A 00 00 00 00 


00 30 31 32 


33 34 35 


36 


7160 => 37 38 39 3A 3B 2C 2D 2E 


2F 0D IF 01 


5B 0A 08 


09 


7170 => 20 PF FF FF FF FF FF FF 


00 60 41 42 


43 44 45 


46 


7180 => 47 48 49 4A 4B 4C 4D 4E 


4F 50 51 52 


53 54 55 


56 


7190 => 57 58 59 5A FF FF FF FF 


00 80 21 22 


23 24 25 


26 


71A0 => 27 28 29 2A 2B 3C 3D 3E 


3F 0D IF 01 


IB 1A 18 


19 


71B0 => 20 FF FF FF FF FF FF FF 


00 DD 6E 03 


DD 66 04 


DA 


71C0 => 9A 04 DD 7E 05 B7 28 01 


77 79 FE 20 


DA 06 05 


FE 


71D0 => 80 D2 A6 04 E5 D5 21 E3 


71 5F 16 00 


19 7E Dl 


El 


71E0 => C3 7D 04 20 20 20 20 20 


20 20 20 20 


20 20 20 


20 


71F0 => 20 20 20 20 20 20 20 20 


20 20 20 20 


20 20 20 


20 


Fig. 3 








type G402D and hit Enter. When dump lcd/cmd:o (start = 


X'7000', 


DOS is ready, use Dump to save end = x727o\tra= 


X7000) 




the driver as a CMD file. Start is Use this driver the same way you 


700, End is 7270. TRA is 700. used the old one. The only dif- 


Don't forget to specify the drive, ference is that 


this one 


works 


For example: right! ■ 








COMPUTER SYSTEM DESK 

Overall Dimensions 60"L x24"D x30"H 

Terminal Surface 34"L x 24"D x27"H 

Shelf Will Accept 21 "W x 24"D x 1 2%"H 

• Designed for commercial use 

• Easy to assemble and disassemble 

• Radius on outside corners of tops for operator safety 

• Separate shelf for computer and disk drives below work surface 

• Lower terminal height for operator comfort 

• Standard table height section for printers or work area 

• Durable formica covered tops, shelf & legs 

• Open back on shelf for cables and ventilation 

• Modular construction-can add on as system expands 

• Enhances user production by providing effective equipment layout 

PRICE $230.00 + SHIPPING (125 LBS) 

COMPUTER CROSSROADS .443 

^^_ 3800 SOUTH TAMIAMI TRAIL 

^JsA SARASOTA, FLORIDA 33579 

!■■» 813-349-0200 






Brand New, Top Quality, Exact Replacement Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life. They Are Delivered to Your Door 

Promptly for Much Less Than Most Retail Stores 

• SPECIAL! BUY 10 and GET ONE FREE! 



YOUR PRINTER 



>ACK SIZE DETAIL LIST' 



RADIO SHACK IPHI. LPV 
RADIO SHACK LPII. LPIV 
CENTRONICS MODS 700 to 703 
CENTRONICS 100, 101 A 102, 

103.300.301.306,308,330, 

358.398,500.501.503,508, 

588. 620. 820 
CENTRONICS 704-705 
IBM --SILVER DOLLAR" Sys 

34. Sys 32 MOLA, Senes 

IM0L4974. 5256. 3287. 3770, 

3771-3774.4974.5100,5103. 

5110. 5228, 5256. 5320MOLA 
IBM - HARMONICA '/;" SERIES 

I MOO 4973/11. 3200. 3289. 

MOD 2 
TELETYPE MOD 33. 28. 35. 37. 

38. 88 
DIABLO HYTYPE II (M/S BLK) HI 

YIELD FITS 70 PRINTERS! 
QUME (FITS 80 PRINTER MOOS) 
WANG M/S 5541 W, WC, 5581. 

WD, 6581W. 2281W 
DEC Vi i 40YD 
DEC Vi « 60YD 
NEC SPINWRITER 



one/pk 

3/pk 

3/pk 

3pk 



1 pk 
5 pk 



3 pk 

10/ pk 

1 pk 

3 pk 
1 pk 

3 pk 
3 pk 
4/pk 



13.95/cart 
18 95/3 pk 
18.95/3 pk 
26.33/3 pk 



1695 ea 
5 80 ea 



2 40 ea 

9 31 ea 

1800/3 pk 
6 85 ea 

17 77/3 pk 
20.12/3 pk 
23.40/3 cart 



YOUR WHOLESALE PRICE 



8.95/R»load nb. only (8.95 ea) 

11 95/3 pk (3.93 ea) 

11.95/3 pk 13.98 ea) 

17.55/3 pk (5.85 ea) 



13 95/Giant Cart 
14.90/5 pk 



20.85/3 pk 

13 90/10 pk 

6 87 ea 

13.95/3 pk 
5 95 ea 



(13.95 ea) 
(2. 98 ea) 



(6.95 ea) 

(1.39 ea) 

(6.87 ea) 

(4. 65 ea) 
(5.95 ea) 



12.95/3 pk (4.32 ea) 

14.25/3 pk (4.75 ea) 

23.60/4 pk tb reload (5.90 eal 



SIZE 



.500" x 45' 
563" x 45' 
563" x 45' 
1" x 108' 



5 16"x210' 
9/16" x 30' 



1/2" x 36' 

5/16" x 

High Yield" 

1/4" x 310' 

5/16" x 393' 

1/2" x 120' 
1/2" x 180' 
1/2" x 51' 



COMMENTS 



Nylon Incl Insti 
Nylon Jel Blk 
Nylon Jet Blk 
Nylon Jet Blk 
5 mil High Speed 



Giant Cart 
Nylon Jet Blk 



Nylon Jet Blk 

Nylon Jet Blk 

300.000 plus imp 

Multistrike Film 
Multistrike Film 

Double Spools 
Double Spools 
Nylon/Ex Lng Lite 



CAT 0R0ER# 



R-T3 
C-700 
C-700 
C-100 



C-7045 
R-300 



C-350 

R-450 

C-511 

C-525 
C-550 

R-600 
R-644 
R-400 




TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY: C.O.D. (UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD. 
VOLUME DISCOUNTS: 

20- 50 PACKS 10% 

51 - 100 PACKS 15% 

•UNDER $20, ADD $5 HANDLING. 

^461 



•APPROX. RETAIL. PRICE VARIES. 



ANCIE LABORATORIES 



9204 BWtmxi Bind 
■<■., flit. MD 20740 



301-345-6000 (With DC loch 
301-792-2060 .?..!-. MD local) 
800- 638-0987 {Nltonall 



ADDRESS. 
CITY 



ANCIE Laboratories 
9204 Baltimore Blvd 
College ParK. MD 20740 



301 -345-6000 (Wash DC Local) 
301 -792-2060 (Ballo MD Local) 
800-638-0987 (National) 



CAT# 



TOTAL 



□ Check Enclosed 

□ C.O.D. 

□ VISA 

□ MASTER CHARGE 
ACCT. # 

EXP. DATE 

MIN. ORDER $20 

PRICES SUBJECT TO CHANGE 



^See List of Advertisers on page 322 
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TUTORIAL 



For the day when you'll want to communicate. 



Datacom Decisions 



Frank J. Derfler Jr. 
P.O. Box 691 
Herndon, VA 22070 



Someday you may want to 
exchange programs with a 
friend or business associate 
across town or across the na- 
tion, or perhaps access an elec- 
tronic message system such as 
a Forum 80 or a computer bulle- 
tin board. You may want to use a 
time-shared computer utility or 
a multipurpose utility, such as 
the Source. For all of the above 
your 80 will need to communi- 
cate by telephone. 

There are a bewildering num- 
ber of paths to follow. I'll try to 
describe some common ways to 
make your TRS-80 Model I into a 
data communications device. 

You have to start with a state- 
ment of need. What is it you 
need to do? Do you want to only 
act as a remote off of a large 
computer system? Do you want 
to engage in a heavy electronic 
mail flow on several different 
systems? Do you need to save 
what you send and receive local- 
ly on your TRS-80, or are you in- 
terested only in reading and 
leaving information on some 
other system? Do you want to 
exchange programs by tele- 
phone with other TRS-80 users 
and with electronic message 
systems and program ex- 
changes? 



Certainly you can make a 
TRS-80 into a sophisticated and 
flexible system, capable of ex- 
changing multiple files with the 
fastest IBM mainframes, but do 
you need to pay for all of that 
capability? 

After we sketch what you 
want to do, we need to know 
what you already can do. Do you 
have a disk system? Do you 
have an expansion interface and 
RS232 card? How much system 
power do you have available? 
The most basic 4K Level I ma- 
chine can be a very effective ter- 
minal. 

Next we have to know what 
hardware and software is on the 
market and what it costs. My list 
will discuss some of the most 
popular hardware and software. 

Communications are usually 
done over a telephone line. If 




you're a ham, you might also 
use an amateur radio rig. Tele- 
phone and radio systems only 
pass sound, so your computer's 
signals have to be converted to 
sound waves. This is done by a 
device called a modem (modula- 
tor/demodulator). Perhaps the 
most popular modem is the CAT 
by Novation. Radio Shack sold 
this modem under its own label 
for several years. Their newest 
device is called Modem I and it 
is a completely Radio Shack de- 
signed and manufactured prod- 
uct. The modem connects be- 
tween the computer and phone 
line and exchanges dc voltage 
signals with the computer. 

The most common form is the 
RS232 ASCII signal coming from 
a serial port. In the TRS-80 Mod- 
el I, the circuit board that makes 
RS232 signals is an option that 




plugs into the expansion inter- 
face. The Radio Shack method 
of communications means you 
must buy an expansion inter- 
face, RS232 card and modem. 

The Modem I does have the 
capability to operate with the 
Model I keyboard computer 
without the expansion interface. 
A special cable and software is 
required. The only mode of oper- 
ation available is one in which 
your transmissions are not 
echoed back from the distant 
end system (half-duplex); how- 
ever, in many applications this 
is not a problem. 

All of this hardware must be 
used with the proper software. 
Radio Shack sells a communi- 
cations program package called 
Videotex which allows your sys- 
tem to act like a terminal. It will 
send and receive a program or 





CAT OR OCAT 



Fig. 1. This flowchart will help you decide on the best modem to suit your needs. 
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data and display what it re- 
ceives on the screen. This com- 
munications program sells for 
about $30. Including the soft- 
ware, it costs about $330 to give 
your TRS-80 an elementary com- 
munications capability in the 
standard configuration, if you 
already have the expansion in- 
terface. There are other ways to 
do it. 

Different Strokes 

Two manufacturers make 
TRS-80 modem devices that 
don't require the RS232 board or 
the expansion interface. Both 
the Microconnection and the 
Lynx modems plug directly into 
the TRS-80 keyboard and both 
are FCC accepted so they can 
attach directly to telephone 
lines. There are some important 
differences between the devices, 
so you should consider your 



needs and available equipment. 
Here are some other differences 
and similarities: 

• The Microconnection has 
an extra output to give RS232C 
signals to drive a printer or other 
RS232C devices. The Microcon- 
nection provides a port separate 
from the standard TRS-80 
RS232C output but it requires 
special software to do it. The 
Lynx cannot be used if the stan- 
dard RS232 card is in place be- 
cause it decodes the same sig- 
nals. The Lynx has no RS232C 
output. 

• The Lynx can use any soft- 
ware communications package 
written for the TRS-80 in its stan- 
dard communications configu- 
ration. Because the Microcon- 
nection uses a different ad- 
dress, it requires customized 
software. 

• Both devices plug into 




Photo 1. The Lynx modem features both originate and answer sig- 
nalling and operates with standard TRS-80 communications soft- 
ware. 




Photo 2. This is the DC AT. It is the direct connection version of the 
popular Cat modem. Direct connection means the modem plugs into 
the phone jack and does not use acoustical coupling. The Cat and 
DCA T require an RS-232 interface to the computer. 



either the keyboard or expan- 
sion interface. 

• The Lynx comes with a very 
adequate communications pro- 
gram on tape. The Microconnec- 
tion provides a listing of an ele- 
mentary program. Communica- 
tions programs are available at 
prices starting about $20. 

• Both devices work with any 
memory size or language level 
of the TRS-80 Model I. 

• The Lynx sells for about 
$280. The Microconnection sells 
for about $250, but it does need 
communications software. 

Now let's talk about software. 
As I pointed out, the Lynx comes 
with an adequate communica- 
tions program that is ready to 
load and run. Slightly different 
programs are provided for Level 
I and Level II machines. The Lev- 
el II program will receive and 
transmit Basic programs and 
messages and serve as a rea- 
sonably flexible terminal. This 
would be adequate for most 
bulletin board and hobby sys- 
tem users. 

TCP 

The Bottom Shelf is a compa- 
ny known to many TRS-80 users. 
Among their many program 
packages they have a Terminal 
Control Program. TCP is a utility 
package for TRS-80s equipped 
with an RS232 board or Lynx. It 
will send and receive Basic pro- 
grams, data and memory 
blocks. The RS232 parameters, 
as well as the video and printer 
output, may be controlled di- 
rectly from the keyboard. 

TCP has several different op- 
erating options. One option al- 
lows the TRS-80 to function as a 
dumb terminal without memory. 
A second menu selection allows 
you to transmit and receive 
Basic programs in the com- 
pressed format used internally 
by the TRS-80. Another very flex- 
ible option allows the computer 
to transmit any designated 
block of memory within the 
RAM. This allows you to dump 
the contents of any file you can 
load into a computer out the 
RS232 port. 

TCP can be entered and left 
easily, allowing you to use other 
utility programs, the operating 
system, or Basic programs 



while still retaining TCP in mem- 
ory. This program sells for about 
$20 on tape and $30 on disk. 

ST80 

The ST80 series is made up of 
three programs for the Model I 
and one program for the Model 
II. The programs differ in the 
number of features they give 
your Tandy terminal and, of 
course, the cost. 

The most elementary pro- 
gram is called the ST80-UC. It 
makes your TRS-80 think it is a 
terminal with most of the stan- 
dard terminal features. It will run 
on a Level II system with 4K or 
more memory. 

A TRS-80 running under ST80- 
UC has full cursor control and 
scrolling. It transmits control 
codes, escape, left and right 
brackets, repeat, rub out and an 
extended null break. The video 
driver program is compatible 
with all popular lowercase modi- 
fications. The program also will 
drive the TBEEP 2 audio device 
manufactured by Web Associ- 
ates. This provides the bell func- 
tion found on video terminals. 

The ST80-UC is available in 
versions to run with the TRS-80 
serial board, the Lynx direct 
connection modem and the Mi- 
croconnection. The price is $25. 

ST80-III is a full capability 
smart terminal program with 
professional features. You can 
customize your TRS-80 to serve 
as a terminal for practically any 
computer system. Since the 
customizing is all done in soft- 
ware, you need only change 
disks to be perfectly meshed 
with the different host systems 
you may use. 

ST80-III is available in ver- 
sions for both the Model I and 
Model II TRS-80S. The Model I 
version co r . ;S $150 and Model II 
costs $200. The most current 
version should be 2.2. A version 
for Model II CP/M should be 
available by the time this is pub- 
lished for $300. 

There is another program be- 
tween the $25 UC and the $150 
ST80-III. The middle program is 
called the ST80-D which is 
sometimes marketed as the 
ST80-II. The D version does not 
have some of the ST80-lll's se- 
curity, special transmission, 
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Interfacing 

Microcomputers 

to the 

Real World 



Interfacing 
Microcomputers 
to the Real World 



Murray Sargent III 

and 

Richard L. Shoemaker 



With your microcomputer and this new book 
you can control: 



•Lights 
•Switches 
•Relays 
•Thermostats 



•Sensors 
•Motors 

'Displays 
•Keyboards 



* Virtually any device in your home, office, 
or laboratory. 

Send today for a free brochure which describes how the 
book covers: 

• machine and assembly languages • input/output 
ports • memory • terminals * storage * controllers 

• software 

and how it teaches interfacing with a series of "hands-on" 
exercises. The brochure also includes a prepublication 
review and an annotated table of contents. 

Write to Gloria Lanzillo, Advanced Book Program, or 
use the reader service card. 

Addison-Wesley Publishing Company 

Advanced Book Program 

World Science Division 

Reading, Massachusetts 01867 ^513 



and large system transmission 
features, but it is adequate for 
most hobby uses. ST80-D is 
available only for the Model I 
TRS-80 with disk. It costs $80. 

ST80 programs are available 
from Small Business Systems 
Group, Westford, MA. 

From I SI 

There is one terminal program 
which I personally consider to 
be "the best" disk-based pro- 
gram available for Model I (and 
Model III) systems. It is called 
OMNITERM and is written by 
David Lindbergh. OMNITERM is 
available from the Programmers 
Guild and under the name of SU- 
PERTERM from Instant Soft- 
ware for $99. OMNITERM is a 
powerful but easy to use pro- 
gram. It is menu driven, so the 
user doesn't have to remember 
any commands or key se- 
quences. The instruction man- 
ual is very complete and in- 
cludes an extensive index and 
glossary. Included in the pro- 
gram is a complete customiza- 
tion and translation capability 
so you can make your computer 



interface with almost any ASCII 
and EBCDIC speaking system. 
Files can be easily transmitted 
or saved, electronic mail can be 
read and re-read using a unique 
ability to scroll through the buf- 
fer while staying on-line, and 
many helpful operating features 
are provided. OMNITERM is a 
great value at the price. 

Decisions, Decisions 

If you want more information 
on the software and equipment I 
mentioned here, you can find it 
in the Microcomputing feature, 
"Dial-up Directory." The Lynx 
was reviewed in depth in the 
January, 1981 issue. The ST80 
series of software was de- 
scribed more fully in the Decem- 
ber, 1980 issue. We took a closer 
look at the Microconnection in 
September, 1980 and reviewed 
TCP in August, 1980. 

One of the prime appeals of 
the TRS-80 is its versatility. A 
system can be configured to 
meet whatever your data com- 
munications needs might be. 
Research the options to find the 
system that serves you best. ■ 




COLOR COMPUTE 



RAMCHARGER 
32K UPGRADE 

Space Invaders 
Meteoroids 
Space War 



• The Best Games Available 

• High Resolution Graphics 

• Fast, Machine Language 

• Compatible w/ Ext. Basic 

• $21.95 each, $59.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TRADERS 
Galactic trading game 

$14.95/ea. 



EXTEND MEMORY TRS-80 

FROM 16Kto32K 

100% Compatible With 

Extended Basic 

No Soldering Or Modification 

Fits Inside Computer 

$99.95 , . 



ADVENTURE 





Combat the powers of darkenss and 
evil! Can you recover the treasure of 
the Golden Sorcerer before his 
minions overcome you. A 
adventure for endless hours of fun 
and excitement. $ 1 9.95 

THE FACTS 

At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

$14.95 

UTILITIES 



• EDITOR/ ASSEMBLER $34.95 

• SUPER MONITOR 19.95 

• EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROMPAC port) 

• MAGIC BOX 24.95 

Load MOD l/lll Tapes into the color computer 

Coming Soon: Software speech 
synthesis. 

Improved Videotex with 
printout and many 
other features. 




SPECTRAL 
ASSOCIATES .« 

141 Harvard Ave. 

Tacoma. Washington 98466 

(206) 475-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD 3% FOR SHIPPING 

VISA OR MASTERCHARGE ACCEPTED 



264 • 80 Microcomputing, August 1981 




O/E'l/E MOVED ! 

Now we. can ojJfje/L haAteA and 
mono. neLLable. AeAvice. -- 
TncZuding UPS upon Hzqixtbtl 



DUALCASE* 

UPPER/lowercase, full time from power-up; 
NO software; Standard typewriter keyboard 
operation (shift to UPPERCASE); Control charac- 
ters can be displayed; 128 Total character set 
plus full graphics. 

SWITCHABLE* 

No switches. No driver. Operates from key- 
board. Totally disables "PATCH" functions. 

KEYBOARD DEBOUNCE* 

Extra keyboard debounce, full time from 
power-up; NO software. If dirty keys are a prob- 
lem, this is for you. 

BLOCK CURSOR* 

Replaces the underline style cursor directly. 
Easier to locate on a full screen. No distracting 
blinking. 

SHORT CASSETTE LEADER* 

For tape based systems. Does NOT change 
baud rate. Only shortens recorded leader. Saves 
four seconds of waiting time. Great for data files! 
No conflict with high baud rate cassette systems. 

ELECTRONIC SHIFT-LOCK* 



No extra keys or switches. Simply tap either 
shift key, UPPERCASE lock, normal shift unlocks. 

TRS-80 is a Trademark of Tandy Corp. ORDER INFORMATION 



"THE PATCH" is not only a lowercase modi- 
fication, but a complete system offering many 
of the enhancements you would like available on 
your TRS-80. How is this possible? "THE PATCH" 
is a "smart chip" which monitors the same ad- 
dress lines as the ROM in your TRS-80 Model I 
Level II. "THE PATCH" recognizes certain ad- 
dresses, turns off the Lll ROM, then substitutes 
its' own byte of data. This "Patching" is what 
allows ALL these enhancements with NO soft- 
ware overhead, thus NO software conflict. In 
fact "THE PATCH" is the ONLY lowercase modifi- 
cation that is compatible with both Basic and ma- 
chine language programs AND the ONLY all 
hardware lowercase modification. 

You install "THE PATCH", no need to send 
your TRS-80 away so there's no hidden installa- 
tion cost. Detailed instructions guide even the 
most inexperienced owner to complete installa- 
tion in about 30 minutes. Works with the two or 
three chip ROM set. "THE PATCH" unit plugs into 
the ROM sockets (does not replace existing ROM). 
Lowercase does require installation of the extra 
video RAM (supplied with "THE PATCH"). 

"THE PATCH" is compatible with any word 
processor, any DOS and also other languages 
which use ROM sub-routines. "THE PATCH" is 
never obsolete. As new features become avail- 
able they can be installed in your "PATCH". 

"THE PATCH" is covered with a one year 
limited warranty on materials and workmanship. 
(Does void Radio Shack's 90 day warranty). Ask 
for details ... we can install for a small fee. 



CALL NOW 
(208) 772-9571 
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CECDAT, INC. 

P. O. Box 497 
Hayden Lake, ID 83835 

"THE PATCH" is a trademark of CECDAT, INC. 



Name 
Street 
City ... 



State 



ZIP 



Signature 

□ Check, Money Order, Bank Draft 

□ VISA, MASTERCHARGE, Purchase Orders (add 3%) 
Card/PO No _ 



Expiration Date Today's Date 

You must check one: 

□ "MEM SIZE" □ "MEMORY SIZE" 

Price valid through December 31, 1981 



"THE PATCH 2" Switchable (a) $94.97 ea. 

OPTIONS: (please check) 

□ "Electronic Shift-Lock" Add $30.00 

□ "Short Cassette Leader" Add $10.00 
[71 "Block Cursor" No Charge 

□ "Debounce" No Charge 

Ship. & Hand. @ 2.50 ea. 
COD ADD 5% . . . . 
ID Sales Tax 3% (Id Res) 
TOTAL ORDER .... 



-See List ot Advertisers on page 322 
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N€W FROM MICRO-SVSTCMSU! 



A complete development package 
for the machine language programmer. 

Novice and experienced programmer alike will recognize the 
superior features of this excellent package. 

The heart of the system is the M-ZAL disk assembler. 
This is almost a development package in itself, 

including: 

1 . A full screen editor 

2. A super fast assembler with optional relocatable code. 

3. A Unking loader for use with this relocatable code. 

Normal retail price on the M-ZAL package alone is $149.95. 

What WE add is our own disassembler that allows you to 

compile source code into a disk file, 

load and edit it with M-ZAL, 

and then re-assemble the code to a command file! 

Also you get: 
1 . A full blown DOSPLUS with all utilities. 

AND 
2. The long-awaited DOSPLUS TECHNICAL MANUAL! 

We give you the Information, the keys to the DOSPLUS 

kingdom that you've been wanting. 

We ALSO give you the package to Implement them. 

All this for only $199.95. 

More programming power than you will find 
ANY WHERE ELSE IN THE WORLDI 

This package will be available from Micro-Systems and it's 

authorized dealers starting in the month of August. 

Demand will be high so order yours today! 




Specializing in the Tandy Line 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919, Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(305) 983-3390 or drop us a card. 




VISA' 



Dealers inquiries invited 



MODCL III for 



$175.00 



Ves, double density is here! Two 40 track drives give you 368K of storage, find if thats not enough, four 80 
track drives will give you 1 .4 megabytes of on line storage, fill this with the added speed of double density 
operation, not to mention 80% more storage per diskette. 

No loss of your software library or conversion of your single density diskettes is necessary. DOSPLUS 3.3D 
reacts to the diskette. It will read single or double density with equal ease. It is not JUST a double density 
operating system, it is a double AND single density system. It is the first of it's kind. No one can offer you what 
we can! To change a disk to double density you need only format a double density disk, and then ON6 
command (TRANSFER) , will bring over all your files. Very simple to use, but not necessary, because DOSPLUS 
will read them as they are now. Just insert single density diskettes and run (with our operating system). The 
machine will know what you are doing without having to be told ANYTHING! 

If you want your computer to chain functions, then you need DOSPLUS 3.3D(for example, from powerup you 
could have your machine call another computer, scan a data base for appointments, recording any that appear 
on your printer; and then load in our new BASIC, setting files and mem/size, and start your program so your 
secretary can go right to work) . LUith our BUILD, DO and AUTO, all of the preceding would be child's play. By the 
way, you could have also set the time and date, looked at the directory of all your drives as well as checked 
the free space map (which tells you not only how much space you hove on a diskette, but also where it is and 
what it is used for) DOSPLUS is a truly intellegent, easy to use operating system that gives you all your 
computer is capable of delivering. 

Vou probably guessed that for $1 75.00 what we are doing is turning your Model I into a Model III. It's so 
easy anyone can do it in 10 minutesl LUhy spend $2,500.00 for a Model III when you can get the same 
computing power, with our kit, and NO SOFTUUAR6 CONV6RSION. for only $175.00. Don't throw away your 
Model I, let us expand it! Move up to the world of double density. 

Vou will reap the benefits of our error-free software. No mirades, just plain hard work and a lot of testing by 
experts and novices alike. Test us and judge yourself. We guarantee you will be 1 00% satisfied. If you ore the 
first to find a legitimate "BUG" in our software you will be reworded with a brand new $100 dollar bill. 

Vour systems disk will come complete with an all new single/double density disk editor colled D1SKZAP, and 
a BASIC program compressor colled CRUNCH. Also included is PURG€, a utility to moke the mass removal of 
unwanted files from a diskette easy, and R6STOR6, a program that makes recovering a dead file as easy as 
typing in a command line. TRANSF6R is just as it sounds, a program that moves all files (except systems) from 
one diskette to another. Single density to double or vice versa. CL6ARAL6 is used to zero data files on a 
diskette for a "clean slate". DISKDUMP is a new machine language sector display/modify program that works 
with filespecs instead of tracks and sectors. Used in conjunction with DISKZAP, you will have more disk editing 
power than ever before, with less frustration than was ever thought possible. 

Vou will now be able to use all your DOS commands from our new BASIC with the CMD feature. And how 
about variable length records that really work, first time. €V€RV time! This'will allow you to use the ISAM 
programming technique for vastly improved handling of large data bases and lightning speed unheard of in 
BASIC. (ISAM stands for Indexed Sequential Access Method) . 

Vou con create programs that will run on MOD III DOSPLUS, yes, 100% compatability. 

If inflated computing power without an inflated price tag is what you're after, contact us at the address 
below. 




Specializing in the Tandy Line 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 
California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919. Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical intormation. call 
(305) 983-3390 or drop us a card 



GH 



Dealers inquiries invited 



sSee List ot Advertisers on page 322 
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APPLICATION 



Keep track of those directories. 



Disk Index 



Robert A. Schilling 
725 SE Vance Circle 
Palm Bay, FL 32905 



Have you ever wanted to 
demonstrate your TRS-80 
to an admiring audience, only to 
spend the next 15 minutes rum- 
maging through disk directories 
in search of those great game 
programs? If it's too much trou- 
ble to routinely update your disk 
labels to reflect the current con- 
tents, then read on. This pro- 
gram will make it much easier to 
keep an up-to-date list of each 
disk directory. 

One drawback of TRSDOS is 
its inability to print or display a 
disk directory from DOS while in 
Basic. If you have a one-drive 
system the problem is aggravat- 
ed by the system overlays re- 
quired on each disk, leaving 
about 50 grans of space for your 
programs at best. As a result, the 
number of disks you have to 
keep track of grows constantly. 
Program Listing 1 allows me 
to print or display all my disk 



directories, neatly formatted to 
use a minimum amount of 
paper. 

Program Use 

The program first prompts to 
find out if you want system and 
invisible files included in the 
output. Since I have minimum 
system information on every 
disk, I rarely use this option. It 
then asks for the drive number 
to be used for this listing ses- 
sion: in order to change drive 
selection it is necessary to rerun 
the program. It then asks if you 
want a hard copy of the listings; 
don't answer yes if you have no 
printer. The program then asks 
for a label for each disk, follow- 
ed by a prompt to insert the disk 
into the proper drive and hit 
(enter). Since I have systems 
information on all disks, the disk 
name stored in the directory 
bears no relationship to the disk 
contents. For those of you who 
use descriptive names on for- 
matted disks, the remarks sec- 
tion at the end of the program 
gives you two lines to be added 
to allow these disk names to be 
printed as well. 

Subroutine 5000 POKEs a 
small machine language routine 



into high RAM that will read disk 
sectors, regardless of their pro- 
tection status (such as the di- 
rectory on track 17), into a 
256-byte RAM buffer just below 
the program itself. This version 
is designed for a 16K system, 
however, the machine language 



program is relocatable if the 
ninth and tenth elements of the 
data statement are changed to 
reflect the desired start address 
of the 256-byte buffer, along 
with the PEEK statements in 
lines 110 and 120 that look 
through this buffer, and the 



II CLStCLBAR2»0lDEPINTA-C,F,I,J:DEFSTRR,W 

20 PRINT'BASIC DISK INDEX LABEL READER" 

30 INPUT'DO YOU WANT SYSTEM AND INVISIBLE PILES PRINTED |W 

40 IPLBPT$(W,l)-"Y"THENPL-lELSEFL-0 

50 GOSUB5000IDEFUSR0-4H7PC0 „„,„„,„„ ,„v™u«.« 

55 INPUT'WHICH DRIVE IS TO BE USED (0-3) " J JD:IFJD<0ORJD>3THEN5S 

60 INPUT'DO YOU WANT HARDCOPY ">R: IFLEPT$(R,1) -"Y'THENPl-lELSEFl 
-0 

70 INPUT'DISK NAME "jW „_„ 

60 PRINT-PUT DISK CONTAINING ";W f " IN DRIVE "jJDj" AND HIT ENTER 

■itlNPUTR: PRINT 
90 IFFl-lTHENLPRINTWELSEPRINTW: IPF1-1THENLPRINTELSEPRINT 

100 R-"* ":CT»0 

105 PORJS»2TO9:POKE32709,JS:B-USR0(1) 

110 PORJL-0TO7 : IFPEEK ( 32448+JL*32) -0THEN162 

120 IPFL-0ANDPEEK(32448+JL*32)O16THEN162 „„„«.,„ 

130 CT-CT+l:FORIN-5T012:R-R+CHR$(PEEK(32448+JL*32+IN)) :NEXTIN 

140 R.R+V:FORIN«13T015:R-R+CHR$(PEEK(32448+JL*32+IN)):NEXTIN 

150 R-R+" * "sIPCT<4ANDJL<8THEN162 

160 GOSUB4000:CT«0:R«"* " 

162 NEXTJL 

164 NEXTJS 

166 IPR-"* ■THENR--" 

170 GOSUB4000:CT-0:R-"*:GOSUB40B0:GOTO70 

4000 IFF1-1THENLPRINTRELSEPRINTR: RETURN 

4010 RETURN 

5000 FORD»32704TO32718:READE: POKED, E: NEXT: RETURN 

5010 DATA243, 1,0, 0,17, 0,17, 33, 192, 126, 205, 221, 70, 251, 201 

6000 >TO INCLUDE THE DISK LABEL IN THE OUTPUT, ADD THE 

6010 ; FOLLOWING TWO LINES 

6020 ;82 POKE32709,0:B-USR0(1) 

6030 ;83 W-W+" " :FORJL-32656T032663:W-W+CHR$(PEEK(JL) ) :NEXT 

6040 ;TO INCLUDE FREE GRANS ADD THE FOLLOWING 

6050 ;84 FR-0 

6060 ;85 FORJL-32448T032489 

6070 >86 IFPEEK (JL) -252THENFR-FR+2 

6080 ) 87 IFPEEK (JL)-2540RPEEK(JL)-253THENFR-FR+1 

6090 >88 NEXT 

6100 J 89 W«W+" "+STR$(FR)+" FREE GRANS" 



Program Listing 
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POKE statements in lines 57, 
105 and 5000 that put the pro- 
gram in place and modify it 
while running. To protect this 
area you should answer the 
Memory Size question with 
32447 upon power up. 

The machine language 
routine was developed after 
picking through TRSDOS with 
my disassembler. The DOS 
routine at 46DDH, when called 
withB = byte count (00 = 256), C 
= drive #, D = track #(11 H for 
directory), E = sector, and HL 
= starting RAM address will 
load the specified sector into 
the buffer addressed by HL, 
regardless of its protection 
status. 

The For. . .Next loop in line 
105 loads each sector into the 
RAM buffer in turn. Only sectors 
two through nine contain file 
labels, sector zero holds the 
disk name and format data as a 
16-character string starting with 
the 208th character from the 
start of the sector. 

Each sector of the directory is 
formatted as eight 32-byte 



blocks that can contain informa- 
tion on one program located on 
the disk. If the first byte of a par- 
ticular block is zero that block 
contains no valid information 
(line 110). For all files other than 
system files, this first byte 
seems to be 10 hex. System and 
invisible files have some value 
other than 10 hex in this loca- 
tion. Line 120 checks for this 
depending on the option selec- 
ted at the beginning of the pro- 
gram. 

For all blocks containing valid 
file information, the file name 
and extension is an 11 -byte 
string starting with the fifth byte 
of the block. Lines 130 and 140 
PEEK this information into a 
string R. Lines 150 to 170 format 
the output into print lines of four 
labels each and print or display 
them as desired. 

For those with multi-drive sys- 
tems this routine can easily be 
modified to produce a disk file 
of all directories that could be 
searched by disk name or pro- 
gram name, and that could up- 
date itself in a few minutes. ■ 



GOSUB 

GOSUB'S MX80/70 FRICTION FEED KIT 

ONLY $49.95 ppd 

The Gosub MX80/70 Friction Feed Kit for the Epson MX80 
printer will give you complete paper control. 
You get easy to follow instructions and all parts necessary 
to give your epson friction feed capabilities. 
No drilling and it installs in about 15 minutes. 
Money back guarantee if not satisfied. 
'PLUS: 

* USE SINGLE SHEET PAPER 

* USE INEXPENSIVE ROLL PAPER 

* USE YOUR OWN LETTER HEAD 

* FREE PAPER ROLL RACK INCLUDED WITH KIT 

* DOES NOT AFFECT PIN-FEED USE 

PRINTERS: EPSON MX80 S555 BASE 2 850 $749 



STRATEGY SIMULATIONS 

MERCENARY FORCE 

Command a mercenary 
army. Decide the number of 
men, type of weapons, 
armor, air support, medical 
aid and transports. Battle 
the enemy in jungles, 
underwater, on moons and 
in space. (1-4 players) 
TRS-80 L2 16K $16.95 



FOR THE TRS-80 

SPACE MERCHANT 

Build an Empire in the 
stars. Choose your cargo, 
means of shipping, and 
security. Risk pirates, ion 
storms, engine failure and 
other hazards while you try 
to become a Space 
Merchant. (1-6 players) 
TRS-80 L2/16K $9.95 



KANSAS RES ADD 3% SAIES TAX (TRS-flO IS A TRADEMARK OF TANDY CORP ) 

ALL PRICES SUBJECT TO CHANCE WITHOUT NOTICE FREE CATALOG UPON REQUEST. 

SEND CHECK OR MONEY ORDER TO: 



P.O. BOX 275-C 



GOSCIB 



• 284 



WICHITA, KS 67201 



Presenting "The Micro Mainframe" 

*TRS-80 MOD-III 5-Megabyte, self contained Winchester Drive Computer 

system 7995.00 
5-Megabyte add-on Winchester Drive for *Mod-l or *Mod-III computer 

system 3795.00 
Winchester Disk Controller for most drives 1495.00 
Both systems include TRSDOS compatible operating systems 

Hard Disk Host adapter for most Winchester Hard Disks 

*TRS-80 MOD I & III 350.00 *TRS-80MODII 650.00 

MOD-III floppy disk controllers 

FDC III A — assembled controller for 5" and 8" drives 595.00 

read or write single and double density 

FDC III B — assembled controller for 5 " drives 325.00 

Installation kit for add-on floppy diskdrives 160.00 

Dealer Inquiries Invited 1-916-447-7048 

MICRO MAINFRAME „ 

714 Alhambra Blvd., Sacramento, CA 95816 



• See List of Advertisers on page 322 
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UTILITY 



Organize your software by the disk. 



Dirprog 



Jack Egbert 
801 Welch Road 
Palo Alto, CA 94304 



DIRPROG is a disk directory 
program that provides a 
ready and flexible directory of 
computer programs that are 
spread over many disks and are 
frequently modified. 

The basic requirement for 
best utilization of this program 
is a TRS-80 with 48K memory, 
one or two disk drives, NEWDOS 
and GSF sort. It can accommo- 
date up to 950 separate pro- 
grams distributed over 60 disks 
before it becomes limited by 
CPU memory. To handle even 
more files, the program could 
simply call up additional direc- 
tories of equal size as required. 

The program employs the DIR 
(DOS directory command) and 
scans the video memory for the 
information presented. It stores 
this data in string arrays for 
sorting and recall. Disks can be 
entered quickly, and when load- 
ed into the disk drive, a record 
number and disk title are as- 
signed to each. 

Printout or display of the di- 
rectory is presented as a tabula- 
tion of all disks in numerical se- 
quence with the programs listed 
alphabetically and spacing pro- 
vided between each grouping. 
Or, program titles can be listed 
in alphabetical sequence with 
the disk identifier shown after 
each title. If a disk is formatted 



or just has a DOS with no visible 
programs, the disk name will be 
listed with a "#" preceding the 
title. 

Disk program data can be en- 
tered and deleted; a title can be 
searched for without knowing 
where it is or even how to spell 
the entire name; and the entire 
directory may be sorted by sev- 
eral parameters within 10 sec- 
onds for the maximum directory 
size. Sorting employs a machine 
language subroutine sold by Ra- 
cet that is called GSF which, by 
comparison, seems to eclipse 
all other sorting subroutines. 

This program has proven to 
be extremely helpful among our 
TRS-80 users group, so I decided 
to make it widely available 
through publication. 

Instructions For Using DIRPROG 
(A Disk Directory Program) 

Before this Basic program 
can be used, it is necessary to 
first load in the machine lan- 
guage "GSF— Sort Program." 
To do this, perform the following 
procedure: 

1. From NEWDOS, "LOAD 
GSF48/OBJ" 

2. Then load "BASIC 1,62700" 
(This protects high memory) 

3. Next, RUN"DIRPROG" 

Entering Disk Data 

If you want to number the 
disks, the program will sort on 
the first four places. Therefore, 
start with 01 or 01 A rather than 1 
because in sorting, 2 would 
follow 19 whereas 02 would put 



it where you expect it to be. 

In this same reply, the string 
response can be 255 characters 
long so a completely descriptive 
title can be used for each disk 
heading, e.g. 33 B (tab)NEWDOS 
(tab)(tab) GENERAL UTILITY 
PROGRAMS. 

After adding disks to the di- 
rectory or editing by deletion of 
disk numbers, you should then 
sort so that storage of the file 
will not include the deleted 
records. 



If you elect to modify DIR- 
PROG for your own purposes, be 
advised that the DIR command 
requires about 8,300 bytes of 
free memory to execute. Should 
your free memory be less than 
this, you will get an error mes- 
sage, Out of Memory IN 380. You 
must then either reduce the 
length of the program or take 
away from the string space that 
has been reserved in line 80. 
With NEWDOS 80 this limitation 
does not apply. ■ 



Program Listing. 



20 CLS:PRINT,"#M# DIRPROG tl#»":PRINT 

25 PRINT'BY BRYAN DEVENDORF — 9/15/79" 

30 PRINT-REVISED BY WILLIAM RAMSEY AND JACK EGBERT" : PRINT 

35 PRINT"M## A PROGRAM TO INDEX YOUR DISK FILES ###•" 

40 PRINT" ===========»===============»==«-===". PRINT 

45 PRINT: PRINT'TO RETRIEVE EXISTING FILES — PRESS ( R )":PRINT 

50 PRINT'TO BUILD A NEW FILE — PRESS ( B )", 

55 DEFUSR=&HFE80:CLEAR:POKE-1,0 

60 POKE18007,26 

62 AS="":CS="":DNS="":ES="":I=0:J=0:LS-"":L5S="":MP=0:MSS="":N"0 

:PNS="":Q=0:SP=0:SWS="":TIS="":TPS="":X=0:XX=0:Z=0 

65 CLEAR 16600:DIM PN$( 952) ,DN$(952) 

70 DEFINT J,X 

75 A$=INKEY$:IFA$-""THEN75 

80 IF A$="R" CLEAR 16600:DIM PNS(950) ,DNS (950) :MP=-1:DEFINT J,X: 

GOTO 100 

85 CLS:PRINT@330, "PLEASE WAIT WHILE I INITIALIZE ARRAYS . . . ." 

90 PRINT,"( ABOUT 15 SECONDS )" 

95 FORX=0TO950:PNS(X)=" "+STRS (X+100) : NEXTX:XX=1 

100 CLS: PRINT: PRINT: PRINT," MENU":PRINT : MS$="" 

110 PRINT, "1 — ENTER DISKS" 

120 PRINT, "2 — SORT AND LIST" 

130 PRINT, "3 — SAVE DATA ON DISK" 

140 PRINT, "4 — GET DATA FROM DISK" 

150 PRINT, "5 — SEARCH FOR A TITLE" 

160 PRINT, "6 — DELETE A DISK" 

170 PRINT, "7 — LIST DISK TITLES ONLY" 

180 PRINT, "8 — REVIEW DIRECTORY LISTINGS FOR A DISK" 

190 PRINT:PRINT"INPUT YOUR SELECTION " ; 

200 MS$=INKEY$:IFMSS=""THEN200 

210 MS=VAL(MSS) :IF MS<1 OR MS>8 THEN100 

220 ON MS GOTO 230,980,710,800,600,500,1350,1400 

230 CLS:PRINT:PRINTTAB(10) " INSERT DISK":PRINT 

240 PRINT'ENTER FILE NO. AND NAME OF DISK . . . .";: INPUT DNS(XX 

) 

250 CMD"DIR :1" 

260 DNS=LEFTS(DNS(XX) ,4)+" Z" :PN$(XX) =" I " 

270 IF MP <> -1 THEN XX=XX+l:GOTO 290 

280 XX=XX+1:DNS(XX) =DNS 

290 SP=15488 :Z=0 :PNS="" 

300 GOSUB 390 

Program continues 



270 • 80 Microcomputing, August 1981 



310 IF PEEK(15488)=32 THEN DN$(XX) -DNS:PN$ (XX) -"#"+MID$(DNS (XX-1 

) ,7,12) :XX=XX+1:G0T0 350 

320 IF Z — 1 THEN GOTO 350 

330 IF Z/3 - INT(Z/3) THEN SP=SP+24 ELSE SP=SP+20 

340 GOTO 300 

350 PRINT: PRINT "TO ENTER ANOTHER DISK , HIT 'ENTER' . . . ." 

360 PRINT: PRINT-TO RETURN TO MENU , ENTER ■ 1 •" 

370 SW$=INKEY$:IFSW$=""THEN370 

380 IF SW$»"1" THEN GOTO 100 ELSE GOTO 230 

390 IF CHRS(PEEK(SP))=" " THEN Z=-l :RETURN 

400 IF MP=-1 GOTO 470 

410 PN=256*(PEEK(VARPTR(PN$(XX))+2))+PEEK(VARPTR(PN$(XX))+l) 

420 IF PN>32767 THEN PN-PN-65536 

430 FOR X=0 TO 11 

440 POKE PN+X,PEEK(SP+X) 

450 NEXT 

460 DN$(XX)=DNS:GOTO 490 

470 FOR X=0TO11:PNS"PNS+CHR$(PEEK(SP+X)) :IF CHRS (PEEK (SP+X) ) »" " 

THEN X=ll 
480 NEXT X:DN$(XX)»DNS:PNS(XX)-PN$:PN$«="" 
490 XX=XX+1:Z°Z+1:RETURN 

500 CLS:PRINT ' Iff* TO DELETE A DISK MM 

510 INPUT-WHAT IS THE NO. OF THE DISK YOU WANT TO DELETE .... 
";DN$ 

520 CLS :PRINT@340, "WORKING . . . . " 
530 FOR J=l TO XX-1 
540 IF LEFTS(DNSIJ) , 4) -LEFTS (DNS, 4) THEN DNS ( J) ="ZZ" : PNS(J) = "ZZ" 

550 NEXT J 

560 CLS :PRINTg330, "DISK NO. — ";DN$;" — IS DELETED" 

570 PRINT:LINEINPUT"HIT 'ENTER' TO RETURN TO MENU . . . .";AS 

580 GOTO 100 

600 CLS:PRINT"WHICH TITLE WOULD YOU LIKE TO SEE ..." 

610 INPUT"( TYPE TITLE THEN PRESS 'ENTER' ) ";TIS 

620 CLS :PRINT8335, "SEARCHING FOR : ", 'TIS: PRINT: PRINT 

630 PRINT"TITLE";TAB(20)"DISK":PRINTSTRING$(34,"=") 

640 LPRINT"TITLE";TAB(20)"DISK":LPRINTSTRINGS(34,"=") 

650 FOR J-l TO XX-1 

660 Q=INSTR(PNS(J) ,TI$) : IF Q=0 THEN 690 

670 IF TIS-MIDS(PNS(J) ,Q,LEN(TIS)) THEN PRINT PNS( J) ;TAB(20) LEFT 

S(DNS(J) ,5) 

680 LPRINT PNS(J) ;TAB(20)LEFTS(DNS(J) ,5) 

690 NEXT J: PRINT: PRINT 

700 LINEINPUT'THAT IS ALL HI HIT 'ENTER' FOR MENU .... 

";CS:GOTO 100 

710 CLS:PRINT:PRINT"MAKE PREPARATIONS FOR OUTPUT TO DISK .... 



PRESS 'B' 



FOR COPYING DISK NO.'S 1 TO 60 

OR 
FOR NO.'S 61 ON UP" :PRINT: PRINT: INPUT" 



715 
720 
730 
735 
740 
750 
760 
770 
780 
790 



';ES 

CLS:PRINT@340, "COPYING . . . ." 
IF ES="A" GOTO 730 ELSE 735 
OPEN"0",l,"DISKINDX":GOTO 740 
OPEN "0",1,"DI SKI NDX/PT2" 
PRINT II, XX 
F0RX=1 TO XX 

PRINTI1,DN$(X) ;",";PN$(X) 
NEXT X 

CLOSE :CLS:PRINT@335, "TRANSFER TO DISK COMPLETED" : PRINT 
LINEINPUT'PRESS 'ENTER' TO RETURN TO MENU . . . ,";ES:GOTO 1 

CLS: PRINT: PRINT'MAKE PREPARATIONS FOR INPUT FROM DISK . . . 



PRESS 



FOR DISKS NO. 1 TO 60 

FOR NO. 61 ON UP":PRINT:PRINT:INPUT" 



";ES 

805 CLS:PRINT§340, "INPUTTING . . . ." 

810 IF ES="A" GOTO 820 ELSE 825 

820 OPEN"I",1,"DISKINDX":GOTO 830 

825 OPEN"I",l,"DISKINDX/PT2" 

830 INPUT II, XX 

840 FOR X=l TO XX 

850 INPUTI1,DNS(X) ,PNS(X) 

860 IF VAL(PN$(X)) > 99 PNS(X)=" "+PNSIX) 

870 NEXT X: CLOSE 

880 LINEINPUT'PRESS ENTER TO CONTINUE" ; E$:GOTO100 

890 SPS="+DNS,+PNS" 

900 GOTO 920 

910 SPS="+PNS,+DNS 

920 CLS :PRINT§335, "SORTING ONE MOMENT PLEASE" 

930 I=USR(17) OR USR(VARPTR(SPS)) OR USR(0) OR USR(XX-l) 

940 IF I <> THEN PRINT'SORT ERROR" :GOTO 940 

950 FOR X-1TO XX-1 

960 IF DNS(X)="ZZ" THEN XX=X:RETURN 

970 NEXT X : RETURN 

980 CLS :PRINTg330, "PRINT OUT SHALL BE BY :":PRINT 

990 PRINTTAB(10)"( 1 ) DISK NO." 

1000 PRINTTAB(10)*( 2 ) PROGRAM TITLE" 

1010 PRINT: PRINT" PLEASE MAKE YOUR SELECTION ...."; 

1020 PSS=INKEYS:IFPSS=""THEN1020 

1030 PS=VAL(PSS) 

1040 ON PS GOSUB 890,9X+1) ,PNS(X+2) :LPRINTPNS(X+l),PNS(X+2) :X=X+ 

2: GOTO 1210 

1200 IF DNS(X+1)=DNS(X) PRINT PNS (X + l ): LPRINT PN$ (X+l) : X=»X+1 

1210 TPS-DNS(X) :NEXT 

1220 PRINT:LINEINPUT"PRESS 'ENTER' TO CONTINUE" ;AS:GOTO 100 

1230 CLS:LPRINT CHRS(30):N=0 

1240 FOR X=l TO XX-1 

1250 LS=LEFTS(PNS(X) ,1) :IF PS=1 GOTO 1270 

1260 IF LS=" " OR LS«"1" GOTO 1340 

1270 IF LS=" " OR LS-"I" PRINT" ",-ELSE PRINTPNS (X) ;TAB(13) STRING 

S(6, "-");" ";LEFT$(DNS(X) ,5) ; 

1280 L5S=LEFTS(PNS(X+54) ,1) :IF L5S=" " OR L5$="l" PRINT" ":GOTO 

1300 
1290 IF X+54 < XX PRINTTAB(36)PNS(X+54) ;TAB( 49) STRINGS (6 ,"-") ;" 

";LEFTS(DNS(X+54) ,5) ELSE PRINT" " 
1300 IF LS=" " OR LS="1" LPRINT" " ; ELSE LPRINTPNS(X) ;TAB(13) STRI 
NGS(6,"-") ;" "; LEFTS (D: PRINT 
1410 FOR J=l TO XX-1 

1420 IF LEFTS(DNSU) ,4)=DRS AND PNS(J)<>"1" THENPRINT PNS(J), 
1430 NEXT: PRINT: GOTO 700 
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Here's the ideal way to keep your 
growing collection of 80 Micro- 
computing in order! The 80 Micro- 
computing Library Shelf Boxes. 

sturdy, corrugated, white, dirt-re- 
sistant boxes will keep your issues of 80 Microcomputing orderly 
and available for constant reference. Self-sticking labels are 
available for the boxes, too, not only for 50 but also for Kilobaud/ 
Microcomputing, 7.3 Magazine, CQ, QST, Ham Radio, Personal 
Computing, Interface Age, Byte and Radio Electronics Ask for 
whichever labels you want with your box order Each box holds a 
full year of the above magazines. Your magazine library is your 
prime reference: Keep it handy and keep it neat with these strong 
library shelf boxes. One box (BX1000) is $2.00, 2-7 boxes (BX1001 ) 
are $1.50 each, and 8 or more boxes (BX1002) are $1 25 each. Be 
sure to specify which labels we should send Shipping and han- 
dling charges are $1.00 per order Call in your credit card orders 
on our toll free line 800-258-5473, or use the order card in the back 
of the magazine and mail to: 



m 



microcomputing 



Peterborough, 
NH 03458 



Please allow 4-fa weeks for delivery No COD orders accepted 



^See List ot Advertisers on page 322 
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Born To Run. 




ITM 



Special Grand Opening values on complete TRS-80 1 
Model III systems and disk drives, now through Sept. 15, 1981! 



A.M. Electronics. Inc. has created the most powerful and 
reliable TRS-80'" hardware and software systems available to 
get your system up and running. Take advantage of special 
Grand Opening values like these: 

New TRS-80™ Model III now with disk drives 

Model III with dual 80-track disk drives— 704K of reliable disk 
storage on only two drives. System features two double-density 
80-track drives, 48K RAM. A.M. Electronics controller board. 
Complete, ready-to-run! $2,295 

Model III with dual 40-track double-density disk drives. 48K 
RAM and A.M. Electronics controller board. Complete, ready- 
to-run! $1,895 
DOS-PLUS operating system for TRS-80 Model III. $69.95 

New! MAKE 80® now available for Model III 

Converts Model I single-density 40-track or Model III double- 
density 40-track standard diskettes into Model III double- 
density 80-track-readable diskettes. $29.95 



New Teac disk drives, complete with power supply, 
case and one-year warranty 

Teac 40-track disk drive. $265 

Teac 80-track disk drive with 1 0ms access time. $375 

Teac 50F dual-headed 80-track disk drive with 1 0ms access 

time. $499 

Disk drive cases & power supplies 

57?-inch single drive unit with case and power supply. $85 

5'/?-inch dual drive unit with case and power supply. $120 

8-inch single drive unit with case and power supply. $150 

More Grand Opening Specials! 

1 6K 200 nanosecond RAM memory chip. $2.00 each 
Disk drive extender cable. $8.95 each 

Free Disk Drive Guide 

Get your concise and fact-filled guide from A.M. Electronics, 
written in engaging Question /Answer style. Call or write us to 
order your Guide today! ^452 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80™ to work for you! 



Dealer/ Service Center 
Record Package 

This package, built in several modular 
packages, can be used separately, or in 
combination as a complete system.. The 
modular units are self-contained. When 
combined, they will make the most 
complete and comprehensive service 
center bookkeeping/record-keeping 
package on the market. 

A complete history of customer repair 
files is maintained on-line. Customer files 
can be accessed by account number or 
customer name. The information file 
includes customer name, address and 
telephone number, make of unit, service 
dates, name of servicing technician, 
services performed, and total billed. This 
information can be called to the screen 
or printer as a total list, or by the last 
service date. 

The customer records module can 
post to accounts receivable module, 
payroll module and our Inventory Control 
System. 

A Model I computer, with four 80-track 
drives, or a Model III computer, with two 
80-track drives will hold approximately 
1 ,800 customers and records. By adding 
additional drives to the Model III, more 
than twice this amount of information 
can be maintained. By switching 
diskettes in drives, the capacity is 
unlimited. 

Versions of Dealer Service Center 
Record Package are available for Auto 
Dealers, Mechanics, TV Repair Centers, 
Electronic Technicians and Appliance 
Repair Centers. $199.95 

Order Entry (With 
Invoicing & Inventory) 

Orders are composed of name and 
address information (with optional 
company name), method of shipment, 
method of payment, items on order, 
quantities, prices, description, and stock 
number. The system also prints invoices. 

At point of shipment, inventory is 
automatically updated and dollar sales 
recorded. Shipping charges are logged 
and shipping date recorded. All entries 
may be edited and partial shipping is 
permitted. The inventory module allows 
checking and updating stock, inventory 



See your nearest 
A.M. Electronics, Inc. dealer 

Here is a partial listing of authorized A.M. 
Electronics. Inc. dealers: 



ARIZONA 

Simulek Computer Product! 

POBo« 13687 
Tucson. Arizona 85710 

Microcomputers. Inc. 

4322 E Fairmont 

Phoenix. Arizona 85018 

CALIFORNIA 

RAC Product* 

3200 Knighlswood Way 
San Jose. California 95148 

CONNECTICUT 

Mountain View Software 

Mirybrook Road 

DanOury Connecticut 06810 

Computer Services ol Oanbury 

14 Summit Street 

Danbury. Connecticut 06810 



DIST. OF COLUMBIA 

Program Store 

4200 Wisconsin Ave . N W 
Washingion DC 20016 



FLORIDA 

Computer Worlds 

2232 East Bay Drive 

Clearwater Florida 33516 

Adventure International 
507 East Street 

Longwood Florida 32750 

All Systems Go 

105 Wesl Plant Street 

Wmier Garden Florida 32787 

ILLINOIS 

3H Computer 

1950 Bilter Road 

Aurora. Illinois 60504 

AAA Chicago Computer Center 

120 Chestnut Lane 

Wheeling Illinois 60090 

Midwest Computer Peripheral* 

1467 S Michigan Ave 

Chicago Illinois 60605 

MASSACHUSETTS 

Small Business Systems Group 

6 Carlisle Road 

Westlord Mass 01886 

Omnitek Syttemi 
1899 Main Street 
Tewksbury Mass 01876 
Computer Plus 
245A Greal Road 
Littleton Mass 01460 



Remarkable Software 

1508ADelense 

Muskegon. Michigan 49441 

James Butler 

438 East Lake Street 
Petoskey. Michigan 49770 

Eight Bit Corner 

722 Evanston Avenue 
Muskegon. Michigan 49442 
Soft Sector Marketing. Inc. 

6250Middlebelt Road 
Garden City. Michigan 48135 

Matrix Software 

315 Marion Avenue 

Big Rapids. Michigan 49307 

Breeze Computing 

POBox 1013 

Berkley. Michigan 48072 

NEW HAMPSHIRE 

Hardaide 

6 South Street 
Millord. New Hampshire 03055 

NEW JERSEY 

Floppy Disk Services 
40 Misty Morn Lane North 
Trenion New Jersey 08638 

NEW MEXICO 

Rocky Mountain Engineering 
4749 Southern. S E 

Albuquerque New Mexico 87108 

NEW YORK 

John D. Owens Associates. Inc. 

12 Schubert Street 

Sta ten Island New York 10305 

B.T. Enterprises 

171 Hawkins 

Ceniereach New York 11720 

NORTH CAROLINA 

Alpha Technology 

1201 Wicker Drive 

Raleigh North Carolina 27604 



MICHIGAN 

Adapts — 

600 28th Street 
and Rapids. Michigan 



OHIO 

Electronics Unlimited 

824 Easl 14th Street 

Ashtabula Ohio 44004 

OREGON 

1300 Centre Electronics 

1300 6th Street 
Umatilla Oregon 97882 

PENNSYLVANIA 

Stevens Radio Shack 

562 Null Road 
Phoemxville Pennsylvania 19460 

TEXAS 

Quality Software 

1 1500 Stemmons Expressway 
Dallas. Texas 75229 



reports, sales reports, shipping charges, 
etc. 

Order Entry is a complete order entry 
system, designed for almost any retail 
and/or wholesale business. Its capacity 
is upward-expandable from a dual 40- 
track Model I system: 1 ,750 inventory 
items, 385 orders per diskette. $199.95 



Inventory Control System 

This system gives the user complete 
access to and control over an unlimited 
number of inventory items. (Note: It has 
been found that systems containing 
more than 1 3,000 items are difficult to 
handle, from a maintenance time 
standpoint. Operations, such as Block 
File reoganization can take more than 3 
hours.) 

As presently configured, a Model I 
computer with one 40-track drive will 
hold 1 ,925 items, or for a four-drive 
system a total of 6,625 items. Four 80- 
track drives will hold in excess of 1 3,000 
items. A Model III computer, with two 40- 
track drives, will hold about 1 3,000 parts. 
If required, A.M. Electronics can modify 
both the program and hardware 
configuration to allow on-line storage of 
an unlimited number of items. As the file 
becomes larger, maintenance 
operations take longer. Average search 
time is six seconds, with 1 2 seconds the 
longest time. 

Upon program initialization, the user 
specifies the item number and 
description digit length. This allows for 
item numbers up to 23 alpha-numeric 
characters. (As item number digits 
increase, digits for description usage are 
decreased.) 

The program is completely menu- 
driven. Items can be added, edited or 
deleted from the file. Items can be 
placed on order, received to stock, or 
sold from inventory. Complete printout 
capabilities are available through the 
printout menu. 

Item information includes: item 
number, description, supplier, re-order 
point, cost, wholesale and retail selling 
price, quantity, on-order, and total sold. 
The re-order point is calculated by the 
program, based on number of items sold 
over a period of time. The time period is 
established at program initialization. 
$199.95 

Get a sample 

software printout — Free! 

Call or write us to get sample program 
printouts for these programs, or if you 
need more information. We'll be happy to 
send it to you. 



m» power berlinO ^HkJVI 

A.M. ELECTRONICS, INC. 



-452 



Ann Arbor: 3366 Washtenaw Ave., Ann Arbor, Ml 481 04 (31 3) 973-231 2 Store Hours: Monday-Friday 1 0-6, Sat. 1 0-5 

Grand Opening of our Radio Shack Authorized Dealership at: 1 11 North Grand, Box 1 071 , Fowlerville, Ml 48836 (51 7) 223-7281 

Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing. 



"TRS-80 is a trademark of Tandy Corp 



Prices subiecl to change without notice 



*-See List ol Advertisers on page 322 
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UTILITY 



Julian to Gregorian converter. 



The Date Maker 



Garry H. Grosse 
Box 3455 

Seymour Johnson AFB 
Goldsboro, NC 27531 



The task of date keeping has 
always been a complexing 
one. With the advice of an as- 
tronomer, Julius Caesar pro- 
duced the first modern calen- 
dar. This calendar adopted 
365.25 days as a year, but the ac- 
tual time span of the earth's or- 
bit is 0.0078 days less than the 
365.25 days of the Julian calen- 
dar. Noting this inconsistancy, 
Pope Gregory XIII instituted the 
Gregorian calendar in 1582 mak- 
ing the length of the year 
365.2425 days. Through the 
following years, this calendar 
was accepted by most coun- 
tries. 

Due to the fact that most 
computer systems use the Jul- 
ian date, and also that the Julian 
date uses one byte less for stor- 
age, such as in a file record, it's 
convenient to have some type of 
routine to flip-flop between 
Julian for computers and Gre- 
gorian for humans. This article 
deals with three subroutines 
that can be incorporated within 



1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1010 
1020 
1030 
070, 
1040 
1050 
1060 
1063 
1065 
1070 
1080 
1090 



THIS ROUTINE DETERMINES THE VALIDITY OF A GREGORIAN 
DATE STORED IN THE VARIABLES: 

MM - MONTH 

DD - DAY 

YY - YEAR 
RETURNED IS A FLAG (FL) : 

FL=0 VALID DATE 

FL=1 INVALID DATE 



FL=0 

IFDD<1ORMM<1THEN1080 

ONMMGOTO1050, 1060, 1050, 1070, 1050, 1070, 1050, 1050, 1070, 1050,1 
1050 
GOTO1080 

IFDD>31THEN10 80ELSERETURN 
IFYY=(INT(YY/4) ) *4THEN1065 
IFDD>28THEN10 80ELSERETURN 
IFDD>29THEN1080ELSERETURN 
IFDD<=30THENRETURN 
FL=1 
RETURN 



Program Listing 1. 





Progra 


m Listing 2. 


2000 


THIS ROUTINE CHANGES A GREGORIAN DATE TO A JULIAN DATE. 


2001 


THE GREGORIAN DATE IS STORED IN THE VARIABLES: 


2002 




MM - MONTH 


2003 




DD - DAY 


2004 




YY - YEAR 


2005 


RETURNED ARE: 




2006 




N2 - DAY OF THE YEAR 


2007 




YY - YEAR 


2008 






2010 I 


J2=MM 




2020 t 


U=YY 




2030 


[FN2<=3THENN1=N1-1 




2040 I 


U=INT(N1*1461) 




2050 I 


U = INT(Nl/4) 




2060 1 


*2=N2-3 




2070 


[FN2<=0 N2=N2+12 




2080 t 


\I2=INT(N2*153) 




2090 I 


*2=N2+2 




2100 t 


*2=INT(N2/5) 




2110 I 


*2=N2+Nl 


Program continues 
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Listing 2 continued 






2120 N2=N2+DD 




2130 N1=YY 




2140 N1=N1-1 




2150 N1=INT(N1*1461) 




2160 Nl=INT(Nl/4) 




2170 Nl=Nl+306 




2180 N2=N2-N1 




2190 IFMM=3N2=N2-2 




2200 RETURN 



your programs to provide such 
features and other added ex- 
tras. 

In Program Listing 1, the first 
subroutine is called Editdate, 
and it performs just as its name 
implies. You enter a Gregorian 
date at some point in your pro- 
gram, then execute a GOSUB 
1000. After Return, to determine 







Program Listing 3. 


3000 


THIS ROUTINE CHANGES A JULIAN DATE TO A GREGORIAN DATE. 


3001 


THE JULIAN DATE 


IS STORED IN THE VARIABLES: 


3002 




YY - YEAR 


3003 




DD - DAY 


3004 


RETURNED ARE: 




3005 




N2 - 1 THRU 7 (SUNDAY THRU SATURDAY) 


3006 




N3 - 1 THRU 12 (JAN THRU DEC) 


3007 




DD - DAY OF MONTH 


3008 




YY - YEAR 


3009 




DA$ - DATE STRING 


3010 






3020 I 


11=YY-1 




3030 I 


J1=INT(N1*1461) 




3040 I 


Il = INT(Nl/4) 




3050 I 


Jl=Nl+306 




3060 t 


I1=N1+DD 




3070 I 


J2=INT(Nl/7) 




3080 I 


J2=INT(N2*-7) 


Program continues 



the validity of the date, you per- 
form a comparison on the vari- 
able FL. If FL = the date is cor- 
rect, but if FL = 1 then the date is 
invalid. If the date was invalid, 
you would have the operator re- 
enter the correct date. Notice 
that the routine does take into 
account the month of February 
during leap years. 

The second subroutine, in 
Program Listing 2, converts a 
Gregorian date, stored in the 
variables MM, DD, YY. The Juli- 
an date is returned in the vari- 
ables N2 and YY. N2 is the actu- 
al day number of the year, and 
YY remains unchanged. 

This subroutine is presented 
in one-line, simple equations. 
This was done to present the 
date conversion routine in an 
understandable way. Many of 
these could be combined into 
one equation if you were in need 
of conserving program length. 

The Julian converter, Pro- 
gram Listing 3, converts a Julian 
date into a Gregorian date. The 
Julian date is stored in the vari- 
ables DD and YY— day of the 



llieDAIA-TRAIVSlCMH) 



A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty — parts and 
labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

• Optional tractor feed 
available 

• 15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 

HOW TO ORDER 

DATA-TRANS 1000 

1. We accept Visa, Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 




Desk and table top models also available. 
For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ^274 
Fremont CA 94538 

Phone: (408) 263-9246 



•sSee List of Advertisers on page 322 
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CANADIANS 

NOW IN STOCK 
ACORN SOFTWARE 

PINBALL 

BASKETBALL 

INVADERS FROM SPACE 

Super action with SOUND 
& Machine Language SPEED 

Each avail for Mod 1 on 
CASS $19.95 DISK $24.95 

SYSTEM SAVERS 

Will copy SYSTEM TAPES 

onto DISK or Cassette 

Mod 1 DISK SYSTEM $19.95 

MEMOREXS'V DISKETTES 
$5.50 ea 10 for $50.00 

MORE TO COME (& Mod 3) 

SENDFOR FREE INFORMATION 

We accept VISA 

CMD MICRO ^459 
PO BOX 1212 
FDMONTON. ALBERTA 
T5J 2M4 



FULL SCREEN TEXT EDITORS 
FOR THE TRS-80* 



Now there are products that will allow you to program 
like the professionals do II you eri|oy the sophishca 
tion of writing your own programs then you are in for a 
real treat when you use our editors Features include 
lull screen display, complete control over scrolling 
and cursor movement, character change, insert de 
lete. insert, delete, copy, move lines or blocks of lines 
renumber, global find and change 
BASIC editor runs from tape or disk Once loaded a 
single command invokes our extended edit mode with 
powers and abilities far beyond those of conventional 
editing 1 Advanced features include user definable 
macro keys and the powerful program restructuring 
tool SELECTIVE RENUMBER 

EDTASM editors are compatible with EDTASM source 
tape files Disk version includes patch lo run Radio 
Shack* EDTASM from disk' All products are shipped 
on tape for level 2 machines and include a comprehen 
sive owner's manual 



The Text Editor for BASIC Order » 1010-20 



24.95 



The Text Editors for EDTASM Source Files: 

Tape Version Order #1010 30 24.95 

Disk Version (Req. 32K and up) Order 01010 ■ ' 34.95 

New: XBUG sell-relocating debugging tool with 

multi-speed single step facility. 

Order #1020-10 $19.95 

Send check or money order (no CODsl to r * 1 

If ordering by credit card, please include all *~*—J 
information on credit card " 'S,. 11 

nj I COMPUTER ~ 

ijij applications 
C(7tm unlimited tm 

A Oiv ol CAU. Inc 
Post Ollice Box 214. Depl 181 Aye. New York 10580 



N Y Stale residents please add applicable sales tax. 
Please allow 4-6 weeks delivery Dealer inquiries invited. 
'Radio Snack and TRS-80 ara registered trademark: of 
^. The Tandy Corp. ^ 107 



Listing 3 continued 




3090 N2=N2+Nl-3 




3100 IFN2<=0 N2=N2+7 




3110 N1=N1*4 




3120 N1=N1-1 




3130 DD=N1 




3140 DD=INT(DD/1461) 




3150 DD=INT(DD*-1461) 




3160 DD=DD+N1 




3170 DD=DD+4 




3180 DD=INT(DD/4) 




3190 N1=DD 




3200 N1=INT(N1*5) 




3210 Nl=Nl-3 




3220 N3=N1 




3230 N3=INT(N3/153) 




3240 DD=N3 




3250 N3=N3-9 




3260 IFN3<=0 N3=N3+12 




3270 DD=INT(DD*-153) 




3280 DD=DD+N1 




3290 DD=DD+5 




3300 DD=INT(DD/5) 




3310 0NN2G0T03311, 3312, 3313, 3314 ,3315 ,3316 ,3317 




3311 DB$=" SUNDAY B :G0T033 20 




3312 DB$="MONDAY":GOTO3320 




3313 DB$= "TUESDAY B :G0T033 20 




3314 DB$= "WEDNESDAY n :G0T033 20 




3315 DB$="THURSDAY":GOTO3320 




3316 DB$="FRIDAY":GOTO3320 




3317 DB$=" SATURDAY" 




3320 ONN3GOT03321, 3322, 3323 ,3324, 3325, 3326 ,3327 


3328,3329,3330,3 


331,3332 




3321 DC$="JANUARY":GOTO3340 




3322 DC$="FEBRUARY":GOTO3340 






Program continues 





•TRS-80 «. OTHER NEEDS FILLED FOR LESS' 



+ + + COMPATIBLE DISK DRIVES WITH POWER SUPPLY AND CASE-90 DAY WARRANTY + + + 

• 40TRACK (102.400 BYTE/DISK) DISK DRIVE WITH PS. AND CASE, MODEL I & III $295 

• 8 IN. DRIVE & PS/CASE $689 WITH PS/CASE FOR 3 DRIVES $829 

• 80 TRACK (204.8K BYTE) S399 

• 4-DRIVE CABLE $28 * * 10 DISKS-5 IN. @ $24-8 IN. 



BASE 2 PRINTER $599 



$36 HARD CASE $3 & 5 
EPSON MX - 80 PRINTER - CALL MICROLINE 80 PRINTER $369 
MICROLINE82S549 CABLE 



($25 
$829 



$99 



•CENTRONICS 739 $799 

• MICROLINE 83 

• LEEDEX 12 IN B&W MONITOR $114 LEEDEX 12 IN B&G MONITOR $138 

• APF 10 IN B&W MONITOR 
•300BAUDMODEM(ORIG/ANS)$115.ANDUP+ + + + + + + + 16K MEMORY SET (200 NANO) $16 

• 16K MODEL II RADIO SHACK SYSTEM $849 48K MODEL III $949 

• APPLE, ATARI, RADIO SHACK HARDWARE/SOFTWAHE DISCOUNTED. A/R. A/P, G/L, P/R FOR 
$200 or $59 ea. (MODEL 1) & $329 or $80 ea. (MODEL 2). APPLICATIONS INTERACT & ARE COMPLETE & 
PROFESSIONAL. WILL RUN ON OTHER COMPUTERS THIS IS A SPECIAL INTRODUCTORY PRICE 

• ASK FOR FREE FLYER WITH OUR LOW PRICES- DEALER INQUIRIES INVITED MASS RESIDENTS ADD 
5% TAX-F.O.B TEWKSBURY-FREIGHT EXTRA 
M/C. VISA OR CHECK ACCEPTED TRS-80 IS A REG TRADEMARK OF TANDY CORP 



_OMNITEK SYSTEMS 



,1899 MAIN ST., TEWKSBURY, MASS. 01876 CALL 617/851-4580 



,-105 

) I 



Model III Owners 

Copy Scripsit and/or Visicalc 



* Unlimited disk back-ups of YOUR original 

■^ No programming or technical knowledge required 

■^ Works if you have already 
backed up twice 

If Usable only by original purchaser 
and intended for his private usage 



All orders shipped 

within 10 days 

$15.00 

No credit cards, please. 




n. x. e: s 



1^143 



'ATA.INC. 

BOX 257 BUHLER, KANSAS 67522 
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year and the year. The Gregorian 
date is returned in the variables 
N3, DD and YY which are the 
month, day, and year respective- 
ly. 

This routine also provides 
some added features. It returns 
the variable N2 which contains 
numbers one through seven rep- 
resenting Sunday through Sa- 
turday. The subroutine also re- 
turns a string, DA$, which con- 
tains an entire date string al- 
ready formatted. For example, 
say you GOSUBed with a Julian 
date of 58064. DAS would con- 
tain Wednesday, March 5, 1958, 
upon return from the subrou- 
tine. 

Again, this subroutine is writ- 
ten in simple equations which 
could be combined in a more 
complex form if need be. Also, 
the DAS routine at lines 3310 
through 3350 could be removed 
if you did not desire this feature. 

Program Listing 4 provides a 
short program which uses all 
three of the subroutines for your 
own testing. ■ 



Listing 3 continued 




3323 


DC$="MARCH" :GOTO3340 




3324 


DC$="APRIL" :GOTO3340 




3325 


DC $= "MAY " : GOT03 3 4 




3326 


DC$="JUNE" :GOTO3340 




3327 


DC$="JULY" :GOTO3340 




3328 


DC$="AUGUST n :GOTO3340 




3329 


DC$="SEPTEMBER" :GOTO3340 




3330 


DC$="OCTOBER":GOTO3340 




3331 


DC$="N0VEMBER" :GOTO3340 




3332 


DC$="DECEMBER" 




3340 


Y1=YY+1900 




3345 


DA$="" 




3350 


DA$=DB$+", "+DC$+STR$(DD)+" 


f "+STR$(Yl) 


3360 


RETURN 





5 CLEAR1000 
















10 


CLS: PRINT@ 20. "TOTAL DATE CONVERSIONS' 


:PRINT@85, 


" *** 


TEST 


PROG 


RAM ***":PRINT 
















15 


INPUT"ENTER DATE (MM,DD,YY) : 


";MM f DD 


YY 










20 


GOSUB1000:IFFL=1PRINT" 


INVALIE 


DATE - 


PLEASE 


REENTER" :FORX 


= 1T0 


1000:NEXT:GOTO10 
















30 


GOSUB2000 
















40 


PRINT" JULIAN DATE:";YY 


;N2 














50 


DD=N2:GOSUB3000 
















60 


PRINT" CONVERTED BACK:" 


; N3 ; DD ; 


YY 












70 


PRINT" STRING RETURNED: 


";DA$ 














80 


INPUT"TRY ANOTHER DATE 


(Y/N)" 


;A$ 












90 


IFA$="Y"THEN10 
















100 STOP 




















Program Listing 4. 













WHY IS THE MICROCONNECTION 
A MODEM AND MUCH MORE? 



TM 



Because it can dial the phone 
and answer it too, tran- 
scribe transmissions, 
decode busses, run 
printers, receive/send 
radio transmissions, 
answer/originate, and 
direct-connect to the phone 
system. Lots of terminal and 
host software for cassette and 
disk too. That's why it's a modem 



m c 



%«&* 



Prices start at $199.50. 

To order your MICROCONNECTION, 
or for more information, write or phone: 



—and much more. 



^306 



the mtcropenpheral corporation 

2643 151 st PI. N.E., Redmond, WA 98052 (206)881 -7544 



^See List of Advertisers on page 322 
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UTILITY 



Happiness is a warm boot. 



Command File Modifier 



Donald G. Crawford 
4220 W. Carol Ave. 
Phoenix, AZ 85021 



One of the problems I en- 
countered early in my use 
of the disk-based TRS-80 was 
the need to enter several com- 
mands before my application 
would run. 

A friend solved my problem. 
He has a short machine lan- 
guage program that "spoon 
feeds" commands to the 
TRS-80. When executed, it over- 
lays the keyboard driver address 
with one of its own. Then, each 
request for input is retrieved 
from the program's internal buf- 
fer. When the last character is 
retrieved, the program then re- 
stores the ROM keyboard driver 
address. 

You can enter commands into 
the program with Apparat's 
Superzap. But there is one fea- 
ture of this machine language 
program that I don't like. It does 
not save the keyboard driver ad- 



dress on entry so as to return to 
the keyboard debounce code 
after executing a command file. 

A Solution 

My solution is the BASIC pro- 
gram shown in Program Listing 
1. I call it CMDFILE, and it will 
create a new command file or 
modify an existing one. Instruc- 
tions are within the program and 
describe most of the operation- 
al details. A few points, how- 
ever, may clarify this program 
for you. 

Machine language files for 
the TRS-80 disk system can con- 
tain up to three record types. 
The type is given in byte one of 
each variable length record. A 
type 01 record contains ma- 
chine language data to be load- 
ed by the system. 

Byte two of a type 01 record is 
the count of data bytes +2 in 
the record (it includes bytes 
three and four). Bytes three and 
four are the address at which to 
start loading the record (in the 
normal Z 80 reversed manner). 

A type 02 record is a transfer 
address record at which to be- 
gin execution of the program. 
Byte two is always 02 (A type 02 
record is always four bytes 
long). Bytes three and four are 
the entry address for the pro- 
gram. 



A type 03 record is a comment 
record and is not used in this 
program. 

Program Commentary 

As you can see in lines 1180 
through 1240, responding ? to 
the FILESPEC request results in 
displaying the instructions. A 
null response (enter only) ter- 
minates the program. In DOS, 
the default extent for a system 
loadable file is CMD. Line 1250 
through 1270 ensure, if the user 
has not supplied an extent, that 
"/CMD" is inserted in the proper 
place. 

Lines 1290 through 1380 noti- 
fy the user if the file specified 
exists. He may then modify this 



file if he wishes, but the default 
is no modification. If the file 
does not exist, error processing 
will send control to line 1370. 
Any error other than "non-exis- 
tent file" will also be displayed 
and the program will terminate. 

Lines 1520 through 1550 check 
an existing file to make certain it 
is a command file written by this 
program. We wouldn't want to 
destroy another file! Lines 1650 
through 1670 list its current con- 
tents. Line 1630 sets a flag to 
say that no changes have been 
made to the file. 

Line 1970 keeps the user from 
entering too many characters. 

In order to keep the machine 
language program simple, the 









Program Listing 1 










1000 


******** 


»*******» 


*** CMDFILE ******** 


.... 


******* g 


0-07 


-27 


1010 
1020 
1030 


, 


BUILD A 


COMMAND FILE 












........ 


********* 


.................... 


... 


,....*.*..... 


***• 




INITIALIZATION 












1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


CLEAR 1000 ' MAKE 

' BUILD THE TYPE 

FOR 1=1 TO 52 
READ D 

P1S=P1S+CHRS(D) 
NEXT 

' BUILD THE TYPE 


SPACE TO WORK WITH 

01 RECORD 

02 RECORD 


THE 


STRINGS 
















program 


continues 
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1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



1270 

1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

1380 
1390 



1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 



1520 
1530 
1540 
1550 



1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17 90 
1800 
1810 
1820 



P2S=CHRS ( 2) +CHRS (2) +CHRS (0) +C1IRS (107 ) 

CLS 

PRINT TAB(27) "CMDFILE" 

PRINT "TYPE A QUESTION MARK (?) IF YOU NEED INSTRUCTIONS. 

PRINT 

LINEINPUT "FILESPEC: ";FS 

IF FS="?" GOSUB 2160:GOTO 1180 

IF F$="" THEN 2360 

J=INSTR(F$,"/") ' SUPPLY "/CMD" IF NO EXTENT PRESENT 

IF JO0 THEN 1280 

ELSE J=INSTR(F$,".") : 

IF J=0 J=INSTR(F$,":") 
IF J=0 F$=F$+"/CMD" 

ELSE F$=LEFT$(F$,J-l)+"/CMD"+MID$(F$,J) 

ON ERROR GOTO 1370 ' SEE IF THE FILE ALREADY EXISTS 

OPEN "I",1,F$ 

ON ERROR GOTO 

PRINT "ERROR: ";FS;" ALREADY EXISTS." 

GOSUB 2100 ' BEEP 

INPUT "DO YOU WANT TO MODIFY IT"; AS 

A$=CHR$(ASC(LEFT$(AS,1)) OR 32) ' FORCE LOWER CASE 

IF A$="y" THEN 1520 ELSE CLOSE:GOTO 1180 

IF ERR/2 = 53 THEN RESUME 1380 

ELSE ON ERROR GOTO : RESUME 2360 
ON ERROR GOTO 



BUILD A NEW FILE 



OPEN THE FILE 
ESTABLISH TYPE 01 RECORD 
ESTABLISH TYPE 02 RECORD 
MAKE SURE THERE'S ROOM ON THE DISK 
' LEAVE THE FILE CLOSED 



GOSUB 1920 

LSET R1S=P1S 

LSET R2S=P2S 

PUT 1,1 

CLOSE 

p$=«" 

PRINT "READY" 

LINEINPUT "*";AS 

IF A$<>"" GOSUB 1970:GOTO 1470 

GOSUB 2010 ' CLOSE THE FILE 

GOTO 1180 ' END 



MODIFY AN EXISTING FILE 

GOSUB 1920 ' OPEN THE FILE 

GET 1,1 ' GET THE OLD DATA 

• SEE IF IT'S ONE OF OURS 

IF P1SOR1S 

CLOSE : 

PRINT "ERROR: INVALID FILE FORMAT" 

GOSUB 2100: 

PRINT: 

LINEINPUT "HIT ENTER. " ;A1S : 

GOTO 1180 



IT'S OK, LET'S HAVE A LOOK AT IT 



PUT THE DATA IN DS 

AND LEAVE THE FILE CLOSED 



1840 
1850 
1860 
1870 
1880 
1890 
1900 



DS=DDS 

CLOSE 

PS-"" 

J=0 

CHANGED=0 ' SET "NO CHANGES MADE" FLAG FALSE 

K=INSTR(1,DS,CHRS(10) ) ' FIND THE END 

PRINT 

PRINT LEFTS(DS,K-1) 

PRINT 

PRINT "ADD TO THE FRONT OF THE FILE OR <ENTER> TO CONTINUE. 

LINEINPUT "*";AS 

IF A$<>"" GOSUB 1970:CHANGED=-1:GOTO 1690 

L=J+1 

J=INSTR(L,DS,CHR$(13) ) ' FIND THE END OF THE FIRST LINE 

IF J=0 J=K ' THERE'S ONLY ONE LINE 

AS=MID$(D$,L,J-L) 

PRINT AS; 

Al$="" 

PRINT TAB(35)" (ADD, CHANGE, DELETE)"; 

INPUT A1S 

IF A1S="" GOSUB 1970:GOTO 1870 

A1S=LEFT$(A1S,1) 

IF A1S="D" CHANGED=-l:GOTO 1870 

IF A1S="A" 

GOSUB 1970: 

A1$="C" 
IF AISO'C" 

PRINT "INPUT ERROR": 

GOSUB 2100: 

GOTO 17 50 
CHANGED=-1 
LINEINPUT "*";AS 
IF AS<>"" GOSUB 1970:GOTO 1850 
IF J < K THEN 1710 

IF CHANGED GOSUB 2010 ' IF IT'S BEEN CHANGED, RE-WRITE IT. 
GOTO 1180 



<< SUBROUTINES >> 



SUBROUTINE TO OPEN AND FIELD FILE t 1 

1920 CLOSE 

1930 OPEN "R",1,FS 

1940 FIELD 1,52 AS R1S.200 AS DD$,4 AS R2S 

1950 RETURN 

1960 ' 

SUBROUTINE TO ADD A COMMAND TO PS 

1970 IF LEN(PS)+LEN(AS) > 199 



program continues 



!!NOW AVAILABLE!! 

I NDEX 

Sequential 

Access 

Method 

* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 

- Improved Performance 

ISAM SUBROUTINES Documentation 

ISAM UTILITIES On Diskette $90.00 

- PLUS - Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 

TRS-80 MODEL I, II, & III SOFTWARE FROM: 

Johnson Associates -or- Telephone Order Line 
P.O.Box1402M ^85 For Bank Card Sales 

Redding, C A 96001 (91 6) 221 -0740 

WRITE FOR FREE CATALOG 



A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic display 

• Modify any element in circuit for desired 
results 

A complete operational 

manual supplied 
comparable to I.B.M.'s 

E.C.A.P.™ Program 
*A.C. Analysis Program 

$149.95 

•D.C. Analysis Program 

5*9.95 



To Order Write. 

G & L Software Enterp. 
2304 N. 1st. Street 
Upland, CA 91786 



Tis* 




Do Not Send Cash in the Mail 



TRS80' is a trademark ol the randy Corp .EC .A. P. is a trademark ol International 

Business Machines Inc. ,/»39 A 



sSee List ol Advertisers on page 322 
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• INTRODUCING THE MEM- 
ORYBOX MEMORYEXPAN 
ION UNIT • * Memory Trial 
Neve Needs Protection " 

• I 024 Byies Ol RAM In An 
Un assigned Area ' ' Solves 
Memory Allocation Pro- 

D . e m s ' Programs Stay In 
Tne MEMORY BOX Even 
When CPU IS Turned Oil ' ' 
For Model I Level II And All 
Dos Systems l4 16.32.48K I 

$49 95 ' Two Utihty Software 
Programs W'ltten For Trie 
MEMORY BOX Are " 

1 • M ICM ON " A Powerful 
Macriine Language Monitor 
laccessaDie without disturb- 
ing mam programsi $19 95 

2 * U3000 " Utility Includes 
Cassette Level Meter Pro- 
gram ' Ad| KeyDoa'd De- 
bounce ' Screen Print Driver 

e&Page Length Control* 



Page N u 
Line Terr 
$12 95 
OFFER 
AGE 



i .nation • MORE ■ 

■ IN TRODUCTORY 
COMPLETE PACK- 
$64 95 




CERTIFIED DATA CARTRIDGES 

• Superior Qua'.ty CASSETTE 
TAPES • - GUARANTEED 100% 
Error Free " ' Five Screw Con- 
struction " 

• Length 12 PACK 24 PACK 

C-10 68 ea 68 ea 
C 20 88 ea '8 ea 




• 2K HIDEAWAY • Eprom Board 
Power Supply mcl . USES 2716 
Eorom Qiip tnot included I $49 95 

r EPROM PROGRAMER $69 95 

• U V • EPROM ERASER LAMP 
$79 95 2716 iBLANKI EPROM 
CHIP $8 95 



Add $1 50 lor shipping and hand- 
ling to order Send checks 

ANTO MONEY ORDERS TO 

DISPLAYED VIDEO 

7538 JACKSON ROAD 

ANN ARBOR. Ml 48103 

OR CALL (3131 426-5086 OR 

1313)482 4424 



F|g DISPLAY ED | 
fe A/ W)lo" 

^30 



command file is restricted to a 
length of one sector (256 bytes). 
I have not had any trouble with 
this restriction. Lines 2100 
through 2140 produce an error 
tone. Lines 2320 through 2350 
contain the type "01" record. 
The assembled machine lan- 
guage code is shown in Program 
Listing 2. 

This program will work under 
TRSDOS as well as NEWDOS 
2.1. It is unnecessary under 
NEWDOS80 because of the 
Chain feature. 

The command file can be 
used as the Auto command to 
load machine language routines 
and run a program. If you want 
to supply a null response to the 
TRSDOS request for Number Of 
Files? or Memory Size?, use a 
single blank space in the com- 
mand file. 

One word of caution: the com- 
mand file uses the upper portion 
of the DOS area (6B00H - 
6BFFH). Some of the DOS com- 
mands and BASIC will eventual- 
ly overlay it. If you run into prob- 
lems (for example, when the 
system "hangs" and you can't 
do anything through the key- 
board) your error may be over- 
laying the command file. Reboot 
the system and try another way. 
I hope you will find this program 
as useful as I have.B 





PRINT "ERROR: TOO MANY COMMANDS.": 




GOSUB 2100: 




PRINT "LENGTH =" ;LEN (PS) +LEN (AS) +1 ; "CHARACTERS. " : 




LINEINPUT "HIT ENTER. ";FS: 




GOTO 1180 


1980 


PS=PS+AS+CHRS(13) 


1990 


RETURN 


2000 


• 


************* ************ ************************************* 




SUBROUTINE TO WRITE THE FILE AND CLOSE IT 


2010 


MIDS(PS,LEN(PS))=CHRS(10) ' SET THE END FLAG 


2020 


GOSUB 1920 ' OPEN THE FILE 


2030 


LSET DDS=PS ' PUT THE COMMANDS IN THE BUFFER 


2040 


LSET R1S=P1S ' PUT THE TYPE 01 RECORD IN THE BUFFER 


2050 


LSET R2S=P2S ' PUT THE TYPE 02 RECORD IN THE BUFFER 


2060 


PUT 1,1 ' WRITE THE COMMAND FILE 


207 


CLOSE 


2080 


RETURN 


2090 


1 



6B00 
402D 
4016 
000D 
000A 



6B00 
6B03 
6B06 
6B09 



2A1640 
22256B 
21156B 
221640 
6B0C 21306B 
6B0F 222E6B 
6B12 C32D40 

6B15 E5 

6B16 2A2E6B 

6B19 7E 

6B1A FE0A 

6B1C 2806 

6B1E 23 

6B1F 222E6B 

6B22 El 

6B23 C9 

6B24 21E303 

6B27 221640 

6B2A 3E0D 

6B2C 18F4 

6B2E 306B 

O0C8 

6B00 

00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
ERRORS 



SUBROUTINE TO BEEP AN ERROR 

2100 IF INP(255)=63 OUT 255,9 ELSE OUT 255,1 

2110 FOR 1=1 TO 50 

2120 NEXT 

2130 IF INP(255)=127 OUT 255,0 ELSE OUT 255,8 

2140 RETURN 

2150 ' 

PRINT THE INSTRUCTIONS 

2160 CLS 

2170 PRINT TAB(27) "CMDFILE" 

2180 PRINT "THIS PROGRAM WILL BUILD A FILE OF COMMANDS EXECUTABL 

E UNDER" 

2190 PRINT "DOS. THE FILE MAY BE USED AS THE <AUTO> FILE OR MAY 

2200 PRINT "BE ISSUED AS A COMMAND. YOU MAY ENTER UP TO 200 CHA 

RACTERS" 

2210 PRINT "OF COMMANDS (INCLUDING <ENTER> CHARACTERS). THE FIL 

ESPEC" 

2220 PRINT "SHOULD HAVE THE EXTENT " ;CHRS (34 ) ; "CMD" ;CHRS (34 ) ; 

" SO THAT THE SYSTEM WILL LOAD IT." 
2230 PRINT "(I WILL SUPPLY /CMD AS A DEFAULT.) I WILL PROMPT YO 
U WITH AN" 

2240 PRINT "ASTERISK (*) AND YOU RESPOND WITH THE COMMANDS YOU W 
ANT." 

2250 PRINT "FOR NULL ENTRIES (SUCH AS RESPONSE TO NUMBER OF FILE 
S OR" 

2260 PRINT "MEMORY SIZE) TRY A SPACE FOLLOWED BY <ENTER>." 
2270 PRINT "TERMINATE YOUR ENTRIES WITH A NULL LINE ( <ENTER> ON 
LY ) ." 
2280 PRINT 

2290 LINEINPUT'HIT ENTER. ";F$ 
2300 RETURN 

2310 ' 

DATA FOR MACHINE LANGUAGE ROUTINE 

2320 DATA 1,250,0,107,42,22,64,34,37,107,33,21,107,34,22,64 

2330 DATA 33,48,107,34,46,107,195,45,64,229,42,46,107,126,254 

2340 DATA 10,40,6,35,34,46,107,225,201,33,227,3,34,22,64,62 

2350 DATA 13,24,244,48,107 
2360 END 





Program Listing 2 






MACHINE 


LANGUAGE COMMAND 


FILE 




ORG 


6B00H 




DOS 


EQU 


402DH 




KEYDVR 


EQU 


4016H 




CR 


EQU 


0DH 




LF 


EQU 


0AH 




INIT 


LD 


HL, (KEYDVR) 


;GET THE DRIVER ADDRESS 




LD 


(QUIT+1) ,HL 


;SAVE IT 




LD 


HL, GETCHR 


;GET ROUTINE ADDRESS 




LD 


(KEYDVR) ,HL 


;PUT IT IN THE DRIVER 




LD 


HL, BUFFER 


; POINT TO BUFFER START 




LD 


(BUFPNT) ,HL 


;SAVE POINTER 




JP 


DOS 


;AND RETURN TO DOS 


GETCHR 


PUSH 


HL 


;SAVE HL 




LD 


HL, (BUFPNT) 


; POINT TO NEXT CHARACTER 




LD 


A, (HL) 


;GET THE CHARACTER 




CP 


LF 


;IS IT END OF BUFFER? 




JR 


Z,QUIT 


;YES, QUIT 




INC 


HL 


;NO, BUMP POINTER 




LD 


(BUFPNT) ,HL 


;SAVE IT 


EXIT 


POP 


HL 


; RESTORE HL 




RET 




; RETURN TO CALLER 


QUIT 


LD 


HL,03E3H 


;GET SAVED DRIVER ADDRESS 




LD 


(KEYDVR) ,HL 


; RESTORE IT 




LD 


A,CR 


; RETURN A CR 




JR 


EXIT 


;AND GET OUT 


BUFPNT 


DEFW 


BUFFER 


; POINT TO BUFFER 


BUFFER 


DEFS 


200 


; RESERVE STORAGE SPACE 




END 


INIT 
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Have you ever wanted a low-cost servant who never goes on strike, never takes a 
vacation and can work 24 hours a day? Have you ever wanted a particular book and 
found the library has loaned out its only copy to an arctic explorer who wanted it for 
light reading over a winter at the North Pole? Then you'll want to read our September 
issue. 

Next month the 80 Microcomputing staff will bravely explore the uncharted 
forests of robots. Our own Chris Brown will provide you with an overview of robotics 
as it is today and its connection with microcomputers. The article will explain the 
two kinds of robots— show and industrial— and what they can and cannot do. It will 
include a look at a couple of robot manufacturers and comments by the editor of 
Robotics Age Magazine. 

For those who want to get involved personally, freelance writer Don McAllister will 
tell you how to interface R2D2 with your TRS-80 for a total cost (exclusive of the mi- 
crocomputer) of $63. The resulting robot will respond to voice and infra-red light com- 
mands to execute any of a number of preprogrammed sets of behavior. 

The news section will deal with another important issue, information distribution. 
Bert Latamore has looked behind the scenes of the electronic information revolu- 
tion. He discovered that the networks that bring all those databases to you at the 
cost of a local telephone call make just as fascinating and important a story as the 
services themselves. His stories explain how the international packet network sys- 
tem came to be and how it works. He also lists some of the more interesting data- 
bases available on them and gives you a look at Ethernet, a new local network sys- 
tem for businesses, developed by Xerox and supported by Digital Equipment Co. 
(DEC) and Itel. 

Chris Brown will also give us a look at a new use for the TRS-80 as a coin-operated 
machine in a public library. 

Dennis Kitsz will bring us another Exclusive Oracle column of questions and 
answers as well as his regular 80 Applications column. 



NEW PROGRAMS 
FOR THE TRS-80 

incoPROP 

Income Property Analysis 
for the TRS-80 

INCOPROP: Based upon stanclaroVed methods 
ol property analysis used throughout the real 
estate industry Generates a 3 page report contain 
ing an annual property operating statement and a 
comprehensive 10 year cash How analysis Con 
tains IRS tax table to proiecl altertax income 
stream and investor s I R R 

• Handles 5 dilferent metnodsof tax depreciation 

• Handles up to 3 loans & 3 different lype loans 

• Highly interactive lormat permits Sensitivity Analysis 

• Disk files created tor permanent storage ot data 
Minimum system requirements 3?k HAM t drive and 
printer Sold with informative 78 page user s manual cover 
ing Basic aspects ot income property investment * 50 
data worksheets 



on cassette tor easy transfer 




to disk 


$120 00 


on 8-inch diskette 


$14500 


Version available m MBASIC 




running under CP'M 


>165 00 



M ltd l s 



MAINDEX: An easy louse program to aid you in 
the indexing ot your tiles on disk Can't find mat 
program you wrote last month'' Put your computer 
to worki Find any program or data tile in your sys- 
tem in seconds 

• A Main Index ol all your other disk s directories 

• Alphabetizes list ol files and gives you names grans 
used, dales written, tracks and file descriptions 

• Sorts Files by name disk, and categories 

• File descriptions can be searched tor key words 

• Prints disk labels with disk name and file names 

• Uses all the advanced and extiemely fast file manipu 
lalion capabilities of Apparat Inc "s NEW0OS80 

Requires Level II 48K I disk drive ,inn NEWOOS 80 on 
cassette lor easy transfer uuiy.k $20 95 

VISA' _ , I MMmCoM 




SOFT 
WARE 



DEPT EM. PO BOX 591.NOVATO. CA 94947 



AT LAST! 

Mass production prices for high quality software Buy direct and save 50%. Also 
available for CPM and HDOS. 

DATA BASE MANAGER Mod I & III S69. $149 (48K). Mod-ll S199 

Maintain a data base and produce reports, all without user programming Define 
file parameters and report formats on-line. Key random access, fast multi-key 
sort, field arithmetics, audit log. label. No time-consuming overlays. 500 happy 
user-s in one year. Mod-ll and 48K versions have over 50 enhancements, including 
40 fields maximum I0M-M2 is great 1 - 80-US 

A/R Mod-I S69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc 

WORD PROCESSOR S 49 

Centers, justifies, indents, and numbers pages. Mod-I version features 
upper/lower case without hardware modification 1 File merge option available. 
MAILING LIST Mod I & III S59. S79 (48K). Mod-ll S99 

The best 1 Compare and be selective Includes forms input. 5-digit selection code, 
zip code extension, sort on any field, and multiple labels. Who else offers a report 
writer and merges with word processor'' 

INVENTORY Mod I & III S89. S109 (48K) Mod-ll S149 

Fast key random access. Reports include order info, performance summary. EOQ 
and user-specified reports. Many people have converted to our system 1 Next to 
impossible to damage the file." 

GL. A/R. A/P. PAYROLL Mod-ll S129 each 

Integrated accounting package 100* page manual. As opposed to Osborne s slow 
binary search and 64 column screen, we use fast ISAM and 80 columns. Dual disk 
and TRSDOS required. 

L2I6 , S59 

A cassette package of 10 business programs for Level I1 16 K systems. Includes 
word processor and data base manager Poker game $19 
Most programs are on-line, interactive, random-access, bug-free, documented, 
and delivered on disks. Mod-I programs require 32K TRSDOS. We re #1 in business 
software — don t let our low price fool you 1 Ask for our free 20-page catalog if 
you're still not convinced Compiled versions are available 



£* 



MICRO ARCHITECT. INC. • m 

96 Dothan St., Arlington, MA 02174 




EMMANUEL B. GARCIA, JR. 
& ASSOCIATES 

203 N. WABASH 

CHICAGO, ILLINOIS 60601 

PHONE (312) 782-9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 

. Dealer of quality software and hardware — 
we sell only the best, proven items. 

. Sponsor of CHICATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News," monthly 
publication for TRS-80 users. 
■ ■ Send for sample issue ■ ■ 

. Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

. Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack. 
'TRS-80 is a Iradnmark ol Tandy Corporation 



'See List ol Advertisers on page 322 
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UTILITY 



Enter common Basic words 

in a single keystroke for programming efficiency. 

Basic Shorthand 



J a red Radin 
1458 Sheffield Dr. 
Atlanta, GA 30329 



This program will let you type 
25 of the most commonly 
used Basic words in a single 
keystroke. After the program is 
executed, hold down the shift 
down-arrow key and a letter 
from A to X, to produce a Basic 
word— for example, pressing 
the F key will produce the word 
LPRINT; the G key will produce 
the word GOTO; the P key will 
produce the word PEEK, and so 
on. The program can be modi- 
fied for other Basic words by 
modifying entries in a table. The 
program uses only 141 bytes in 
high memory and does not dis- 
able any other keyboard drivers 
present. Most Basic words are 
matched to a key with the same 
starting letter so the abbrevia- 
tions are easy to memorize. 

The first part of the program 
allows the user to gain control 
of the keyboard. The second 
part disables the shift down-ar- 



row key, and when the shift 
down-arrow and a letter are hit 
simultaneously, it initializes the 
third part of the program for a 
Basic word, and passes control 
of the keyword to the third rou- 
tine. The third routine then 
prints each letter of the Basic 
word and then returns control to 
the second part of the program. 

The first part determines the 
current keyboard routine, and 
does one of two things. If the 
program running is the key- 
stroke program, it returns con- 
trol to DOS, or Basic II, if modi- 
fied. If the current keyboard rou- 
tine is any other routine, the key- 
stroke program modifies the 
second part of this program to 
call the previous keyboard rou- 
tine. For example, if a keyboard 
debounce routine was loaded 
prior to the execution of the key- 
stroke program, the keyboard 
debounce routine will still be ac- 
tive. That routine is activated by 
putting the address of the sec- 
ond part of the program in the 
keyboard device control block. 

The second part of the pro- 
gram is called whenever Basic 
or DOS, is seeking a character 



from the keyboard. At this point 
the previous keyboard routine is 
called. This routine loads the 
ASCII value of the key hit to the 
accumulator. If no key has been 
hit, the value will be zero and the 
program will return to the calling 
program. The program will also 
return to the calling program if 
the shift down-arrow was just 
hit, is not down, or a letter key 
was not hit. At this point, to dis- 
able the break key check the ac- 
cumulator to see if it equals one; 
if so, set it equal to zero. We are 
now ready to substitute a word 
for a single key. Each Basic 
word is assigned a number, and 
listed in a Basic keyword table 
located at the end of the pro- 
gram. The value of the key hit on 
the keyboard and its address in 
the table are added, and the re- 
sult points to the number of the 
keyword. 

In the Basic keyword table, 
the first letter of each word has 
the high order bit turned on. The 
words are counted by counting 
the high bits encountered until 
the number of counted words in 
the table equals the number of 
the desired word, pointing to the 



first letter of the desired Basic 
word. The pointer is saved, the 
third part of the program is ac- 
tivated by putting its address in 
the keyboard control device 
block, and then jumping to the 
third part of the program for the 
first letter of the Basic word. 

The third part of the program 
is called to get the next letter of 
the word. The pointed-to letter is 
sent to the calling program (ex- 
actly as if that letter was hit on 
the keyboard), the pointer is ad- 
vanced to the next letter and 
saved. If the pointer is now 
pointing to the first letter of the 
next word, the address in the 
keyboard control block is set to 
point to the second part of the 
program. 

The last part of the program is 
a table of 25 numbers, one for 
each of the alphabet keys. Each 
number is the number of a Basic 
word in the Basic keyword table, 
and can be modified to repre- 
sent any Basic word. 

Two modifications are neces- 
sary if you do not have a 48K 
disk system. First, change the 
return address to Level II Basic 
instead of DOS, as written in the 
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program. Second, change the 
origin of the program to fit your 
computer. 

If you do not have disk, I 
would recommend changing 
some of the DOS Basic key- 
words to words that you will find 
useful, such as CLOAD or 
CSAVE. If you do not have NEW- 



DOS (this program is compat- 
ible with NEWDOS) you may 
wish to use the words Edit, De- 
lete and List as part of the 
table. 

When using the program re- 
member to set the memory size 
to an address below the pro- 
gram origin. ■ 







00100 


J PROGRAM TO ALLOW SINGLE KEY ENTRY OF BASIC WORDS 






00110 


.•EXAMPLE HITTING THE DOWN ARROW AND SHIFT 'D' 






00120 


;IS THE 


SAME AS 


TYPING THE WORD 


DATA 1 






00130 


.•PROGRAM COPYRIGHT APRIL, 1980 BY JARED RADIN 






00140 


;1458 SHEFFIELD 


DRIVE NE, ATLANTA, GA. 30329 






00150 


PERMISSION IS 


GRANTED TO MAKE COPIES SOLELY FOR 






00160 


; PERSONAL USE OR TO GIVE COPIES TO YOUR FRIENDS 


FF00 




00170 




ORG 


0FF00H 


MODIFY IF LESS MEMORY 


4016 




00180 


KEYDRV 


EQU 


4016H 




402D 




00190 


DOS 


EOU 


402DH ;1A19H FOR RETURN TO LEVEL II 


1650 




00200 


WORDS 


EQU 


1650H J POINTER 


TO LIST OF BASIC WORDS 


FF00 


ED5B1648 


00220 


BEGIN 


LD 


DE, (KEYDRV) 


GET OLD DRIVER ADDRESS 


FF04 


211AFF 


00230 




LD 


HL, DRIVER 


ADDRESS OF NEW DRIVER 


FF07 


AF 


00240 




XOR 


A 


CLEAR CARRY BIT 


FF08 


ED52 


00250 




SBC 


HL.DE 


SUBTRACT DRIVERS 


FF0A 


CA2D40 


00260 




JP 


Z.DOS 


DRIVER ALREADY INSTALLED 


FF0D 


ED531BFF 


00270 




LD 


(DRIVER+1) ,DE 


AND USE IN NEW DRIVER 


FF11 


211AFF 


00280 




LD 


HL, DRIVER 


ADDRESS OF NEW DRIVER 


FF14 


221640 


00290 




LD 


(KEYDRV) ,HL 


AND SAVE AS NEW DRIVER 


FF17 


C32D40 


00310 




JP 


DOS 


BACK TO DOS 






00320 


;TH1S IS THE NEW KEYBOARD DRIVER 




FF1A 


CD 


00330 


DRIVER 


DEFB 


0CDH ;CALL INSTRUCTION WITH NO ADDRESS 






00340 


;THE NEXT TWO BYTES ARE FOR THE ADDRESS - WHEN LOADING 






00350 


;THE PROGRAM THE PREVIOUS ADDRES 


> MUST BE UNMODIFIED 






00360 


;AS THE 


PROGRAM 


MAY HAVE BEEN US 


D ALREADY AND IN THIS 






00370 


;CASE THE NEXT 


TWO BYTES ARE THE 


ONLY PLACE WHERE THE 






00380 


.•ADDRESS OF THE 


PREVIOUS DRIVER 


S PRESENT - THAT IS THE 






00390 


;KEYBOARD DCB IS ALREADY POIHTIN 


, TO DRIVER - AND NOT TO 






00400 


;THE ORIGINAL DRIVER 




FF1D 




00410 




ORG 


S+2 ; LEAVE ROOM FOR ADDRESS 


FF1D 


B7 


00420 




OP 


A ;WAS A KEY HIT ? 


FF1E 


ce 


00430 




RET 


Z j RETURN 


F NO KEY HIT 


FF1F 


E5 


00440 




PUSH 


HL 




FF20 


214038 


00450 




LD 


HL, 384011 


PNTR TO DOWN ARROW ROW 


FF23 


CB66 


00460 




BIT 


4,(HL) 


TEST DOWN ARROW BIT 


FF25 


2805 


00470 




JR 


Z, NODWN ;IF NO 


ARROW DON'T TEST SHIFT 


FF27 


218038 


00480 




I.D 


HL,3880H 


POINT TO SHIFT ROW 


FF2A 


CB46 


00490 




BIT 


0,(HL) 


SEE IF SHIFT IS ON 


FF2C 


El 


00500 


NODWN 


POP 


HL 




FF2D 


ce 


00510 




RET 


Z ; RETURN 


F NO SHIFT OR DOWN ARROW 


FF2E 


FE1A 


00520 




CP 


26 


SHIFT DOWN ARROW HIT 7 


FF30 


2882 


00530 




JR 


NZ, LETTER 


NOT DOWN ARROW 


FF32 


AF 


08540 




XOR 


A 


GET RID OF DOWN ARROW 


FF33 


C9 


00550 




RET 






FF34 


FE1A 


00560 


LETTER 


CP 


26 ; COMPARE 


TO CONTROL *Z' 


FF36 


D0 


00570 




RET 


NC : RETURN 


IF GREATER THAN CONTROL X 






00580 


; SH I FT 


DOWN ARROW IS ON AND ALSO 


HAVE LETTER 


FF37 


ES 


00590 




PUSH 


ML 




FF38 


C5 


00600 




PUSH 


BC 




FF39 


2172FF 


00610 




LD 


HL.TABLE-1 


POINTER TO TABLE 


FF3C 


4F 


00620 




I.D 


C,A 




FF3D 


0600 


00630 




LD 


B,0 ;BC=VALU 


E OF LETTER 


FF3F 


09 


00640 




ADD 


HL.BC 


HL»>TABLE OF 1 


FF40 


46 


00650 




LD 


B, (HL) 


B=WORD NUMBER 


FF41 


215016 


00660 




LD 


HL, WORDS 


HL=>START OF BASIC WORDS 


FF44 


05 


00670 


NWORD 


DEC 


B 


COUNT OFF WORDS 


FF45 


2807 


00680 




JR 


Z, FOUND 


HL => WORD 


FF47 


23 


00690 


NLET 


INC 


HL 


POINT TO NEXT LETTER 


FF48 


CB7E 


00700 




BIT 


7,(HL) 


•HIGH BIT ON (STRT. WORD) 


FF4A 


28FB 


00710 




JR 


Z,NLET 


;IF NOT KEEP LOOKING 


FF4C 


18F6 


00720 




JR 


NWORD 


RIGHT WORD 7 






00730 


;NOW HL POINTS 


TO THE FIRST LETT 


ER IN THE WORD 


FF4E 


2271FF 


00740 


FOUND 


I.D 


(POINT) ,HL 


SAVE HL 


TF51 


2159FF 


00750 




LD 


HL, WRDDRV 


•DRIVER TO GET WORD 


FF54 


221640 


00760 




LD 


(KEYDRV) ,HL 


•AND CHANGE DRIVER 


FF57 


CI 


00770 




POP 


BC 




FF58 


El 


007 80 




POP 


HL 








00790 


.•DRIVER TO GET 


LETTERS IN WORD 




FF59 


E5 


00800 


WRDDRV 


PUSH 


HL 




FF5A 


2A71FF 


00810 




LD 


HL, (POINT) 


GET POINTER 


FF5D 


7E 


00820 




LD 


A, (HL) 


GET LETTER POINTED TO 


FF5E 


E67F 


00830 




AND 


7PH 


GET RID OF HIGH BIT 


FF60 


23 


00840 




INC 


HL 


POINT TO NEXT LETTER 


FF61 


2271FF 


00850 




LD 


(POINT) ,HL 


SAVE POINTER 


FF64 


CB7E 


00860 




BIT 


7,(HL) 


•SEE IF HIGH BIT ON 


FF66 


El 


00870 




POP 


HL 




FF67 


C8 


00880 




RF.T 


I 


RETURN IF STILL A LETTER 


FF68 


E5 


00890 




PUSH 


ML 








00900 


J RESTORE ORIGINAL DRIVER 




FF6 9 


211AFF 


00910 




LD 


HL, DRIVER 




FF6C 


221640 


00920 




LD 


(KEYDRV) ,HL 




FF6F 


El 


00930 




POP 


HL 




FF70 


C9 


00940 




RET 






FF71 


0000 


00950 


POINT 


DEFW 


a 




FF73 


77 


00960 


TABLE 


DEFB 


119 ;ASC 




FF74 


14 


00970 




DEFB 


20 ; REM 




FF75 


06 


00980 




DEFB 


6 ;CMD 




FF76 


09 


00990 




DEFB 


9 ; DATA 




FF77 


16 


01000 




DEFB 


22 ,-ELSE 




FF78 


30 


01010 




DEFB 


4 8 ;LPRINT 




FF79 


OF. 


01020 




DEFB 


14 j GOTO 




FF7A 


12 


01030 




DEFB 


18 ;GGoJB 




FF7B 


9 A 


01040 




DEFB 


10 ! INPUT 




FF7C 


4A 


01050 




DEFB 


74 (INKEYS 




FF7D 


2B 


01060 




DEFB 


43 ;KILL 




FF7E 


28 


01070 




DEFB 


40 ,-LOAD 




FF7F 


7B 


01080 




DEFB 


123 ;MIDS 




FF88 


08 


01090 




DEFB 


8 J NEXT 




FF81 


23 


01100 




DEFB 


35 ;OPEN 




FF82 


66 


01110 




DEFB 


102 ,-PEEK 




FF83 


32 


01120 




DEFB 


50 ;POKE 




FF84 


13 


01130 




DEFB 


19 ; RETURN 




FF85 


2E 


01140 




DEFB 


46 ;SAVE 




FF86 


4B 


01150 




DEFB 


7 5 ;THEN 




FF87 


3D 


01160 




DEFB 


61 ;TAB( 




FF88 


41 


01170 




DEFB 


65 ;VARPNT 




FF89 


78 


01180 




DEFB 


128 ;CHR$ 




FF8A 


79 


01190 




DEFB 


121 ; LEFTS 




FF8B 


7A 


01200 




DEFB 


122 /RIGHTS 




FP00 




01210 




END 


BEGIN 




00000 TOTAL ERRORS 


















Program Listing 





2 For I + 5 CENTS SALE 
RIBBONS 

FOR RADIO SHACK* AND CENTRONICS LINE PRINTERS 

EXACT REPLACEMENT INSERTS 

(Cartridges NOT Included] Radio Shack List + 5c SALE 

LP l-ll-IV-700-730-737-779 3 Pack $18.95 6 for $19.00 

LP lll-V 1 Each $13.95 2 for $14.00 

LP VI 1 Each $11.95 2 for $12.00 

Daisy Wheel II |Carbon Film) 3 Pack $24.95 6 for $25.00 
[Our instructions make inserts easy to put in your cartridge] 

RELOADS 

lYou SEND old CARTRIDGES to US- WE RELOAD them for you] 
LP lll-V Each sg.oo 

LP VI Each $9.00 

DW II [Long-Life FABRIC-We MODIFY YOUR cartridge|Ea$9.00 
DW II [Carbon Film] 3 Pack $15.00 

NEW CARTRIDGES FROM RADIO SHACK 



LP lll-V 

LP VI 

LP VII 

DW II Carbon Film 



[26-1414 
126-1418 
[26-1424 
[26-1419 



Two for 
Two for 
Two for 
3 Pack 



S24.00 
$21.00 
$15.00 
$21.00 



MODEL II 8" GAME DISCS 

Volume 1 $24.95 Each Volume 2 

Biorhythms, Trap Ugly, Bingo 

Rip Cord, Yacht Sea Towers, Blackjack 

Concentration + 4 More Farkle, Pony + 3 More 

SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPCO "™ 

800 South 17* Box 246 • 417 932-4196 

Summersville, MO 65571 

'RADIO SHACK is a trademark of Radio Shack, a Tandy Corp. 



Storm Coming? 

How many times have your plans revolved around the weather? 
Now you can turn your TRS-80 into a weather forecaster, and stop 
getting caught in the rain!! 

CLIMATE-COMP was created by National Weather Service 
Meterologist, author and editor David Carman. 

THE WEATHER FORECASTER program will give you a short 
range forecast for your area. Enter a few simple measurements, 
easily obtained from newspapers or the U.S. Weather Service, to 
receive a short range forecast for the next six hours. 

THE WEATHER PLOT program is the result of years of carefully 
collected data. At your command are records, charts, graphs, facts 
and figures on local weather for every major city in the United 
States. Choose your area of the country and the data files will 
release a flood of information. Each city is listed with its monthly 
rainfall, monthly and yearly average temperature, average wind 
speed, snowfall, heating and cooling degree days, annual average 
sunshine, humidity and record-breaking temperatures. 

CLIMATE COMP for all the information you need 
to know what the weather has in store for you. 

Cassette based: system requires 16K, level II, 
Pkg. no. 0102R $19.95. Disk based: 
system requires 32K one disk drive, 
Pkg. no. 031 6RD $24.95. 




TO ORDER: Contact 

your local Instant Software 
dealer. If these programs 
are unavailable, call toll-free 
1-800-258-5473 



"A trademark of Tandy Corporation 



Instant Software 

PETERBOROUGH, N.H. 03458 ^533 



•See List of Advertisers on page 322 
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i 

THE 

REAL THING 

Yes this is the EPSON MX-80 printer 
you have read so much about... the 
one everyone's buying. Better get 
yours while they are available at this 
terrific price! One of the most advanc- 
ed 80 column dot matrix printers 
available featuring the world's first 
disposable print head. There are lots of 
printers to choose from but. once you 
have compared, you will find it hard 
to pass up the EPSON MX-80. 

FEATURES 

• Bidirectional Printing 

• Logical seeking of shortest lines 

• 80 Characters per second 

• 64 Block Graphic Characters 

• Forms Handling 

• Disposable print head 

• Adjustable Tractor-type pin feed 

• Paper width 4 to 1 inches 

• Inked ribbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 character ASCII with 
decenders 

• Printing Modes: Standard. Double, 
Emphasized and Double 
Emphasized 

• Correspondence Quality 

Add S6 00 shipping |Cont US| Does not include cable See op- 
posite page for ordering information 

EXTRAS FOR 
EPSON 

TRS80 Cable (I & III) $29.95 

APPLE Cable & Interface .... $96.00 

RS232 Interface $69.95 

Ribbon Cartridge, Black $13.95 

Interface & Cable (from Mod. I 

Keyboard) $99,95 

ORDER TODAYII 



EPSON 

iv MX-80 



$489. 



00 



Save Even More 
EPSON MX-70 

$389.00 

NO FRILLS PRINTING 
AT NO FRILLS PRICE 
FEATURES 

• Unidirectional printing 

• 80 Characters per second 

• Bit-plot graphics 

• Forms handling 

• Disposable print head 

• Adjustable tractor-type pin feed 

• Paper width 4 to 1 inches 

• Inked ribbon cartridge with 3 
million character life 

• Self test mode 

• Full 96 character ASCII 

• Printing modes: normal & normal 
expanded 

Add S6 00 shipping |Cont US) Does not include cable See op- 
posite page (or ordering information 



ALL NEW! 
MX-80 F/T 

All the features of the MX-80 
plus friction feed. 



$599. 

LIMITED QUANITIES 



00 



CABLES, SOFTWARE 
& OTHER GOODIES 

• DRIVE CABLES 

2-Drive $24.95 

3-Drive S29.95 

4-Drive $34.95 

Extender Cables $16.95 



• OPERATING SYSTEMS 

DOSPLUS 3.3. 3. 3D (spec. Mod I or III) 

$89.95 

LDOS $135.00 

NEWDOS/80 $135.00 

TRSDOS 2.3 DISK & MANUALS 1 7.95 
DOUBLE ZAP II $44.00 

Add SI 25 per pound shipping |S I 00 minimum] 

• DISKETTES i m m . softseaored. box of I0| 

Cert, one side, single density S 29.95 

Cert, two sides, double density. . . . S 39.95 

• OTHER SOFTWARE & BOOKS 

SCRIPSIT (disk) S89.95 

SPECIAL DELIVERY SI 19.95 

XTRA SPECIAL DELIVERY S 189.95 

SUPER UTILITY S39.95 

MICROSOFT BASIC DECODED & 
OTHER MYSTERIES 

5ZD.95 

TRS80 DISK & OTHER MYSTERIES. . $ 1 9.95 
MAKE 80 $14.95 



SPECIAL WORD 

PROCESSING 

PACKAGE 

Includes the followinq: 

• EPSON MX-80 PRINTER 

• CABLE 

• SCRIPTSIT (disk) 

• SPECIAL DELIVERY (disk) 

• freight and insurance. 
SPECIAL 

$725.00 

(Reg $917.00) 

Order today from 

AE3GCCIT1P 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, Texas 75224 " 387 

See Opposite Page 



o 



AROCOMP5/23 
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TRS 80* 



DISK DRIVES 

40 & 80 TRACK 



as low as 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along. We offer the best 
disk drive value in the market place. 
Reliability, features and cost tough to 
beat. We deliver... and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIALI Buy 
Aerocomp drives today. You deserve the 
best. 

BEST FEATURES 

• Fast 5 ms. track-track access time. 

• Operates single or double density. 

• "FLIPPY" feature for lower media cost 
(40-1 & 80-1). 

• Head load solenoid. 

• Disk ejector. 

• Easy entry door. 

• NEW EXTERNAL DRIVE CABLE 



CONNECTION. 



longer need K 



hook up caol 



MODEL III 
INTERNAL 
DRIVE KIT 

Includes the following: 
(1) Disk Controller Board. Double Densi- 
ty, (2) Dual Power Supply (handles two 
drives), (3) Drive Mounting Brackets & 
Shield, (4) all necessary hardware, cables 
and connectors and (5) installation in- 
structions. 

May be used with AROCOMP bare 
drives. DOSPLUS operating system 
available $89.95. 

SPECIAL PRICE 

$ 399 



$299. 



95 



A,m s i oo (or snpp 



ORDER TODAYI 

• 40-Track Drive $299.95 

• 80-Track Drive $429 95 

• 40-Track "FLIPPY" Drive. . . . $329.95 

• 80-Track "FLIPPY" Drive. . . . $449.95 

• 40-Track Dual-Head Drive. . $449.95 

• 80-Track Dual-Head Drive. . $579.95 

All above drives <»<• complete with ylver enclosure power sur,>ply 
.inde«lernHl drive cirjle connection I IS VAC SO/60 Hi 2 iO VAC 
SO/60 Hi HvrfiUde on spec nl order 

• 40-Track Bare Drive S 269.95 

• 80-Track Bare Drive $399.95 

• 40-Track "FLIPPY" Bare Dnve$299.95 

• 80-Track "FLIPPY" Bare Drives 4 1 9.95 

• SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive. 2-drive cable, TRSDOS 
2.3 Disk & Manual. Freight & Ins. 

SRARTER B $369.95 

40-Track "FLIPPY" Drive. cable. TRSDOS 
2.3 Disk & Manual, Freight & Ins 

COMBO C $465.00 

40-Track "FLIPPY" Drive. 2-dnve cable. 
NEWDOS/80 or LDOS. Freight & Ins. 

COMBO D $585.00 

80-Track "FLIPPY" Drive. 2-dnve cable. 
NEWDOS/80 or LDOS, Freight & Ins. 

COMBO E S 709.00 

Two 40-Track "FLIPPY" Drives, 4-Drive 
cable. TRSDOS 2.3 Disk & Mannual, 
Freight & Ins. 

COMBO F $999.00 

Two 80-Track "FLIPPY" Drives. 4-dnve 
cable. NEWDOS/80 or LDOS. Freight & 
Ins. 

COMBO G $909.00 

Two 40-Track Dual-Head Drives, cable. 
TRSDOS 23 Disk & Manual, Freight & 
Ins. 

COMBO H $1299.00 

Two 80-Track Dual-Head Drives, cable. 
NEWDOS/80 orLDOS. Freight & INS. 
DOSPLUS available with any special 
package. 

AddSS 00 per drive tor shipping & handling |Cont US| 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it. packed in the 
original shipping container, for a full re- 
fund. ISpecidi packages will be performed) We have 

complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 

• TRS80 is TRADEMARK of TANDY CORP 



WARRANTY 

We offer you a 1 20 day unconditional 
warrenty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment is fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABILITY!! 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order, VISA or 
MASTERCHARGE card number and ex- 
piration date, or request COD. ship- 
ment. Texas residents add 5% sales tax. 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
C.O.D. shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact C.O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship. 1 1 



WRITE AEROCOMP TODAY 
FOR MORE VALUES II! 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888. OPERATOR 24 

FOR VISA/MASTIRCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777. Operator 24. Alaska 
and Howoii dial (800) 824 7919. Operator 24. 

TOLL FREE LINES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



Dealers inqiries invited 

AE3GCCfil? 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224 ^387 arocomr-m 



■ See List ol Advertisers on page 322 
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GENERAL 



Model I owners take note. 



Color Computer 
First Impressions 



Richard L. Kilmon 

106 East Green Valley Circle 

Green Valley 

Newark, DE 19711 



Gadgets. Those who know 
me know I love gadgets. 
The neat new wristwatch that is 
also a calculator and that new 
computer with color. (Some- 
times you have to write articles 
to afford those neat new gad- 
gets.) 

The Color Computer caught 
my eye in a local Radio Shack 
while I was helping a friend 
evaluate a Model III. As a Model I 
owner, I must admit my first im- 
pression of the TRS-80 Color 
Computer was unfavorable. This 
was partly due to store condi- 
tions. 

The video display was not ad- 
justed for color or fine tuning. 
The system was sitting on top of 
another (Radio Shack stores are 
always cramped), and of course 
the salesman was friendly, but 
not very knowledgeable about 
his product. 

I must admit that he did have 
one selling point: As an indepen- 
dent dealer, he could sell for a 
discount. That, and the prospect 
of playing with sound and color 
graphics, tweaked me just right 
to make the plunge. 

The unit comes in a shipping 
box with several precut foam 
pieces designed to fit, protect 
and allow easy removal of the 
main unit. Cords and instruction 
manuals are located below the 



unit. These are less convenient 
to get at. I had to be careful here 
since I didn't want to destroy the 
packing— just in case. 

The complete contents of the 
box are as follows: one comput- 
er with U-ground power cord; 
one tv switching box; one inter- 
face cable; one packet of in- 
struction materials— operator's 
manual, instruction manual 
(similar to the Level I manual), a 
Basic reference card, warranty 
cards, a notice to programmers 
about the Let statement, and an 
additional information request 
card. 

Getting Hooked 

Setting up the computer is 
very simple. The operator's man- 
ual covers just about every pos- 
sible combination for hooking it 



up. The tv switching box at- 
taches to the VHF terminals on 
the back of the set. I am using a 
Sony KV1513 tv. An RCA phone 
plug cable attaches between 
the computer and the tv. The an- 
tenna connects to the switching 
box. Plug in the computer and 
the tv, switch the box to the 
computer setting, and you're 
ready to go. Well, almost. 

A word of caution here. Sony 
tv sets, as well as many others, 
are often AC/DC units. This 
means there is no transformer 
between the line and the set's 
electronics. My set has one 
large blade on the plug which is 
meant to aid plugging it in prop- 
erly, but I know many of you 
folks probably have older homes 
and don't know if the holes in 
your receptacles are polarized 



AUDIOonoroff 


Allows you to hear a program listing being loaded from the 




cassette recorder. 


CLEAR n.h 


The h allows you to sets high memory. CLEAR 150,10000 




clears 150 bytes and sets memory protect at 10,000. 


CLOADM 


Will load a machine language program and an offset address 




if you desire. 


CLS(c) 


C equals to 8. This clears the screen and sets the 




background to one of eight colors. 


CSAVE.A 


Will save a cassette load in ASCII format. 


EXECa 


This is similar to System, but allows you to put the beginning 




address in the command statement. 


MOTOR on or ol 


This allows program control of the cassette recorder motor. 


OPENm,#d,f 


Allows files to be opened on screen, keyboard, cassette or 




printer. 


SET(H,V,C) 


Is the same as the Level II command, except the computer 




needs to be told what color the block should be. 


SOUND(F.D) 


This gives a sound controlled with F being the frequency and 




D being the duration. 


EOF(f) 


Is used to find out if all the file data has been used or not. 


JOYSTIK(j) 


Senses the joystick position. 


PRINT/* -2 


Color Basic's LPRINT. 




Table 1. Color Basic Commands 



correctly. Polarization is impor- 
tant for the sake of the comput- 
er—don't destroy your new toy 
turning it on. 

I bought joysticks and con- 
nected them, also. These plugs 
are DIN plugs, and are well 
marked on the back of the com- 
puter. The cartridge game plugs 
into the right side of the comput- 
er. Make sure it is right side up. 
The computer should be turned 
off while you are making these 
connections; the cartridge will 
seize control of the computer. 

Learning the Lingo 

When you turn it on, the com- 
puter initializes and the screen 
reads: "Color Basic 1.0 ;(C) 1980 
Tandy ; OK." That's the last 
you'll see of the title until the 
next time it's turned on. 

I entered the command: 
PRINT MEM, even though this is 
not mentioned in the literature. 
The answer came back 2343 
bytes, which left me a bit 
perplexed. A 4K computer that 
only lets me play with 2.3K 
bytes? It looks like a lot of 
memory is used in housekeep- 
ing functions and graphics. To 
me this means that more memo- 
ry is a must. I verified this 
number at the local RS store on 
one of their demos. 

The Basic commands are 
straightforward and appear to 
syntactically match Level II Ba- 
sic in most ways, with additional 
graphics and sound commands 
to use with this computer's new 
features. Color Basic is more 
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• 1 Through 32 are unknown except for: 
CHR$ 8 = Backspace and erase 
CHR$ 13 = Linefeed and carriage return 
CHR$ 32 = Space 

• 33 Through 95 follow in order: 

!"#$%&()• + ,— ;0123456789:;< = > ? ® 
ABCDEFGHIJKLMNOPQRSTUVWXYZ|/|?~ 

• 96 Through 127 are shown on the screen as uppercase but are sent out to 
printers as lowercase. 

@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]t- 
You can tell lowercase because they are in reverse video. 

• 128 Through 255 are graphics blocks tor the eight colors. 



□ 


•B 


■ 


-! 


■ 


"B 


■ 


k 


H 


■•H 


1 


-1 


Sfl 


■•■ 


a 


I 







CHR$ 




tm 


to 


Green 


128 


143 


Yellow 


144 


159 


Blue 


160 


175 


Red 


176 


191 


Bufl 


192 


207 


Cyan 


208 


223 


Magenta 


224 


239 


Orange 


240 


255 



1/4 ot the graphics block is six scan 
lines high 

Low Resolution Mode 

512 graphics blocks fill the screen. 

2048 with the Set command (32 x 64) 



Table 2. CHR$ Codes for the Color Computer 



powerful than Level I, but not up 
to the Level II package. The first 
feature I missed was an edit 
command. This and some pow- 
erful graphics commands are 
promised in the Extended Basic 
package. 

Table 1 lists some of the com- 
mands peculiar to Color BASIC. 

Unfortunately, the manual 
does not discuss some of the 
new commands, like EOF and 
Open. DOS users will be able to 
decipher them, but most will 
have to wait for Tandy's prom- 
ised additional information. 
Don't forget to send in the re- 
quest card. 

Features 

The printing on the screen is 
similar to the 32 character mode 
on the Model I. I'm not crazy 
about this but it appears to be 
standard in the industry. 

There is a full set of upper and 
lowercase characters in the Col- 
or Computer. The video can be 
switched to lowercase mode, 
but the video display will show 
lowercase as reverse video up- 
percase. The printer will get the 
proper ASCII code to print lower- 
case. Graphics remind me of the 
Model I. 

The basic graphic block is 
broken down into four sub- 



blocks, not six as in the Model I. 
The four sub-blocks can be con- 
figured 16 different ways. There- 
fore, there are 16 codes for the 
variations of each color. It is not 
as bad as it sounds (see Table 2). 
If you have a color computer, 
you can print out the character 
set by running the following pro- 
gram: 

10 CLS(0) 

20 FORX = 0TO255 

30 PRINT 225."CHR$ CODE NO, = ";X 

40 PRINT 370.CHR$(X); 

50 FOR Y = TO 500: NEXT Y 

60 NEXTX 

Graphics in a 32 x 64 format 
are not particularly impressive, 
even in color, but denser graph- 
ics are promised for the Extend- 
ed Basic version. Tandy claims 
that access to 192 x 256 graph- 
ics is possible through their Ex- 
tended Basic, machine lan- 
guage or their program packs. It 
may even be possible in the 4K 
machine, but it would not be 
practical with only 2.3K bytes 
available for storage of the 
graphics program. 

Colors can vary drastically 
from one tv to another. It is im- 
portant for everyone that has 
one of these computers to run 
the program on page 24 of the 
operator's manual. This makes 
the computer act like a color bar 



TURN YOUR TYPEWRITER 
INTO A PRINTER 



TRS-80 ADVENTURES FOR 16K COLOR 80 

Extended color or Level II BASIC 
ESCAPE FROM MARS - You are stranded on Mars and some- 
where in the Martian city are the parts you need to repair your 
ship. Our best adventure for new adventurers. 
TREK ADVENTURE - You will recognize the spaceship this 
takes place on. The crew has left-for good reason-but they 
forgot you-and the "Orbit is Decaying." Almost as good as 
being there. 

PYRAMID - Our most advanced and challenging adventure, this 
takes place in our own special ancient pyramid. The builders 
were as nasty as pyramid builders usually are, and ransacking 
this one is a dangerous job. 

ADVENTURES are all written in BASIC, all come with listings, 
and each sells for $14.95. 

ARCADE AND THINKING GAMES 

16K and extended or level II BASIC 
TIME TREK, REAL TIME REAL GRAPHICS TREK. See the 

torpedoes fly and the Klinsons explode. No more scolling dis- 
plays, no more turn taking. — This one has real time and real 
displays. In BASIC - for 16K level II or extended color BASIC. 
$14.95. 

STARFIGHTER - This one man space war game pits you against 
spacecruisers, battlewagons, and one man fighters. You have 
the view from your cockpit window, a working instrument 
panel, and your wits. Another real time goody. 
BATTLEFLEET — This grown-up version of Battleship is the 
toughest thinking game available on 80 computers. There is no 
luck involved as you seek out the 80's hidden fleet. This is a 
topographical toughie. $9.95. 

SLASHBALL — A two player game of strategy and skill, this is 
like nothing you have ever seen before. This takes fast fingers, 
quick wits and concentration. Playable from age 6 to 65, it is a 
good family game. $9.95. 

^*. FREE CATALOG 

■&* AARDVARK-8O.1 

2352 S. Commerce, Walled Lake, Ml 48088 
(313)669-3110 



% 




New KGS-80 . , 

" , -~.^r Inquiries Invited 

Keyboard Actuator. 

2 Because of its hardware interface, the KGS-80 is the only actu- 
ator that is delivered ready to set up and run with no alteration 
of your existing software. 

□ Rests on keyboard of IBM Selectric. SCM or other typewriters. 
May be installed or removed in seconds. 

I ! New third generation unit engineered and manufactured for 
reliability and long life by Kogyosha Co.. Ltd.. Japan's largest 
manufacturer of DC solenoids. 

□ Price $599 FOB New York. NY. 

I "Y" cable switch option allows alternative operation with high 
speed matrix printer. 
For further information, call (201) 569-8769. ^ 149 

Authorized Importer 

NIK International Trading Inc. 

114 Liberty St. Suite 204. New York. NY 10006 
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ELECTRIC SPREADSHEET 



NEW Considering VisiCalc™? 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run. Results appear 
on the screen, formatted for your printer. Revise. Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen. Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P/L forecast. Personal 
budget. Real estate investment. Net worth forecast. 
Invoice. Cash flow estimate. Sales analysis. Check record. 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34.95 

32/48K Model I or III Tape $64.95 

48K Model III Disk $67.95 

YOU CANT LOSE! Calif, orders add 6 '4% tax. 

VisiCalc is a trade mark of Personal Software. Inc. 



Dan G. Haney & Associates, Inc. ^464 
P.O. Box 687, San Mateo, CA 94401 
(415) 493-4094 



Spelling Errors' 
Does your TRS-80* wordprocessor need help' 



1 r Hn/A\Olr I 

CAN SPELL rendezvous AND mnemonic 
AND OVER 38,000 OTHER WORDS 

Sow lei your TR.S-MI and Proofreader by Soft-Tools check your Scripsit*. 
Electric Pencil, or other document! for spelling and typographical errors 
It has all of the features needed to meet your proofreading requirements 

• Checks every single word of even your biggest document 
in under 5 minutes. 

• The 38.000 word dictionary is one of If* largest available. 

• Dictionary can be easily extended to add more words such 
as technical terms or names. 

• All unknown words are listed on the screen and can be saved 
on a file for printing. 

• Works with almost any TRS-80 wordprocessor including 
Scripsit and Electric Pencil. 

• Comes with complete and easy to understand User's Manual. 

• Developed tor the TRS-80 by a Ph.D. in Computer Science. 

MODEL-I Requires .UK HAM 1 disk drive. TRSDOS'or NEYVDOS $54.00 
MODEL II Requires HK KAMI disk drive. TRSDOS Version t $109 00 
MODEL-HI Requires :<L'K HAM. I disk drive. IHSDOS $64.00 

User's Manual only, specify model $3.00 

When ordering, specify model, memory size, number of drives. 

Other professional quality software tools available from Soft -Tools 
include SOFT-SCREEN'"- a full screen text editor for the Model-ll 
and III. Kailor - a structured programming language pre-proeessor for 
FORTRAN. I'P-Ratfor - an automatic program pretty primer for Ratfor. 
plus more in the coming months Please call or write for more details 

Order* S«nt postpaid by firil clatl mail. eaMalB t^OCT 'J * l\l\l X^l^ 

Term* Cash. cr>»C« mon#, ord«' VISA ITO^^ ^ 

or MASTERCARD HM resident, add 4S lei ^"f*i d, P i m 

teHf .nqu.n« .n,.t.d «* T, '«'" NMfl ''°" 

i SOS, 281-1634 
Proofreader. Soli -Tools, and Soft-Screen are trademarks of Soli -Tools 
* Trademark oi Tandy Corporation 



generator, and will allow you to 
adjust your set for the best com- 
bination of colors possible. 
Mixed color graphics can really 
get messed up if you don't do 
this. 

I have a Quickprinter II that I 
interfaced with this computer. I 
wanted to take advantage of the 
RS-232 output on the back. Un- 



used to connect their recorder 
to these units. 

No, your TRS-80 programs 
won't load into this machine, the 
speed is wrong and the syntax is 
different. Machine language is 
worse, since this unit uses a 
6809 processor, which means 
the machine code is completely 
different for this machine. Some 



4 7 wound up butchering another DIN plug 

to get what I needed. The next problem 

was that it didn't work. " 



fortunately, Tandy uses a four 
pin DIN plug which was not 
available in any Tandy store. I 
wound up butchering another 
DIN plug to get what I needed. 
The next problem was that it 
didn't work. I finally realized that 
RD and CD were reversed on the 
RS-232 pinout in the operator's 
manual. Beware of this if you 
plan to connect a serial printer 
to the port— I don't know if it is a 
hardware bug, instruction man- 
ual bug or if it is unique to my 
unit. 

How it Feels 

The keyboard does not have 
the feel or look of that of the 
Model I and II, but it still per- 
forms nicely. Each key has a 
slight amount of tactile feed- 
back and is set in regular type- 
writer format. A touch-typist will 
have no trouble with this key- 
board. The Model I keybounce 
problem does not exist on this 
unit. 

I had trouble connecting my 
recorder to the machine. I tried 
to use the cable that came with 
the Model I machine, but the 
outer shell is too thick. This unit 
requires the five pin DIN plugs 
that have the thin metal shield 
around the outside. I bought a 
set at Radio Shack, and this 
wouldn't fit either! Taking a 
closer look, I noticed that the 
plastic molding on this plug was 
getting in the way. I finally 
shaved back the plastic on the 
cable plug. I wonder what Tandy 



enterprising person will have to 
come up with a translation pro- 
gram (cross-compiler). 

About Sound 

You can play music or sound 
tones anywhere in a program us- 
ing the Sound command. After 
typing in Sound, you need to tell 
the computer what frequency 
and what duration you wish to 
use. SOUND 89,8 represents 
about one quarter note of mid- 
dle C. 

The Color Basic machine al- 
lows you only one voice (one 
note at a time). I like to put 
sound at user entry points, at er- 
ror points and at the end of pro- 
grams. This allows you to con- 
centrate on something else 
while the computer is running, 
knowing the tone will indicate 
when the computer is ready for 
input. 

I think this computer is worth 
the price. It has moderate ex- 
pandability and a decent Basic 
language. It can be used as a 
game computer, since the ROM 
paks seize control and allow an 
inexperienced user to play 
games. Buy another pak and a 
modem and you can communi- 
cate over the phone lines to The 
Source or CompuServe for big 
computer power. This unit is a 
good compromise for those of 
you who have been wanting to 
get into the microcomputing 
area but didn't have the big 
dollars or the family go-ahead. 
Sell them on the games— you 
know it will do a lot more. ■ 
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ARE YOU 
PUZZLED BY THE 
USED COMPUTER 

MARKET? 

Our unique, nationwide listing 

service puts buyers and sellers 

of used micro-equipment 

together. 

Listings from $300 — $25,000 

(Apples, TRS 80, IBM 5100s included) 

YOU PAY ONLY 
FOR RESULTS! 

we also offer for $6.75 the 
USED MICRO-TRENDS REPORT 

Data on-. 

Manufacturers • Models • Prices 

Trends • Maintenance 

call toll-free 

USED COMPUTER 

EXCHANGE „«. 
(800) 327-9191 ext. 61 



Professional sotlwar 



TRS-80® MODEL II 



BASIC CROSS REFERENCE 



NOW AVAILABLE' 



• UNO WHtRt NAMES ARE USED FAST! 

• CAN YOU DELETE THAT LINE' FIND OUT 1 

• DO YOU HAVE DEAD CODINC 

• WANT A NICE PROGRAM LISTING WITH 
DA1E & TIME IN HEADING 



• SAVE HOURS' 

• PARALLEL/SERIAL PRINTERS 

• SEVERAL OPTIONS 
>b,B LPI VARIABLE 

LINE WIDTH & PAGE DEPTH 



$59.99 



+ POSTAGE & 
HANDLING 



DOCUMENTATION ONLY J1000 
DEDUCTIBLE ON PURCHASE 



DISK SORT 

• MENU DRIVEN i 

• RANDOM EILES 

• CHAINS TO SYSTEM 
OR BASIC PROGRAMS 

BASIC COMPILER 



• YOU DON T HAVE TO BE A PROGRAMMER TO USE IT' 

• EASY TO USE »IASY TO INSERT INTO 

• FAST lOBSTRtAMFOR $69.99 



+ POSTAGE & 
HANDLING 



• SPECS SAVED 
ON DISK 



NON-SI OP RUNNING' 



DOCUMENTATION ONLY J1000 
DEDUCTIBLE ON PURCHASE 



• EASY TO USE 

• AUGMENTED WITH OUR 
DOCUMENTATION 



• WRITTEN BY MICROSOFT 

$350.00 



+ POSTAGE* 
HANDLING 



• TRSDOS' BASIC COMPATIBLE ' 

• EASTER THAN BASIC BY UP TO 
30 TIMES 

TRS-80* & TRSDOS* ARE REGISTERED GOODLYDDON DATA SYSTEMS ^218 

TRADEMARKS OF TANDY CORP 5486 RIVERSIDE DR., CHINO, CA. 91710 MASTER CHARGE or VISA accepted. 



THE BOOKKEEPERS 



FOR INFO CALL (603)-447-2745 



Full Charge Bookkeeper-48K, 3 DRIVE, w/ALPHA $129.95 
Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 
Cheap Bookkeeper— 32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal— G/L Systems 



Ann Rose, our Accounts Receivable Clerk — 
48K, 2 DRIVE & PRINTER 



$150.00 



STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST., CONWAY, NH, 03818 



COMPUTE COMPUTED COMPUTING COMPUTES COMPUTER COMPUTERS COMRADE COMRADES COMTE COMTES CON CONNED CONNING CONS CONATION CONA- 
TIONS CONATIVE CONATUS CONCAVE CONCAVED CONCAVING CONCAVES CONCEAL CONCEALED CONCEALING CONCEALS CONCEDE CONCEDED CONCEDING 
CONCEDES CONCEDED CONCEDER CONCEDERS CONCEIT CONCEITED CONCEITING CONCEITS CONCEIVE CONCEIVED CONCEIVING CONCEIVES CONCENT CON- 

wSSSoSSi^^A ME COMPUTER PRESENTS WORD GRINDER A DATA BASE CONTAINING WUiy^^oSSSSSoS. 

CLUDE CONCLUDED CONCLU ^^ ^^ TE CONCRETING CONCRETES 

CONCUR CONCURRED CONCL A ^\ ^\ ^\ ^\ % A M ^^k ^^ ^^^^ I NING CONDEMNS CONDENSE 

CONDENSED CONDENSING C( Wl 1 I II II I ««!#■ I ^J I 1^^. I M CONDOMS CONDONE CON- 

DONED CONDONING CONDON fll I II I II I If If %_# iB L#«7j CESCONDUCERCONDUCERS 

CONDUCT CONDUCTED CONC ^^ ^^ ■ %^ ^W %^ W W ^t^ ■ ■ WKW ^^ ■ NES CONELRAD CONELRADS 

CONENOSE CONENOSES CON w IFABS CONFECT CONFECTED 

CONFECTS CONFECTING CONFER CONFERRED CONFERRING CONFERS CONFEREE CONFEREES CONFERVA CONFERVAE CONFERVAS CONFESS CONFESSED CON- 
FESSING CONFESSES CONFETTO CONFETTI CONFIDE CONFIDED CONFIDING CONFIDES CONFIDER CONFIDERS CONFINE CONFINED CONFINING CONFINES CON- 



WORD GRINDER is a new and unique product. Over 700,000 
bytes, this data base has applications in many aspects of data 
processing. WORD GRINDER is intended to be the definitive data 
base of words for computers. 

WORD GRINDER is over 80,000 English words in alphabetical 
order with a space delimiting each word. The TRS-80t and 
APPLE versions include a BASIC program for displaying and 
editing the data files using random access. 

Applications are limited only by a Programmer's imagination. Put 
a subset of WORD GRINDER on your system. Write programs for: 

• Word processing spell correction 

• Auto-poetry • Anagrams 

• Word games • Crossword puzzles 

• Computerized palindromes: 
("Naomi, sex at noon taxes," I moan.) 

These words have been proofread once by computer and twice by 
humans. The editor allows you to add your own words, delete 
words, or make modifications. A software license is available for 
selling your programs containing WORD GRINDER or a subset of 
WORD GRINDER. Quantity dealer prices available. 

^193 



WORD GRINDER IS AVAILABLE FOR: 

TRS - 80 MODEL I - Contained on nine 35 track 5%" floppy 

disks including system disk with editor $259.00 

Or seven 40 track floppy disks 249.00 

TRS - 80 MODEL II — Contained on two double density 8" data 
floppy disks with editor 295.00 

TRS - 80 MODEL III - Contained on five 40 track double density 
5 1 A" floppy disks including system disk and editor ... 249.00 

APPLE II - Contained on six 35 track 5 V< " 3.3 DOS system flop- 
py disks including Applesoft editor 249.00 

Or seven 3.2 DOS 51ft" floppies 254.00 

CP/ M* — Contained on 3 single density 8" data floppy disks . . 

295.00 

RT-11/HT-11 — Contained on 3 single density 8" data floppy 
disks 295.00 

DEC/ ANSI — Contained on standard nine track tape produced on 
a PDP-11 295.00 




Make checks payable to JOE COMPUTER - Phone orders and information: (213) 992-0514 

Send to: JOE COMPUTER, 22713 Ventura Blvd., Suite F, Woodland Hills, CA 91364 

California residents add 6% sales tax. 

* CP/M is a trademark of Digital Research f TRS-80 is a trademark of Tandy Corp. 




VISA 



vSee List ot Advertisers on page 322 
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APPLICATION 



Handle some text. 



Take a Letter 



Arthur T. Mullin, Jr. 
2390 Tyler 
Beaumont, TX 77703 



This program is dedicated to 
the task of writing business 
letters. The text is input via line 
input, and any editing must be 
performed in real time, using the 
backspace key. While not a so- 
phisticated program, it does 
have some features which 



should be of interest to persons 
considering a text handling rou- 
tine. 

The program was written on a 
Level II TRS-80 which drives an 
Anadex DP8000 printer. The us- 
er is prompted to enter his name 
and address and the name and 
address of the business being 
written to. It automatically starts 
off with "Dear Sir," and from 
there on the special effects 
come into play. 

The program features key- 



board inversion, to make it con- 
form to the familiar typewriter 
standard of upper/lowercase 
method of input. The exciting 
feature is that it automatically 
capitalizes those characters 
which obviously need capitaliza- 
tion, such as the personal pro- 
noun I, letters which occur after 
the termination of a sentence, 
and characters at the beginning 
of a paragraph. 

It is not flawless: If the letter I 
occurs at the end of a line, it 



must be followed by one space 
in order for the program to de- 
tect it as a "stand alone charac- 
ter." Except for this one idiosyn- 
crasy, the program can be a via- 
ble tool. 

Except for capitalizations in 
the middle of sentences, it is not 
necessary to use the shift key. 

I believe the user will find ade- 
quate REM statements in the 
Program Listing that will assist 
in any efforts to understand or 
modify the program. ■ 



RESERVE STRING SPACE 
' ALLOW UP TO 100 LINES OF TEXT 



10 CLEAR5000: ' ' 

20 DIMAS(10B):' 

30 CLS 

40 LINEINPUT'YOUR NAME ";ES:' * ACCEPT ADDRESSOR INFORMATION 

50 LINEINPUT'YOUR STREET ADDRESS ";A$ 

60 LINEINPUT'YOUR CITY, STATE, ZIP ";CS 

70 LINEINPUT'THE DATE ";DS 

80 LPRINTSTRING$(45," ") ; ES : LPRINT 

90 LPRINTSTRINGS(45," "); AS : LPRINT 

100 LPRINTSTRINGSI45," ") ;CS : LPRINT 

110 LPRINTSTRINGS(45," ") ;DS: LPRINT: LPRINT: LPRINT: LPRINT 

120 LINEINPUT"BUSINESS NAME ";NS:' * ACCEPT ADDRESSEE INFORMATIO 

N 

130 LINEINPUT-STREET ADDRESS ";AS 

140 LINEINPUT'CITY, STATE, ADDRESS ";CS 

150 LPRINTSTRINGS(10," "); N$ : LPRINT 

160 LPRINTSTRING$(10,' 

170 LPRINTSTRINGS(10," 

180 LPRINTSTRINGSI10,' 

190 CLS 

200 P=P+1:' * NOTE LINE NUMBER 

210 PRINT8X," "; 

220 PRINTSTRINGS160,"-") ; : ' * PROVIDE VIDEO REFERENCE FOR LINE L 

ENGTH 

230 PRINTgX," ";:X=X+64:IFX>960THENCLS:X=0:GOTO220: ' * CLEAR A F 

ULL SCREEN 

240 LINEINPUTAS(P) : ' * TEXT INPUT 

250 IFAS(P) ="|"THENP=P-1:GOTO260ELSE200: ■ * ENTER UP ARROW TO PR 

INT TEXT 

260 F0RN=1T0P:' * LOOK AT EACH LINE (AS(P)) 

270 CS=RIGHTS(AS(N-1) ,1) : ' * LOOK AT LAST CHARACTER OF PREVIOUS 

LINE 



") ;A$:LPRINT 

") ;CS: LPRINT: LPRINT 

");"Dear Sir : ": LPRINT: LPRINT 



280 IFCS'"."ORCS="?"ORCS="l"ORAS(N-l)=""THENZ=l: ' * CHECK PREVIO 

US LINE FOR TERMINATION 

290 Y=l:' * THIS IS THE FIRST TIME THROUGH 

300 FORX=lTOLEN(AS(N)) : ' * LOOK AT EACH CHARACTER IN STRING 

310 A=ASC(MIDS(AS(N) ,X,1)) : ' * NOTE NUMERICAL VALUE OF EACH CHAR 

ACTER 

320 AS=MIDS(AS(N) ,X,1) : ' * NOTE EACH CHARACTER 

330 IFZ=1ANDX=1THENZ=0:GOTO390: ' * IF THIS IS THE FIRST CHARACTE 

R AND IF THE PREVIOUS STRING WAS TERMINATED, SKIP INVERSION 

340 IFY=1ANDA$<>" "ANDLEFTS (AS (N) , 2) =" "THENY=0 :GOTO390: ' * IF 

THIS IS THE FIRST TIME THROUGH AND TWO (OR MORE) SPACES START TH 

E STRING, THEN THIS IS A PARAGRAPH: SKIP INVERSION 

350 NS=RIGHTS(BS,2) :IFNS=". "ORN$«"l "ORN$="? "THEN390:' * IF A 

SENTENCE HAS BEEN TERMINATED, SKIP INVERSION 

360 IS=MIDS(AS(N) ,X+1,1) : ' * LOOK AHEAD ONE CHARACTER 

370 IFAS="I"THENIFIS="'"ORIS=" "ORI S="?"ORI $=" 1 "ORI S=" . "ORI $=" , " 

ORIS=":"THEN390: ' * IF CHARACTER "I" DEDUCED TO BE PERSONAL PRON 

OUN, SKIP INVERSION 

3 80 IFA>=65ANDA<=90THENA$=CHRS(A+32)ELSEIFA>=97ANDA<=122THENAS=C 

HRS(A-32):' * INVERT KEYBOARD 

390 BS=BS+AS:' * ACCUMULATE LAUNDERED LINE 

400 NEXTX:' * GO BACK FOR NEXT CHARACTER IN THIS STRING 

410 LPRINTSTRINGS(10," ");BS:' * SEND LAUNDERED LINE TO PRINTER 

420 LPRINT: 1 * DOUBLE SPACE 

430 BS="":' * CLEAR ACCUMULATION STRING 

440 NEXTN: ' * GO BACK FOR NEXT STRING 

450 LPRINT:LPRINT:LPRINT 

460 LPRINTSTRINGSI40," ");"Your's truly" 

4/0 LPRINT:LPRINT: ' * PROVIDE SPACE FOR SIGNATURE 

480 LPRINTSTRINGS(40," ");ES:' * PRINT ADDRESSOR'S NAME 

490 RUN 



Program Listing 
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GO BOLDLY . . . 

Where No TRS-80* Program Has Gone Before! 




DANGER IN ORBIT 

DATE: 28.02.2047 

LOCATION: 270 million miles from 

Terra 
MISSION: Maintaining Terra's Space 

Lanes 

Briefing will follow; 

1.1 Your mission is to destroy any 
asteroids in your sector and to prevent 
alien spacecraft from infiltrating the Ter- 
ran Defense Network. 

1.2 Your ship is armed with an anti-matter 
cannon. You can shoot large asteroids, 
but this turns them into many smaller 
asteroids, each capable of destroying your 
ship. 

1.3 In addition, alien ships can make in- 



stantaneous hyperspace jumps into your 
area and start Tiring on your ship. 
1.4 You'll need lightning reflexes and 
nerves of steel to survive Danger In Orbit. 
We have no use for non-survivors! 

Danger In Orbit, a real-time, machine- 
language game, features variable levels of 
difficulty, superb high-speed graphics, 
sound effects and automatic score keep- 
ing. (Tl or T2) 



Order No. 0237R 
$14.95 Tape. 
Order No. 0247RD 
$19.95 Disk. 



BALL TURRET 
GUNNER 

For years the Petro Resource Con- 
glomerate has attacked our photon collec- 
tion stations and strangled our deep-space 
trade routes. The PRC Exxonerator Class 
light fighters (code name: Gnat) have 
been their main weapon. Now you can 
strike back, by joining the Ball Turret 
Gunner Service. 

Imagine yourself at the control console 
of an LW-1417 Stratoblazer (Type B 
Strategic Laser Weapon). Your Hindsight 
Director informs you that a Gnat fighter 
is coming in for an attack. You pivot your 
gigawatt laser turret until you can see the 
target on your monitor. The Range Indi- 
cator shows him coming in fast. The 
Targeting Computer studies his course 
and speed as your finger tenses over the 
firing key. You know you'll have only a 
fraction of a second in which to react . The 
Gnat fighter's evasive maneuvers cause 
him to dance in your sights. Suddenly, 




you see the FIRE Command and you 
react instinctively. Your laser beam lashes 
out and reduces the Gnat to an expanding 
ball of ionized gas. Mission accom- 
plished! 

Ball Turret Gunner, with your choice 
of multiple levels of difficulty, optional 
sound effects and superb graphics, is 
more than just a game. It's an adventure. 
Experience it! (Tl) 

Order No. 0051R $9.95. 





COSMIC PATROL 

WARNING: PLAYERS OF THIS 
GAME SHOULD BE PREPARED FOR 
A STATE OF REALISM HITHERTO 

UNAVAILABLE ON THE TRS-80 

Skilled players soon master many diffi- 
cult computer games, but COSMIC 
PATROL is in a world all its own. The 
challenge intensifies! Supporting graphics 
and sound (optional) make each en- 
counter an exciting new experience. It all 
adds up to a Super 3-S package. . skill, 
sight and sound. 

Scenario: The Cosmic Patrol program 
puts you in the command chair of a small 
interstellar patrol craft. Your mission is to 
defend Terran space and prey on the Que- 
lon supply ships which carry essential 
parts and lubricants for that implacably 
hostile robotic force. The drone freighters 



are fairly easy pickings for the accom- 
plished starship pilot, but beware of the 
I-Fighter escorts. They're armed, fast and 
piloted by intelligent robots linked to bat- 
tle computers. They never miss. 

The Cosmic Patrol program is not just 
another search and destroy game. With its 
fast, real-time action, impressive sound 
option and superb graphics, this machine- 
language program is the best of its genre. 

Don't keep putting quarter after quar- 
ter into arcade games or spending big 
bucks for video game cartridges. Get 
Cosmic Patrol from Instant Software — 
and get the best for less! (Tl or T2) 

Order No. 0223R 
$14.95 Tape. 
Order No. 0224RD 
$19.95 Disk. 



ALIEN ATTACK 
FORCE 

The INVADERS are coming! Earth's 
defenses are dead except for your Laser 
base. Your assignment is to destroy the 
approaching INVADERS before they de- 
stroy Earth. Before Earth's sensors failed, 
they detected 550 armed invaders in 
space, speeding toward us in 10 attack 
formations of 55 in each group. The sen- 
sors detected four different types of at- 
tack craft: Large, Medium, Small, and 
short profile craft which is the most dif- 
ficult to destroy. If you cannot stop these 

space attackers they will stop Earth 

for good. (Tl) 

Order No. 0240R $9.95. 



Instant Software 



TO ORDER 

See Your Local Instant 
Software Dealer or Call 
ToU-Free 1-800-258-5473 

(Orders Only) 

In NH dial 1-403-924-7296 



PETERBOROUGH, N.H. 03458 



M (Tl). TRS-80 Model 1, 
Level II, 16K RAM. 

(T2) = TRS-80 Model I, 
Level II I6K, expansion 
imerface I6K+1 disk 



^530 



•sSee List ol Advertisers on page 322 
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TECHNIQUE 



Try this method of programming. 



Three's Not a Crowd 



David W. Mawdsley 
8 New Light Dr. 
Danbury, CT 06810 



When I write a computer 
program, I now do two 
things I never did before. First, I 
always keep two other utility 
programs in memory to help me 
when needed. Second, with a 
minimum of paper scratch 
notes, I compose most of the 
program while I'm seated at the 
computer keyboard. 

This gives me full use of the 
edit features of Level II Basic, 
the protected memory for sys- 
tem programs, the regular work 
spaces for a Basic program, and 
the efficiency of a line printer. 
My printer is also required to 
simulate a regular computer ter- 
minal upon command! 

Program Loading 

This is the procedure I use 
when programming on my 16K 
microcomputer system: 

• To the memory size ques- 



tion, I respond 31792. 

• After I type System, I put 
Radio Shack's RENUM line re- 
numbering program into my 
tape recorder and type RENUM. 
When the program has finished 
loading, I push the Break key. 
Designate this System program 
as program A, which resides at 
memory locations 31820 through 
32767. 

• Next I put my videoscreen 
copier program into the tape re- 
corder, followed by a CLOAD 
(Program Listing 1). After this 
program loads, I type Run. 
When it has finished, this Basic 
program has loaded a second 
System program into the pro- 
tected memory locations 31793 
through 31819. 1 refer to this sys- 
tem program as program B. 
(Listing 2 is a detailed assem- 
bled Z-80 list of program B. The 



READY 

>SYSTEM 

.? RENUM 

.? 

READY 

>CLOAD 

READY 

>RUN 

POWER DOWN IF MEMORY SIZE 

WASN'T SET < = 31792. OKAY ? YES 

READY 

>CLOAD "C" 

READY 



Fig. 1. 



decimal list of its object code 
appears in lines 60 and 65 of 
Listing 1.) 

• Finally, I load my project 
tape into the tape recorder and 
again CLOAD. (If no lines have 
been coded yet I type New.) I 
call this Basic program C. It re- 
sides—or will reside— in the 



usual memory locations start- 
ing at 17129. 

Program A helps me format 
programs by neatly renumber- 
ing the list of program C. Pro- 
gram B keeps a printed record of 
any runs, lists, trials and errors 
of program C which I feel should 
be saved. Program B copies the 



10 


1 ** VIDEO TO LINE PRINTER USR (0) -CALLED PROGRAM ** 




BY 


15 


' DAVID W. MAWDSLEY, 8 NEW LIGHT DR., DANBURY, CT 06 




810 


20 


PRINT "POWER DOWN IF MEMORY SIZE WASN'T SET < = 3179 

2 ."; 
INPUT " OKAY ";AS 


25 


30 


1 ** SET THE USR WINDOW. ** 


35 


POKE 16526,49: POKE 16527,124 


40 


' ** UNSTICK THE DATA POINTER. ** 


45 


POKE 16553,255 


50 


■ ** LOAD THE SYSTEM PROGRAM. ** 


55 


FOR I = 31793 TO 31819: READ X: POKE I,X: NEXT I 


60 


DATA 1,64,13,33,0,60,126,205,59,0,13,40,3,35 


65 


DATA 24,246,62,13,205,59,0,14,64,5,248,24,242 


70 


END 




Program Listing 1. 



7C31 


88188 


ORG 


7C31H 


ORIGIN 317 93 DECIMAL 


7C31 B148BD 


88118 


LD 


BC.BD48H 


!'. ■ 1 3 , C-64 DECIMAL 


7C34 21BB3C 


BB128 


LD 


HL.3CBBH 


VIDEO ORGIN 


7C37 7E 


8813B 


LD 


A, (HL) 


LOAD CHAR. OF VIDEO LOC. 


7C3B CD3BBB 


88148 


CALL 


BB3BH 


SEND TO LINE PRINTER 


7C3B BD 


8B15B 


DEC 


c 


DEC CHAR. COUNT OF LINE 


7C3C 2883 


88168 


JR 


z,s*s 


GO IF (E.O.L. - VIDEO) 


7C3E 23 


8B17B 


INC 


HL 


BUMP VIDEO LOCATION 


7C3F 18P6 


BB18B 


JR 


S-8 


GET AND LOAD NEXT CHAR. 


7C41 3EBD 


88198 


LD 


A.8DH 


CARRIAGE RET. IN A REG. 


7C43 CD3BB8 


88288 


CALL 


883BH 


SEND TO LINE PRINTER 


7C46 BE4B 


88218 


LD 


C.4BH 


RESTART LINE CHAR. COUNT 


7C48 85 


88228 


DEC 


B 


NEXT LINE OF VIDEO 


7C49 F8 


88238 


RET 


M 


RETURN THRU BASIC WINDOW 


7C4A 18F2 


88248 


JR 


S-12 


GET NEXT VIDEO LOC. 


7C31 


88258 


END 


7C31H 




88888 TOTAL 


ERRORS 












Program Listing 2. 
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top 14 lines of the video screen 
onto the line printer. Experimen- 
tation with program B will show 
why I coded it to skip the last 
two lines of the video screen. 

Operation of the Programs 

Runs of program A and B can 
be made without interfering with 
program C. I run program A by 
typing System followed by 
/31820 after the prompt appears. 
Typing X = USR(O) runs program 
B. (Fig. 1 shows a run of program 
B after I loaded the three pro- 
grams A, B and C.) 

When program A or B finish- 
es, control is fully returned to 
the keyboard. Unless program C 
is complicated by its use of ex- 
tra POKEd memory locations or 
by its own System program, it 
will continue to list and operate 
without disturbing programs A 
and B. 

My decision to employ the 
USR(O) command rather than a 
System command to run pro- 
gram B was motivated by two 
concerns. First, the command 
X=USR(0) causes less upward 
line scrolling on the video 
screen than the System com- 
mand. Second, the two types of 
command formats help me re- 
member the correct command 
to start each program. 



Program C and 
Protected Memory 

If program C is complicated 
by a System program it calls or 
loads, there are two program- 
ming options I can use. First, if 
program C requires memory 
where program A or B resides, I 
let it use the portion of memory 
it requires, keeping track of the 
locations used, to decide if ei- 
ther program A or B can still be 
used. Second, if I haven't yet 
worked out the object code of 
the System program operated 
by program C, I plan to code it so 
the System program will reside 
and operate below memory lo- 
cation 7C31 hex (31793 dec- 
imal)— so program B is still use- 
able. 

Under these circumstances, 
when I turn the computer sys- 
tem on I set the memory size to 
one less than the origin of the 



System program operated by 
program C. This ensures that I 
can still use programs A and B. 
(Unbelievably, four or more pro- 
grams are now neighbors in the 
computer's memory. Consider 
the possibilities!) 

USR Calls 

Another important concern 
must be addressed when pro- 
gram C makes USR calls to its 
own System programs. The USR 
call window, which is set and 
used by program C when it runs 
its own System programs, must 
be reset if I choose to run pro- 
gram B. Carefully enter one line: 
POKE 16526,49 : POKE 16527,124 
:X = USR(O). This multiple com- 
mand will reset the USR window 
for 7C31 hex and then correctly 
call program B. 



Relocating Program B 

I sometimes use programs B 
and C without the line renumber- 
ing program A. Since program B 
is only 27 bytes long, I first set 
the memory size to 32740— or 
less if I need to protect memory 
for another system program. 
Next I CLOAD the program 
which loads program B. Before 
running it, however, I change 
lines 35 and 55 to read: 

35 POKE 16526,229 : POKE 16527,127 
55 FOR I = 32741 TO 32767 : READ 
X : POKE I.X : NEXT I 

When the revised program is 
run, it loads the relocatable ob- 
ject code of program B into 
memory starting at hex location 
7FE5 (32741 decimal) after it has 
set the USR window to 7FE5 
hex. Typing X = USR(O) calls 
program B. If program C has set 
and used the USR window since 
the last time I ran program B, the 
one-line command I use to run 
program B is: POKE 16526,229 : 
POKE 16527,127 : X = USR(O). 

If you try my method of pro- 
gramming, you will find it a 
natural way to do your work. The 
advanced versions of Basic 
available on the modern micro- 
computer systems invite a vari- 
ety of innovative programming 
techniques for programmers to 
match to their own writing 
styles. ■ 



save more than 50% 




FOB Huston 
Virginia 

MasterCard. VISA 
Check. MO. PO. 



NEW! $1 995 USED in excellent condition 
RO version only RO $995; KSR $1 495 

Rugged and well-constructed; available in KSR and RO versions; 
feature 96 ASCII (upper & lower case) plus 27 graphics characters in a 
5X7 (optionally 5X9) dot matrix. Prints bidirectionally (logic seeking) at 
180 char/sec on std pin feed paper (up to SIX part) in red and black. 
Tractors are adjustable from 3 to 15 inches; split platen versions also 
available. Electronic top of form/forms length control and six select- 
able character print densities (10, 12, and 17 cpi plus elongated in 
each). 1K buffer and 110-9600 Baud RS-232C interface is standard; 
additional buffer may be added and a Centronics-compatible parallel 
interface is available. Free-standing pedestal unit. 




Digital Systems Engineering 



12503 King's Lake Drive. Reston VA 22091 (703) 620-2994 

ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% below list; also, used printers of several makes. Call for information! 
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APPLICATION 



Here comes the sun. Track its position with your 80. 



Solar Altitude Plotter 



Edward H. Rea III 
633 Dunedin Rd. U34B 
Portsmouth, VA 23701 



Graphic representation of 
solar altitude is a Basic 
language program written for 
the Level II TRS-80. The program 
occupies 2595 bytes of RAM, so 
it will easily run with only 4K. 
Single date run-time is on the or- 
der of 130 seconds. 

The program calculates the 
altitude of the sun above the ho- 
rizon for any latitude and longi- 
tude on any date from 1900 to 
2099 A.D. It covers a period of 24 
hours, with positions displayed 
at intervals of one hour of Uni- 
versal time. 

The user is required to supply 
only the latitude and longitude 
of the site as decimal numbers 
(no minutes or seconds, please), 
and the Gregorian calendar date 
in numerical format as month/ 
day/year (i.e., 12/25/1980). 

While the mathematical meth- 
od used to predict solar longi- 



tude is low precision, it usually 
yields accurate results within 
± 1 minute of arc. 

The method used to determine 
solar coordinates outlined here 
is described in the Almanac for 
Computers 1980, published by 
the Nautical Almanac Office. 

Basically, time calculations 
generating the Julian date, 
Greenwich mean, sidereal time, 
and Greenwich as well as local 
hour angles are needed along 
with a bit of trigonometric figur- 
ing to produce the solar altitude. 
The algorithm by which the solar 
coordinates are determined is 
usable (though with decreasing 
accuracy) over the next several 
centuries, while the relationship 
used to generate the Julian date 
will remain accurate until 2099 
A.D. 

The Julian calendar, which 
was introduced in Rome in 46 
B.C., established the 12-month, 
365-day year, with each fourth 
year having 366 days. The Gre- 
gorian calendar is the revised 
Julian calendar, the only differ- 
ence being the restriction that 
only those years with dates di- 
visible by 400 should be leap 



years. Greenwich is located in 
England where the meridian of 
Greenwich is used as the prime 
basis of standard time through- 
out the world. 

The Julian date is a count of 
days and fractions of days be- 
ginning at Greenwich Mean 
Noon, January 1, 4713 B.C. In 
the program, the Julian date for 
zero hours Universal Time (or 
Greenwich Time) is calculated 
from the Gregorian calendar 
month/day/year format with the 
formula: 



JD = 367-K - INT(7-(K + INT((M + 9)/12))/4) 
+ INT(275« M/9) + I + 1721013.5 - 0.5'SGN 
(100-K + M- 190002.5) + 0.5 



JD is the Julian date at zero 
hours, M is the numerical month 
(1-12), I is the calendar day (1-31) 
and K is the year (1900-2099). 
Julian date at zero hours Univer- 
sal time is usually abbreviated 
JD0, but since this is not an ac- 
ceptable variable name in Level 
II Basic, I have shortened the 
form. I have distinguished the 
Julian date at zero hours Univer- 
sal time (JD), from the Julian 
date at any specific time of day, 



the latter of which I have elected 
to call JT in the variable assign- 
ment. Simply, JT = JD + UT/24 
where UT is Universal time in the 
range 0-24 hours. I have de- 
fined both JD and JT as double 
numbers, since current Julian 
dates are quite large and force 
Level II single number represen- 
tation into exponential notation 
and truncation. 

Once the Julian date has 
been established, time correla- 
tion factor T is computed from 

T = (JT-2415020)/36525. T rep- 
resents Julian centuries, and 
each of 36525 Julian days, that 
have elapsed since 1900. 

You can then compute the 
true geocentric longitude of the 
sun (LS) from the mean anomaly 
of the sun (MS), and the motion 
in the lunar orbit (L) from the re- 
lationships: 

MS = 358.476 + 35999.05- T 
L = 279.691 +36000.769-T 
LS = L + (1.919 -0.0048-T)'SIN(MS) + 0.02' 
SIN(2MS) 

The units of each calculation are 
degrees and decimal parts of a 
degree, and the magnitude of LS 
can be reduced to the range 
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0-360 degrees by simple modulo 
arithmetic. 

If one assumes the latitude of 
the sun to be essentially zero, 
the right ascension (RA) and the 
declination of the sun (DE) can 
be calculated as: 

TAN(RA) = COS(EP)-TAN(LS) 
SIN(DE) = SIN(EP)-SIN(LS) 

EP is the obliquity of the ecliptic 
computed from EP = 32.452 - 
0.013*T and again the units are 
degrees. Because Level II Basic 
performs trigonometric func- 
tions in units of radian measure, 
it is necessary to convert de- 
grees-to-radians using trigo- 
nometry which is in the program 
KC: (KC = 57.29578). 

In using the arc tangent func- 
tion, it is necessary to provide 
quadrantial correction as the 
ATN(TAN(RA)) operation pro- 
vides correct values only over 
the range -90 to +90 degrees. 
Correcting for quadrants is sim- 
plified by the fact that the right 
ascension of the sun (RA) is al- 
ways in the same quadrant as 



Greenwich sidereal time (GA) 
may be computed from Green- 
wich mean sidereal time (GM). 
The mean longitude of the as- 
cending lunar orbit (OM), and 
the equation of the equinoxes 
(E) are figured by: 

OM = 372.1133-0.0529539"(JT- 

2433282.5) 
E = -0.00029'SIN(OM) 
QAaQM + E 

with Greenwich apparent side- 
real time (GA) generated in 
hours. The local hour angle (LH) 
is then: LH = 15*(GA - RA/15) - 
LO. RA is the sun's right ascen- 
sion and LO is the longitude of 
the observer, both in degrees. 

Solar altitude (AL) can be 
computed trigonometically as: 
SIN(AL) = SIN(LA)*SIN(DE) + 
COS(LA)*COS(DE)*COS(LH). LA 
is the latitude of the observer in 
degrees. The sun's altitude (AL) 
is then determined by use of the 
arc sine function, or in the case 
of Level II Basic: AL = ATN(SA/ 
SQR( - 1 *SA*SA + 1)). SA is the 
sine of the sun's altitude (SA = 
SIN(AL)). 



"Greenwich sidereal time (GA) 

may be computed from 

Greenwich mean sidereal time (GM). " 



the sun's true longitude. The 
arc sine function is derived from 
ATN to produce the sun's decli- 
nation (DE), but no correction of 
quadrants is required, as solar 
declination must be in the -90 
to + 90 degree range. 

In order to figure the ascen- 
sion and declination for local al- 
titudes, sidereal time relation- 
ships and hour angles must be 
used. Greenwhich mean sidereal 
time (GM) may be computed 

from the formula: GM = 
6.58852667 + 0.0657098232*(JD 
- 2433282.5) + 1.0027379093* 
UT. 

JD is the Julian date at zero 
hours Universal time and UT is 
the Universal time in hours and 
decimal parts of an hour. The 
hour is the unit of GM and its nu- 
merical range should be 0-24. 



The program uses this meth- 
od to perform calculations for 
the desired date in the range 
0-24 hours universal time in in- 
crements of one hour within a 
For... Next loop configuration 
A single altitude calculation is 
generated for each loop opera- 
tion. If the calculated altitude is 
greater than the minimum alti- 
tude required for visibility, pro- 
gram execution goes to the dis- 
play subroutine and the altitude 
is plotted using the Set instruc- 
tion. 

The graphic display routine 
plots altitude on the y axis and 
universal time on the x axis. 
Since the range of Y in the 
Set(X.Y) format is to 47, scaling 
by division is necessary to com- 
press a to 90 degree range of 
altitude onto the screen. Scale 



division on two would provide 
vertical resolution, but as a y 
range of to 45 would then be 
needed for the plot, no print 
lines would remain for axis mar- 
gin and scaling notation. 

I selected a scaling divisor of 
three, leaving adequate room 
below the x axis at Set(X,30) to 
facilitate printed identification 
of graphic dimension. 

X axis scaling is a multiplica- 
tive process. Since the range of 
universal time to be displayed is 
to 24 hours, a y axis index of 24 



and an x axis scaling multiplier 
of four gives an offset but wide 
display. 

Alternative display techniques 
might include scaling y at a 1/4 
or 1/6 division ratio and display- 
ing ay axis range of -90 to +90 
degrees altitude. If this approach 
is taken, the conditional test for 
visible altitude at line 420 should 
be removed and the axis index- 
ing and calibration (lines 170- 
196) are modified or omitted. I 
have run the program with sever- 
al different display subroutines 



50 CLS 
60 PRINT" 


................................... 


61 PRINT" 




62 PRINT" 


* GRAPHIC REPRESENTATION 


63 PRINT" 


* OF 


64 PRINT" 


* SOLAR ALTITUDE 


65 PRINT" 




66 PRINT" 


................................... 



OBTAIN LATITUDE AND LONGITUDE VALUES 



67 PRINT 

100 REM** 

105 DEFDBL J 

110 PRINT" > INPUT LATITUDE AND LONGITUDE IN DEGREES" ;: INPUT LA, 

LO 

120 KC=57. 29578 : SL=SIN(LA/KC) : CL=COS(LA/KC) 

130 REM***** CALCULATE JULIAN DATE 

135 PRINT 

140 PRINT" > INPUT DESIRED DAY AS MONTH , DAY , YEAR" ;: INPUT M,I,K 

150 JD=367*K-INT(7*(K+INT((M+9)/12))/4)+INT(275*M/9) +1+1721013.5 

-0.5*SGN(100*K+M-190002.5)+0.5 

160 PRINT" > JULIAN DATE IS";JD 

165 CLS 

170 FOR S«0 TO 51 : PRINTg650+S, "-" ; : NEXT S 

171 FOR S=125 TO 701 STEP 64 : PRINTgS,"!"; : NEXT S 

172 FOR S»10 TO 61 : PRINT8S,"-"; : NEXT S 

175 PRINT@839,"DATE ";M;I;K;" LATITUDE" ; LA; " LONGITUDE" ; LO; 

180 PRINTg714,"0";:PRINTe714+25,"12";:PRINT@714+50,"24"; 

185 PRINTg789,"TIME IN HOURS UNIVERSAL TIME"; 

186 PRINT6256," SOLAR"; 

187 PRINTS320, "ALTITUDE"; 

190 FOR S=10 TO 650 STEP 64 : PRINTgS,"!"; : NEXT S 

195 PRINT§7,"90 -" ; : PRINT?199,"60 -" ; : PRINT8391 , "30 -"; 

196 PRINTe584,"l -"; 
200 REM**** OK THE LOOP 
210 FOR UT=0 TO 24 

215 ES=1900+UT*100 

216 IF ES>«2400 THEN ES=ES-2400 
220 JT=JD+UT/24 

230 T=(JT-2415020)/36525 

240 MS=358. 476+35999. 05*T 

250 L=279. 691+36000. 769*T 

260 LS»L+(1. 919-0. 0048*T)*SIN(MS/KC)+.02*SIN(2*MS/KC) 

265 IF LS>360 THEN LS=LS-360 

266 IF LS>360 THEN 265 
270 EP=23.452-.013*T 

280 TR=COS(EP/KC)*TAN(LS/KC) 

290 SD=SIN(EP/KC)*SIN(LS/KC) 

300 RA=ATN(TR)*KC 

310 IF RA<0 THEN RA=RA+180 

320 IF ABS(LS-RA)>90 THEN RA=RA+180 

335 PRINTS924," 

337 IF RA>360 THEN RA-RA-360 

340 DE=ATN(SD/SQR(-1*SD*SD+1)) : CD=COS(DE) 

350 GM=6. 6717027 8+0. 0657098232* (JD-243 3282. 5) +1.0027 37 9093*UT 

360 OM=372.1133-.052953 9*(JT-2433282.5) 

370 E=0.00029*SIN(OM/KC) 

3 80 GA=GM+E 

390 LH=15*(GA-RA/15)-LO : SH=SIN (LH/KC) 

400 SA=SL*SD+CL*CD*CH 

410 AL=ATN(SA/SQR(-1*SA*SA+1) ) *KC 

420 IF AL<-.25 THEN 435 

430 GOSUB 500 

435 PRINT9924, "WORKING"; 

TIME" ;UT*100; "UT" 



CH=COS(LH/KC) 



SOLAR ALTITUDE ";AL," EST 



437 PRINT@960,' 

" ; ES ; 

440 NEXT UT 

445 PRINT3924, "COMPLETED"; 

446 FOR Q=0 TO 62 STEP1 : PRINT@1022-Q, " "; : NEXT Q 
450 PRINTS960," > SELECT ANOTHER DATE ( Y/N) ";: INPUT ZS 
460 IF Z$="Y" THEN 135 

470 PRINT" > SELECT A NEW POSITION ( Y/N) ";: INPUT ZS 

480 IF ZS="Y" THEN 110 

490 END 

500 REM ***** DISPLAY SUBROUTINE 

510 X=24+4*UT 

520 Y=30-AL/3 

530 IF X<0 OR X>127 THEN 560 

540 IF Y<0 OR Y>47 THEN 560 

550 SET(X,Y) 

560 RETURN 



Program Listing 
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and encourage the user to expe- 
riment with routines of his or her 
own devising. 

I also elected to display the 
numerical result of each loop 
operation as well as the Eastern 
Standard Time equivalent of 
each universal time increment. 

To execute the program, type 
Run, input the latitude and lon- 
gitude of the observation site 
and the calendar date, and the 
graph will be generated, though 
the display may not plot the first 
altitude position for several loop 
iterations. After you are accus- 
tomed to the program's opera- 
tion, try some different lati- 
tudes, longitudes and dates. Ex- 
amine, for instance, the differ- 
ence in maximum altitude at- 
tained at your coordinate loca- 
tion on March 22, June 22, Sep- 
tember 22 and December 22 of a 
particular year; or, examine the 
same dates in equatorial lati- 
tudes and in latitudes greater 
than 60 degrees. 

The user may wish to include 
output for his or her own time 
zone instead of Eastern Stan- 



dard Time. Such a modification 
can be accomplished by substi- 
tuting the appropriate time zone 
correlation constant for 1900 in 
line 215 of the program. 

While I did not choose to in- 
clude a computation of the sun's 
azimuth (AZ) in the program, us- 
ers might add this calculation, 
as all necessary elements have 
already been supplied: 



TAN(AZ) = SIN(LH)/(COS(LH)'SIN(LA) - 

TAN(DE)-COS(LA)) 
AZ = ATN(TA)"KC 



TA is TAN(AZ) and AZ is the 
sun's azimuth. Remember to 
use conversion constant KC to 
keep degrees and radians 
straight, and to correct for quad- 
rants disturbed by the ATN func- 
tion. 

An inventive programmer 
might use this alteration coupled 
with a reduced step value in 
line 210 to a tenth of an hour or 
less to track the sun's path for a 
solar energy device. The TRS-80 
could conceivably be interfaced 
to any number of such devices. 



90 



Solar 
Altitude 



60 -- 

30 -izf" 
I -■ 



12 24 

Time in Hours Universal Time 
Date 5/1 7/80 Latitude 43 Longitude 72 

Time 2300 UT Solar Altitude 14.0668 EST 1800 



90 

60 4 
Solar 
Altitude 30 + 




I2 
Time in Hours Universal Time 



24 



Date 8/15/80 Latitude 81. 45 
Completed 
>Select Another Date (Y/N)? 



Longitude 45 



Furthermore, many of the tech- 
niques employed in the program 
are useful in a variety of astro- 
metric and navigational applica- 
tions. 



Fig. 1. 

Graphic representation of so- 
lar altitude illustrates that the 
TRS-80 is not a toy. Rather, with 
a suitable program, it performs 
serious computing tasks.! 



HAVE YOU 

GOT YOURS? 



DISK & OTHER MYSTERIES: how 

to recover disk files, the layout of infor- 
mation on disks, memory maps, problem 
solutions, and more - the fixit book for 
disk users! 822.50, 130+ pages. 

MICROSOFT BASIC DECODED: a 

detailed, commented guide to the Level 
II ROM. $29.95, 300+ pages. 

CUSTOM TRS-80: brand new & full 
of super info on customizing your 80. In- 
cluded subjects are high res graphics, up- 
per and lower case, reverse video, high 
speed clocks, and more. Software sec- 
tion, too! $29.95, 300+ pages. 



SPECIAL 



OFFER 



If you clip this ad, or mention it in your 
order, vou can subtract 83.00 off the 
cost of each book that you order! Each 
order must be accompanied with S2.00 to 
cover shipping expenses. Mail to: IAS. 
1806 Ada Street. Lansing. MI 18910. or 
phone (517) 487-3358 or 185-0344. (Add 
$1.50 for COD. \% for charge cards) 



1 
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COMPILER 
WORKSTATION 

TRS-80 Model I and III 

Your BASIC program development 
could go faster. . . 

EDIT: Full-Screen BASIC editor with floating cursor and auto- 
repeat. More than 30 commands and functions lei you var- 
iously find, change, insert, delete, replace, replicate, copy, 
move or position BASIC lext ai the character, string, line or 
block level. Developed in Britain by Southern Software Mod I, 
III $40.00+ 1 50 shipping. 

PACKER: (Cottage Software) Editing tool will unpack, shorten, 
repack, renumber all or pari ol your BASIC text. The UNPACK 
segment is very useful when preparing BASIC source pro- 
grams for compilation by ACCEL2. Mod I. Ill $29 95+ 1.00 
shipping. 

Then your BASIC program 
could go faster. . . 

ACCEL2: Compiler lor TRS-80 Mod I. Mod III Disk BASIC New 
functional improvement in place to give more ease-ot-use, 
quicker compilation ot large programs, better chaining of com- 
piled and non-compiled programs Size read-out helps you 
monitor code growth during compilation REM NOARRAY option 
lets you use variable-bound arrays Professionals nole Com- 
prehensive instructions show how lo organize your compiled 
programs for resale on tape. ES/F water or disk No royalties' 
Developed in Britain by Southern Software Specify Mod lor III 
$88 95 + $2 00 shipping. 

TSAVE: Writes compiler oulpul to independenl SYSTEM tape 
$9 95 + $1 00 shipping 

EXEC: Command-List Processor for TRS-80 Mod I Prepare, 
execule. pass as many as nine parameters lo lists ol TRSDOS 
or NEWDOS commands and/or BASIC statements Simplifies 
repetitive procedures such as power-up sequences, file set- 
ups, etc Compatible wilh ACCEL2 compiler disk oulpul 
Developed in Britain by Southern Software $22 00 + $1.00 
shipping \> 

if ^ 79 

u Allen Gelder Software 

MX VISA T- Box 11721 Main Post Office 

CA add 6% t\v San Francisco, CA 94101 

J|§£ (415) 387-3131 

TRS-80. TRSDOS tm Radio Shack. ES/F tm Exatron 
•••••••••••••••••••••••A* 




PRESENTS: 



| OSI (8K) APPLE TRS-80t 

Computers 

&. Gambling 

Products 

Magazine' 

PROBABILITY HANDICAPPING 
DEVICE 1 - A BASIC PROGRAM FOR: 
HORSE RACE HANDICAPPING 

This incredible program was written by a professional software 
consultant to TRW Space Systems This is a complex program 
carefully human lactored lor easy use II is a comprehensive 
horse racing system lor spotting overlays in thoroughbred sprint 
races Your computer will accurately predict the win probability 
and odds line tor each horse based on your entries Irom the rac- 
ing form The next day overlaid horses can be spotted on the 
track tole board The user's manual contains a complete explana 
lion ol overlay betting plus much more useful information The ap 
pendix contains a detailed tab run of a 100 Consecutive race 
system workout showing an amazing 50S return ($1 50 return- 
ed for each $1 00 flat wager ) Includes many leatures such as 
error correction, bubble sort, line printer output, automatic 
keyboard debounce. archiving, etc The manual may be ordered 
separately lor perusal lor $7 95 and credit 
CHALLENGER 1P. 2P. or 4P 8K VERSIONS Now Available! 
Ptid-1 User's manual and cassette for: 

Apple II (16K). TRS-80 Level II (16K). Challenger (8K) 29.95 
TRS-80 or APPLE DISK 34.95 

BRAND NEW FROM SDL: WIN AT THE RACES. This thoroughbred 
handicapping algorithm is based on a currently popular book on 
thoroughbred multiple regression techniques Both sprints and 
routes All of the leatures ol PHD-1 plus more This program in- 
corporates the best data entry technique we've ever seen 
32K TRS-80 or APPLE CASSETTE 34 9b 

32K TRS-80 or APPLE DISK 39 95 

BOOKS: 

Winning at the Races 21 .95 + . 75 P&H 

Beating the Races with a Computer 14.95 + .75 P&H 

Make checks payable to JOE COMPUTER DEPT. 8. S 193 
22713 Ventura Blvd., Suite F. Woodland HiHs, CA 91364 

flft CA residenis add 6 V~. sales lax ^ST 
W PHONE ORDERS: 213 9920514 — 

•SEND $2 00 TO PLACE YOUR NAME ON OUR MAILING LIST 
t TRS-80 is a registered trademark ot Tandy Corporation 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for Z80 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 



The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several usej 
to change thAsa^krebord 
at the. 



(THEN COMPARE.) 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Lo 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savjj 
and more efficient use' 
of all the memor^ou hi 
availabla^l MAe it 
sej 



OASIS IS AVAILABLE FOR 

SYSTEMS Alios. Compucorp Cromemco^ 
Delia Products Digital Group. Digita^ 
Microsystems Dynabyte: Godt 
Index: Intersystems Nort 
SD Systems. TRS I 
Graphic. Vor 

CONTROI 
rvus Kc 
bell Tele 




ires 
jfl^UBIUms. 
sample: normally 

jsers can view a 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security 



ory 
as been 
n, when and 
r how long. 
Pros insist on these 
security features. 
OASIS has them. 



EFFICIENCY: 
RE-ENTRANT BASIC 



A multi-user system 
is often not even practical 
on computers limited 
to 64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
iMAinals 
in^te little as 
ry. Or, with 
itching, as much 
s 784K. 

Multi-Tasking lets each 
user run more than one 
ob at the same time. 

And there's our BASIC- 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Sequential Files; Mail-Box; 



Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 




EXFC Language. 
File Management; 
User Accounting; 
Device Drivers. 
Print Spooler 
General Text 
Editor, i 
SINGLE-USER 
MULTIUSER 



BASIC COMPILER/ 
INTERPRETER/DEBUGGER 



RE-ENTRANT BASIC 

COMPILER/INTERPRETER/ 

DEBUGGER 



DEVELOPMENT PACKAGE 



Linkage Editor 
Debugger) 



DIAGNOSTIC* 
CONVERSION UTILITIES 

(Memory Test, 
Assemoiy Language. 
Converters. File 
Recovery. Disk Test. 
File Copy Irom 
otner OS. etc ) 



COMMUNICATIONS 
PACKAGE 

(Terminal Emulator 
File Send & Receiv 



PACKAGE PRICE 

(All ol Above) 

SINGLE-USER 

MULTI-USER 



FILE SORT 



COBOL-ANSI 74 



SI 7.50 
17.50 



Order OASIS Irom. 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

Telepnone (415) 562-8085 
TWX 910-366-7139 

NAME 

STREET 

CITY 

STATE _ 



NOBOX=) 



ZIP. 



AMOUNTS 

(Attach system descnpt.on; 

add S3 for shipping. 

California residents add sales tax) 

□ Check enclosed □ VISA 

□ UPS COD. □ Mastercharge 

Card Number , 

Expiration Date 

Signature 



MAKES MICROS RUN LIKE MINIS 



CONSTRUCTION 



A case for giving your computer a home of its own. 



The Wandering 80 



Don Hubert 

613 Hartless Court 

Hampton, VA 23669 



Until the time I decided to 
buy my TRS-80, 1 never real- 
ized that the houses they build 
for humans don't include a com- 
puter room. Faced with this fact, 



FRONT PANEL 

PLYWOOD 

I REO 



I 6 3/4" 



I had to come up with a place to 
put the computer. After the kit- 
chen table was vetoed, I got a 
lease on my wife's sewing room 
with the provisions that the 
computer goes when she needs 
to use the room. It seemed fair 
enough to me until I found my- 
self moving the TRS-80 more 
than I was using it. 

In any case, I hated to see all 
those cables and cords laying 



all over the table in an unprofes- 
sional manner, so I decided to 
make my '80 not only function 
as a computer but look like a 
computer as well. 

I made the case out of scrap 
wood and plastic I had in my 
workshop, but all the materials 
are readily available from any 
lumber company or similar 
store. In addition, I designed the 
unit so maximum air flow would 



® 



COMPUTER 
PANEL 



I/4" STOCK 
I REO. 



© 
TOP PANEL 



I/2" PLYWOOD 
I REO 



'iT 



PLASTIC 

SQUARE 

TOP 



A 



I 5/8" 



TOP VIEW 



6 5/8"- 



6 3/4"- 



FRONT VIEW 



16 3/4" 



Fig. 1 



prevent overheating since the 
TRS-80 is not equipped with a 
cooling fan. For this reason, I 
used 1/2-inch square plastic grill 
used for fluorescent light cover- 
ing for the top, rear removal pan- 
el, and bottom where wood was 
not used to connect the sides to- 
gether. 

Start construction by cutting 
out the side panels (A) from 
1/2-inch plywood. (Make sure 
you have the good side of each 
facing out.) Next cut out the 
front panel (B), top panel (C), 
power panel (D), video monitor 
panel (E), back panel (F) and the 
rear door panel (G). 

I assembled my unit by nail- 
ing (finishing nails) the top and 
power board first, followed by 
the front panel. This made the 
unit sturdy enough to move 
about without it falling apart. 
Next I cut out the computer pan- 
el from a piece of 1/4-inch wall 
panel board, putting the unfin- 
ished side facing up. (Give it a 
light sanding.) Note that this 
panel runs the complete width 
of the case so figure in the side 
panels before you cut. 

At this point, it's a good idea 
to double check your work by 
putting the keyboard in the 
space provided. Also make sure 
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Photo 1. The complete system, up and running: Note the hood to 
eliminate glare and feet on each corner to give a free flow of air for 
cooling. 



VIDEO ' 
MONITOR 
PANEL 



I/2" PLYWOOD 
I REO. 



1 6 3/4" 



® 



POWER PANEL 
BOARD 



I/2" PLYWOOD 
I REQ 



the video monitor will slip in 
from the front and your side 
clearance is okay. If all works 
out well, proceed. If not, back to 
the saw. 

Take the video monitor panel 
board (E) and the video monitor 
and place it in the case. You may 
need an extra set of hands to 
hold everything in place. Bring 
the video monitor forward so it 
is flush with the front slope of 
the case and not too tight at the 
top. Mark where the board is to 
be nailed. Cut a 1/2-inch strip the 
length of the video monitor 
board and glue it to keep the 
monitor from slipping off the 
board. Remove the monitor and 
secure the video monitor board 
with three nails on each side. 
Once again slip the video moni- 
tor in the case to be sure it fits 
okay. Replace the computer in 
the case and make sure you 
have enough room to reach the 
on/off and reset switch. Next 
mount the back panel (F) with 
two nails on each side. 

Now we are ready to add the 
plastic cooling panels to the top 
rear of the case. Mark and cut 
the plastic square to fit between 
the top (C) and back panel (F). I 
used a variable speed sabre saw 
to cut the plastic. Place it on a 
firm surface and hold it steady 
when cutting as it will break 
quite easily. I used a glue gun to 
secure the plastic panel to the 
sides, top and back panel. 

The removable rear door is 
fitted and the plastic glued on 
the rear door panel. The opening 



for the power cord can be cut af- 
ter you complete the final power 
assembly. The door is held in 
place by glueing two small 
wooden stops on each side of 
the case to keep the door from 
falling into the case. I used two 
home-made latches that can be 
swiveled to hold the door in 
place. 

With the plastic I had left 
over, I cut a piece that would fit 
between the computer board (H) 
and the power panel (D) and 
glued it in place. This will pre- 
vent the cables from falling out 
when the unit is moved. If you 
use some other material be sure 



Fig. 2 



to drill holes for cooling. 

The entry hole for the cas- 
sette recorder cables can be put 
on either side of the case, as you 
desire. I put mine on the right 
side. Drill at least a one-inch 
hole to accommodate the plug 
of the recorder. Just be sure it is 
below the video monitor board. 

Now you are ready to paint 
the case. One can of flat black 
spray paint should be enough to 
paint the case. Spray all parts of 
the case that are visible. Once 
the paint is dry I took silver duct 
tape and trimmed the case as 



shown in the photo to match the 
TRS-80 color scheme. You could 
use silver paint and accomplish 
the same thing. 

To make the case look more 
professional and also improve 
its cooling, I added four feet to 
each corner. I used 1/2-inch di- 
ameter feet that have a nail in 
the center for attaching to the 
wood. 

The next order of business is 
to make provisions for all those 
plugs that require power. I in- 
stalled a single plug and recep- 
tacle box and found when I add- 




SIDE VIEW 



Fig. 3a 



80 Microcomputing, August 1981 • 299 



ed an Acu-Data Tape Digitizer I 
was short a place to plug it in. I 



would highly recommend a four 
(or more) three-wire grounded 



16 3/4" 



© 



BACK PANEL I REQ 




7 



y 



REAR DOOR 
1/2" PLASTIC SQUARE 



_ZI 



© 



REAR DOOR PANEL 



REQ. 



I 3/4' 



9 1/2" 



power strip to allow for expan- 
sion. In my set-up, I have a three- 
wire grounded six-foot exten- 
sion cord that I cut the recepta- 
cle from and used to connect to 
the receptacle located on the 
power panel. I plug the main 
power cable into a switched 
power strip so I have an on/off 
switch for the computer and ac- 
cessories. You could add an 
on/off switch on the right or left 
rear side of the case if you de- 
sire. Just make sure it's rated 
large enough to handle the load. 
Whatever method you decide 



on, make sure you locate it so 
the video monitor doesn't ob- 
struct its use. 

That completes the basic 
case. However, I have my com- 
puter on a table under an over- 
head light. Because of the slope 
of the video monitor I got a glare 
on the screen that just had to 
go. To solve this problem I in- 
stalled a moveable hood that 
can be moved in or out to re- 
move the glare. I had some 
1/4-inch scrap plastic that I cut 
six and 1/2 inches wide and long 
enough to fit over the top of the 



I 3/4" 



REAR VIEW 



Fig. 3b 





BOOK RACK 



Fig. 4 



Fig. 5 




Photo 2. Make sure the video monitor and the keyboard fit properly. 
Note the plastic grill that supports the cables. 



Photo 3. Make sure you can reach the on/off and reset switch. 
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INTRODUCING: 



SPECTRONICS, INC. 

(A Wholly Owned Subsidiary of Level IV Products) 

- OFFERING - 

The Full TRS-80* Line at Discount Prices, 

and Extended Warranty Coverage 






COLOR COMPUTER 



MOD III COMPUTER 



MOD II COMPUTER 



16K(R) 


$440 


16K(R) $859 


32K(R) $2950 


16K(E) 


$359 


48K2-40 drives (R) $2010 


64K(R) $3375 


16Kw/ext basic (R) 


$529 


48K2-40 drives (E) $1859 


Expansion Dr#l (R) $999 


16K w/ext basic (E) 


$479 


48K2-80 drives (E) $2119 
RS232 interface add $89 


Expansion Dr#l-2-3(E) $695 



NOTE: THE MOD III CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMATTED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS. 



PRINTERS 




DRIVES 


PERIPHERALS 




Line Printer IV (R) 


$849 


COMPLETE RAW 


E.I. OK (R) 


$249 


Line Printer VI (R) 


$986 


40 TRK MR (E) 


$309 $245 


E.I. 16K(R) 


$359 


Daisy Wheel II (R) 


$1679 


80TRK 




E.I.32K(R) 


$469 


C. ITOH Starwriters 


Call 


MPI (E) 


$429 $360 


E.I.16K(E) 


$305 


Centronics All 


Call 


40/40TRK 




E.I.32K(E) 


$362 


Epson All 


Call 


MPI (E) 


$445 $375 


16KRAM(200MS) 


$39 


AnadexAII 


Call 


8O/8OTRK 
MPI (E) 


$579 $515 







DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEPARTMENT (313) 525-6201 



WARRANTY POLICY 

Items including non-Radio 
Shack components (E) are 
covered by an extended six- 
month parts/labor warranty in 
our tech service center. 

Items constructed from Radio 
Shack approved components 
(R) are covered by a 90-day 
parts/labor warranty at any 
Radio Shack store, plus an addi- 
tional 90 days in our tech ser- 
vice center. 

• See List of Advertisers on page 322 



TERMS OF SALE 



2% Discount allowed on cash 
pre-paid orders. Personal 
checks reguire two weeks for 
bank clearance. 

Visa. Master Charge and C.O.D. 
orders accepted. Add $1.50 for 
CO.D.'s. 

Shipping/handling/insurance 
add 1.5% a $2.50 minimum. 

Prompt shipments from stock. 




SPECTRONICS, INC. 
32461 SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 46150 

MICHIGAN - (313) 525-6200 
TOLL FREE - 800-521-3305 



•TRADEMARK OF TANDY CORP. 
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case along with two side pieces. 
I used the glue gun to join them 
together. I then sprayed it black 
to match the case. To keep the 
hood from rubbing on the top of 
the case I installed two rails 
glued to the sides of the case. I 
used scrap metal rails but you 
could just put two pieces of 



wood to hold the hood above the 
top. 

I also wanted to place all my 
reference books in order and yet 
be able to move them on a mo- 
ment's notice. I made a three- 
sided bookcase that butts up 
against the left side of the case. 
I got a cheap metal book end 



that holds all the books upright 
and can be moved as a unit. I 
used plastic, again glueing the 
pieces together with the glue 
gun. You could make the book- 
case out of 1/4-inch stock or 
similar material. Paint it black to 
match the case. 

That completes the case, 



hood and bookcase. All that is 
needed now is to put the TRS-80 
in the case and have fun. I can 
tell you straight out, it took long- 
er to write this article on how to 
build the case than it did to build 
it. So don't be timid, jump right 
in and give your TRS-80 a profes- 
sional computer set-up.H 





Photo 4. A rear view of the power hook-up and removable rear panel. 
Note the homemade latch to hold panel in place. 



Photo 5. The unit is configured for easy moving with disconnecting 
components. 



INTERFACE EXPANSION BOARD 



MD 



For the TRS 80' 



MOO-D€<JIGN ^5*i- 




ij* 



The Interface Expansion Board gives 
your computer these features: 

Phone Modem 

2K E-PROM OPTION ln s,ock Now 

32 K Memory PC Bo<,rd & JJJJ manual 

Real-Time Clock MDX-1 

Parallel Port 

RS-232 Port 

Dual Cassette Line 

Floppy Disk Controller' MDX-2* 

On Board Supply 

Silk Screen 

Solder Mask 

Expansion Port 

Manual 



64?5 



74°5 



Add 5.00 lor shipping 
& handling Texas res- 
idents add 5 !• sales 



MANUALS $7.95 

•FREE PAMPHLET AVAILABLE— 
Call or write 



MICRO-DG^IGM 

P.O. Box 748 

Manchaca, TX 78652 

512-2820225 

' TRS 80 is a Trademark ol Tandy Corp 



^379 



DISK-80 

EXPANSION INTERFACE 

FOR THE 

TRS-80 MODEL I 




• Disk controller (4 drives) 

• Hardware data separator 

• Buffered TRS-bus connector 

• Real-time clock 

• Printer port (optional) 
ASSEMBLED & TESTED 

with 16K RAM ... $329.95 

Centronics Printer 

Port add $ 50.00 

with 32K RAM add $ 50.00 

DISK-80 pc board $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 16K 

RAM and Printer Port ..$275.00 

The DISK-80 EXPANSION INTERFACE is Radio 
Shack hardware and software compatible and carries 
a 90 day warrantee including parts and labor. 
Includes user's manual and power supply. 

Call 1-800-645-3479, in N.Y. 1-516-374-6793 

or write: The MicroMint Inc. 

917 Midway wmm*\ MBP 

Woodmere. NY 11598 SISI 

Dealer 

inquiries 

invit 




Need o solution for 



Floppy Disk Lube 

Just THR66 drops can: 

• Prolong useful disk life. 

• Increase head life. 

• Allow initialization of "problem" 
disks. 

• Save 'unbootable' disks. 

• Reduce 'glitching' problems. 

• Cut nuisance problems. 

FLOPPV DISK LUB€ - 'h oz. +m AA 
LUITH RPPLICRTOfl. **KUU 

Add $1.50 shipping and handling. Ohio 
residents odd S'/i% soles tax. 

DOSUJBBe. INC. 
Cleveland. Ohio 44110 
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TUTORIAL 



Loop around this brain teaser for awhile. 



Digits for Fun 



Ross A. Wirth 
15906 E 96th St. N 
Owasso, OK 74055 



Learning should be fun, right? 
Right! I present to you a 
brain teaser— one that can be 
solved by a computer much eas- 
ier than by human trial and error. 
The approach you take to solve 
this brain teaser, though, is 
what this article is all about. 

Nine Digits of Fun 

Construct a nine-digit number 
using the digits one through 
nine, using each digit only once. 



The nine-digit number you con- 
struct should be evenly divisible 
by nine. To make it a bit more dif- 
ficult, the first eight digits must 
be a multiple of eight, the first 
seven digits a multiple of seven, 



many meet the above criteria? 
That's for you to find out. 

Now, put down the magazine 
and write a program to solve the 



nine-digit problem. If you are a 
genius you might try to solve it 
mentally. However, if you aren't, 
let your TRS-80 give it a try. 







A 




GOSUB A 


\ 




123654 




I 




I 


\N 




1 is a multiple of one 

(nothing new here) 

12 is a multiple of two 




B 




B 




A 




I 




I 


// 




123 is a multiple of three 
1236 is a multiple of four 
12365 is a multiple of five 




A 




OOSUB A 






TO! 


» DOWN FLOi 


V 


SUBROUTI 


NE CALLS TO "A" 



123654 is a multiple of six 

And so on up to nine. 

Of the possible 362,880 com- 
binations of nine digits, how 



Figure 1 



1 REM SIMPLE EXAMPLE OF RECURSIVE CALLS TO A SUBROUTINE 

5 CLS 

10 INPUT" ENTER NUMBER OF LEVELS ";LS 

20 PRINT "START AT TOP" 

30 GOSUB 100 

40 PRINT "BACK AT TOP" 

50 END 

100 L=L+1 

110 PRINT "DOWN TO LEVEL ";L 

120 IF L<LS THEN GOSUB 100 

130 L=L-1 

140 PRINT "UP TO LEVEL ";L 

150 RETURN 



Program Listing 1 















I 






FOR B 


I 


NEXT B 






DONE 


NEXT- 











I -) 

yj GOSUB J [ 

/ - T - J 

I 

i 

~^^ I 1 

i RETURN j 

I 1 



DONE 

NESTED LOOPS 



RECURSIVE CALLS TO ITSELF 



Figure 2 
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5 REM PROGRAMMED FUN 11 BY ROSS A. WIRTH 


10 


REM TITLE — 9 DIGITS OF FUN 


15 


REM SAMPLE SOLUTION USING RECURSIVE CALLS 


20 


REM 


30 


CLS 


35 


DIM 1(9) ,A(20,9) 


40 


L=0 


45 


I(0)=0 


50 


GOSUB 100 


55 


CLS 


57 


PRINT "THE 9 DIGIT ANSWERS ARE:" 


58 


PRINT 


60 


FOR J-l TO AC 


65 


FOR L=l TO 9 


70 


PRINT A(J,L) ; 


75 


NEXT L 


80 


PRINT 


85 


NEXT J 


90 


END 


100 


L-L+l 


105 


PRINT: PRINT'LEVEL ";L 


110 


I(L)=0 


115 


I(L)=I(L)+1 


120 


REM TEST TO SEE IF DIGIT IS ALREADY USED 


130 


C = 


135 


FOR J=l TO L:PRINT I(J);:NEXT J:PRINT 


140 


FOR J=0 TO (L-l) 


150 


IF I(L) = I (J) THEN C=C+1 


160 


NEXT J 


17 


IF C>0 THEN 330 


17 5 


REM TEST TO SEE IF PROPERLY DIVISIBLE 


180 


R=0 


190 


FOR J=l TO L 


200 


R=(R*10) + I(J) 


205 


R=R - L 


210 


IF R > THEN 205 


215 


IF R < THEN R=R + L 


220 


NEXT J 


230 


IF R > .5 THEN 330 


250 


REM X IS NOW READY TO GO DOWN 1 MORE LEVEL 


270 


IF L=9 THEN 310 


280 


GOSUB 100 


290 


GOTO 330 


300 


REM NEW ANSWER FOUND 


310 


AC=AC+1 


315 


FOR 11=1 TO 9 


320 


A(AC,II)=I(II) 


325 


NEXT II 


330 


IF I(L) < 9 THEN 115 


340 


L=L-1 :REM BACK OUT OF THE RECURSION 


345 


PRINT: PRINT "LEVEL ";L 


350 


RETURN 




Program Listing 2 



Is There a Better Way? 

The most common approach 
to solving the nine-digit problem 
is to write a series of nested 
For... Next loops. Each loop 
will check the usage of a digit 
more than once and the even di- 
visibility of the number built to 
that point. Note: do both of 
these tests eight times (the first 
time, they are not needed). 

Is there a better way? Sure, 
anytime you repeat a step, the 



of subroutines. You can do the 
same thing in our program; each 
set of tests can be referenced 
via a subroutine call. 

There is also a way to simplify 
the common structure of the 
nested For. . . Next loops, recur- 
sion; we can have the subrou- 
tine call itself. 

Fig. 2 shows what is meant by 
a subroutine calling itself. Enter 
Program Listing 1 into your 
TRS-80 and give it a try. As your 



"The approach you take to 
solve this brain teaser, though, 
is what this article is all about. " 



common instructions can be 
linked into a subroutine. The ex- 
ecution continues along the 
same logic but it is easier to 
write. It's also easier to modify 
because you need to change the 
code only once, rather than as 
many times as the program ref- 
erences the same section of 
code. Fig. 1. illustrates the use 



program descends into itself, it 
prints the current level. All the 
program needs to know is how 
far down it is at the time and 
when it's supposed to stop and 
return to the top. 

How far down can you go? 
Originally, I thought that the lim- 
it would be some stack pointer 
internal to the Z-80 CPU. It ap- 



L level of recursion (1 through 9) 
l(9) digits being tested 
A(20,9) answers 
C counter 


AC 


answer counter 


J 
R 


loop counter (local) 
remainder in divisability test 


Table 1. 


Variables in Program Listing 2. 



Lines 

5-45 initialization 

50 first call 

55-90 printing of solution 

100 set level counter 

105-115 initiate action for current level 

120-170 test to see if the digit is already used (GOTO 330 if test fails) 

175-230 test to see if "X" if a multiple of the level (GOTO 330 if test fails) 

250 success at this level— let's go down one more 

270 if already at level 9 an answer has been found 

280 down one more level (GOSUB) 

290 on the way back up loop around answer routine 

300-325 new answer saved for later printing 

330 if a possible digit still is untested at this level, let's go to 115 and try it 

out 

340-350 all possible digits have been tried at this level. Let's go up a level and 

try some more at that level. 

Note: Ideally lines 100, 330 and 340 would be part of a FOR-NEXT loop. The prob- 
lem is that Level II does not allow a subscripted variable to be used as a loop count- 
er in a FOR-NEXT loop. Thus, the longer format is used here. 

Table 2. Logic description of Program Listing 2 



pears, though, that the limit is 
the amount of available memo- 
ry! With my Level II 16K, a line 
printer driver in upper memory 
and Program Listing 1, I can go 
down 3059 levels and back in a 
little over four minutes and 
down 3060 levels before I run out 
of memory. If you haven't en- 
tered and run Program Listing 1, 
you should do it now. 

Now, back to the nine-digit 
problem. How can you use re- 
cursion to reduce the amount of 
program coding? Program List- 
ing 2 shows the code I wrote to 
solve this brain teaser. 

The run time can be signifi- 
cantly reduced by leaving out 
the prints that show the level 
and number being checked. For 
those interested in technical 
nature of this program, Table 1 
shows the variable usage in Pro- 
gram Listing 2. Table 2 explains 
in detail the program logic. 

Of the 362,880 possible com- 
binations of nine digits, there is 
only one solution that meets the 
divisibility criteria. In a test run, 
some counters show that the 
duplicate digit usage test stops 
2790 tries toward an answer. 
1580 attempts to form a solution 



were stopped by failing the di- 
visibility test. Thus, you can see 
that the tests drastically reduce 
the number of tries that actually 
get to the ninth level. 

12- Digits of Fun 

If you think you understand 
recursive programming, test 
your skills with the 12-digit prob- 
lem described in Fig. 3. It seems 
a bit more complicated on the 
surface, but is really no more dif- 
ficult than the nine-digit prob- 
lem. The program I wrote to solve 
this brain teaser is Listing 3. 
But, try to solve it on your own 
before looking at the next 
page.B 





A 


A 




c 


B 


B 


C 


c 


B 


B 


C 




A 


A 





Fig. 3 
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Program Listing 3 


220 
230 


X-=I(ll) + I(3)+I(7)+I(12)-AN:GOSUB 700 
X=I(9)+I(10)+I(11)+I(12)-AN:GOSUB 70 




250 


RETURN 


5 REM PROGRAMMED FUN tl BY ROSS A. WIRTH 


27 


IF L=12 THEN 310 


10 REM TITLE -- 12 DIGITS OF FUN 


280 


GOSUB 100 


15 REM SAMPLE SOLUTION USING RECURSIVE CALLS 


290 


GOTO 330 


20 REM 


300 


REM NEW ANSWER FOUND 


25 AN=26 


310 


AC=AC+1:TC=TC+1 


30 L=0:F2$="tl":F3S="«ll":C=0:AC=0:TC=0:J=0:XS=" ":X- 


312 


IF AO220 THEN AC = 1 


0:Y=0 


313 


PRINT071," ";: PRINT USING F3S;AC; 


35 DIM I(12),A(220,12),SP(12) 


315 


FOR 11=1 TO 12 


40 CLS 


320 


A(AC,II)=I(II) 


45 I(0)=0 


325 


NEXT II 


47 GOSUB 400: REM SETUP SCREEN 


330 


IF I(L) < 12 THEN 115 


50 GOSUB 100 


333 


I(L)=0 


55 CLS 


335 


PRINT@SP(L) ," ";:PRINT USING F2S;I(L); 


57 PRINT "THE 12 DIGIT ANSWERS ARE:" 


340 


L=L-1 :REM BACK OUT OF THE RECURSION 


58 PRINT 


345 


PRINT67," ";:PRINT USING F3S;L; 


60 FOR J=l TO TC 


350 


RETURN 


61 L-J 


400 


REM SETUP SCREEN 


62 IF L>220 THEN L=L-220:GOTO 62 


410 


DATA 283,475,667,859,294,486 


63 PRINT J;": "} 


420 


DATA 678,870,464,497,656,689 


65 FOR L=l TO 12 


430 


FOR 1=1 TO 12:READ SP(I):NEXT I 


70 PRINT A(J,L) ; 


440 


DATA A1,B2,B3,A4,A5,B6,B7,A8,C9,C10,C11,C12 


7 5 NEXT L 


450 


FOR 1=1 TO 12 


80 PRINT: PRINT 


460 


READ X$ 


85 NEXT J 


470 


PRINT@(SP(I)-67) ,XS; 


87 PRINT TC;" ANSWERS" 


475 


NEXT I 


90 END 


480 


FOR X=24 TO 113 


100 L=L+1 


490 


FOR Y=7 TO 43 STEP 9 


105 PRINT07," ";:PRINT USING F3S;L; 


495 


IF (X>45)AND(X<92) THEN 510 


110 I(L)=0 


500 


IF (Y=7)OR(Y=43) THEN 520 


115 I(L)=I(L)+1 


510 


SET(X,Y) 


117 GOSUB 175:PRINTgSP(L) ," ";:PRINT USING F2S;I(L); 


520 


NEXT Y 


118 IF ML) >12 THEN 333 


530 


NEXT X 


120 REM TEST TO SEE IF DIGIT IS ALREADY USED 


540 


FOR Y=8 TO 42 


130 C=0 


550 


FOR X=24 TO 112 STEP 22 


140 FOR J=0 TO (L-l) 


555 


IF (Y>15)AND(Y<35) THEN 570 


150 IF I(L) = I (J) THEN C=C+1 


560 


IF (X<46)OR(X>91) THEN 580 


160 NEXT J 


570 


SET(X,Y) :SET(X+1,Y) 


170 IF C>0 THEN 330 


580 


NEXT X 


17 3 GOTO 270 


590 


NEXT Y 


17 5 REM TEST TO SEE HOW "26" IS FORMED 


600 


PRINT90, "LEVEL" ; 


180 ON L GOTO 250,250,250,190,250,250,200,205,250,215,2 


610 


PRINTP64, "ANSWERS 0"; 


50,220 


620 


RETURN 


190 X=I(l)+I(2)+I(3)+I(4)-AN:GOSUB 700:GOTO 250 


700 


IF X=0 THEN 750 


200 X=I(2)+I(3)+I(6)+I(7)-AN:GOSUB 700:GOTO 250 


710 


IF X>0 THEN I(L)=13:GOTO 750 


205 X=I(5)+I(6)+I(7)+I(8)-AN:GOSUB 700 


720 


X=-X 


210 X=I(l)+I(4)+I(5)+I(8)-AN:GOSUB 700:GOTO 250 


730 


IF I(L)>X THEN I(L)=13 ELSE I(L)=I(L)+X 


215 X=I(9)+I(2)+I(6)+I(10)-AN:GOSUB 700:GOTO 250 


750 


RETURN 




TOTAL 

DISKETTE 

BACKUP 




DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library is not com- 
pletely backed up, mail the order below im- 
mediately! Or, if you are wasting diskettes by 
making backup copies of all your diskettes, 
your problem is solved! Using DUMPLOAD, 
the total contents of your diskettes can be 
safely dumped to tape. The hi-speed tape op- 
tion allows six 35 or 40 track diskettes to fit 
on one C60 casette. This machine language 
utility will pay for itself the first time one of 
your valuable programs will not load. 

• TRS-80 Model 1 16K-48K 

• TRSDOS or NEWDOS80 Compatible 

• May be used to back-up TRSDOS, VTOS 
4.0, NEWDOS, MICRODOS, or data 
disks. (Single Density) 

• Tape verification routine included. 

• Single drive owners are no longer required 
to keep switching diskettes to create a 
backup. 

• Backup without having to remember 
Master passwords. 



YES! RUSH ME MY COPY OF DUMPLOAD 
IMMEDIATELY 



— S15.95 ON MY CAREFULLY PACKED 

TRSDOS OR NEWDOS80 

DISKETTE ENCLOSED (priority service) 

— $16.95 on Casette — $19.95 on Diskette 

Name: . — 

Address: 

City: 



.State: 



Zip: 



MAIL TO: 

COMPLETE COMPUTER SERVICES 
8188 HEATHER DRIVE 
NEWBURGH, INDIANA 47630 



• 496 




EDU-WARE EAST 

P.O. Box 336 

Maynard, MA. 01754 

617-568-8641 

• 477 




MATH-PAK-1: MATH-PAK-2: MATH-PAK-3 
Interactive drill programs wham you an tar tha ant war* 
digit by digit, Juat Ilka papar and pencil. With uaer 
eelected difficulty levela, carryovera, reducing, simpli- 
fication, pointing off, acorlng, gamea, and mora. Uaed 
by echoola everywhere. Order MATH-PAK-1 for Inte- 
gera, MATH-PAK-2 for fractlona, MATH-PAK-3 for 
decimals. (L2-18K) $14.95 aa. 

HO-R-K-S 

Low coat, alngle entry accounting ayatem for the home 
or office. With 66 uaer aaalgned account codea, auto 
audit trail, aearch with totala, 32 or 48K, 1 to 4 drives, 
credit and debit summaries with 3 optlona, up to 9200 
entries. S24.9Scaaaette S29.95/dlac 

INVENTORY + 

Why aettle for just an Inventory Hating? Get aging 
reports with 2 optlona, reorder, total listings with pur- 
chase datea and amounta, total coata, Items aold, pro- 
flt/loaa and more. Uaa aa a atand alone ayatem with 
dally updates, delete, change, and file packing 
routlnea. (32K - 1 disc minimum) $24.95/caeeette 

$29.9S/dlac. 

CASH REGISTER 80 
Use your TRS-80 aa a point of aale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print aalea slips with uaer adjuated formats, end of 
day reports with all caah, charge, and check aalea by 
salesperson. CR80 requires INVENTORY-)-, 46K, and 
1 dlac minimum (2 drives recommended). 

S24.95/caeeette $29.9S/dlac. 



Mass residents and 5% tax. VISA, M.C., AND PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over- 
seas orders add $2.00 for air shipment. TRS-80 la a 
trademark of Tandy Corp. 



SUPER MICRO-PRO CESSOR FOOTBALL 



SCORE: THE MIGHTY COMPUTER - B 



G 18 2» Zt 48 58 68 3B 2B IB G 

...YOUR TEAMS 0FFEJ6IVE TRAVEL <— (— 
1ST DOWN HMD 10 W THE MIGHTY COMPUTERS 38 



Hill WHP1 IS YOUR OFFENSIVE PIPY'' Hill 



CLOCK IS RUNNING - TIME REMAINING 11 : 28 sal PLAY TIMER 9 



Animated Graphics — Game Time Clock 
(48K-32K) Available for TRS80' Lll M1 or M3 
48K DISC s 22.95 - 32K DISC '19.95 (48K 
has more of everything!!!) 

16K DISC OR TAPE M2.95 

Many more super programs Please write for 
free listing and program details 

Attention: Software Authors— We want good 

programs — Top royalty plan Dealer inquiries 

welcomed 

• TRS80 is a Reg Trademark of Tandy Corp 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Cumming, Georgia 30130 
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UTILITY 
FORCE 



THE VIDEO MANAGER C-\M FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer; save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-80,* Mod I TRS 
DOS 2.3, Mod II TRS DOS 1.2 & 2.0, CP/M 2.0 or later, 
soon available for Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage. •'"Tandy Corp. 

SOFTWAREHOUSE INTERNATIONAL 

5070 N. Sixth St. Suite 103B 
Fresno, CA 93710 (209) 221-7877 

TO RECEIVE A FREE CATALOG PLEASE ^13 




©BWcco 

. . . spending 
more time altering 
programs than you 
do enjoying them! 
Get . . . 

SUPER UTILITY! 

This fantastic 24K. stand alone machine language program allows rapid and 
easy access to controlling data. Super Utility, written by Kim Watt of Breeze 
Computing. Inc.. comes with 30 pages of easy to understand, step-by-step 
instructions assuring maximum use of your valuable time. 

Seven main menus combining 43 major programming or disk repair options 
makes this single program incredibly versatile. For fast and easy reference we've 
capsuled some of the best options below. 



DISK COPY 

Standard Copy With Formal 
Standard Copy Without 
Format 



DISK REPAIR 

Repair Gat Tabic 
Repair Boot 

Read Protect Directory Track 
Recover Killed Files 
Check Directory 



MEMORY 

Move Memory 
Exchange Men._., 
Special Copy (To back up most Compare Memory 

protectee! disks- for ■ongional 7oro ^ omnn , 

purchasers use only) 



TAPE COPY 



Zero Memofy 
Test Memory 
Input Byte From Port 



ZAP DISK FORMAT 

Display Sector (Disk. File) Standard Format 

Display Memory Format Without Erase 

Compare Disk Sectors Special Format 

Copy Disk Sectors Read Address Marks 

Verify Disk Sectors 

Zero Disk Sectors 

Stnng Search 

Sector Search 

PURGE 

Kill Selected Files 

Get Disk Directory 

Zero Unused Directory Entries 

Zero Unused Granules 

Remove System Files 

Kill By Category 

Change Name. Date. Pass- 
word, Auto Command 

Change File Parameters 

Residing from 4.000H to 9FFFH. Super Utility has its own I/O drivers and does not use 

any ROM or DOS calls So go to the heart of your protected disks and read and/or modify 

data using simple 1-key commands. Now time is on your side! 

To Order . . . 'Send check or money order for only $49 95 plus $2 SO shipping and handling to: 

BHEEZE COMPUTING. INC. P.O. Box 1013, Berkley. Ml 48072. (313) 288-9422. For 
$2.50 Breeze Computing. Inc. will send every owner, upon registration of Super Utility 
one back up copy. "Foreign orders, please add $5.00 additional postage charge 
Michigan residents add 4% sales tax. ^ 76 



Back up most TRS-80 tapes. Output Byte To Port 

nq rr\atter how jt is record- Memory To Disk 

purchaser Djsk To Memory 



matt 

(tor ongin 
use only) 



THE PROGRAMMER'S GUILD 
MEANS ADVENTURE! ! 



SPIDER MOUNTAIN 

SEARCH FOR GOLD AND GLORY IN THE TUNNELS 
OF SHELOB'S LAIR. 



TAPE $14.95 



DISK $19.95 



LOST DUTCHMAN'S GOLD 

YOU AND THE GHOST OF BACKPACK SAM AGAINST 
THE TREACHEROUS TERRAIN AND HOSTILE 
INDIANS OF THE SUPERSTITION MOUNTAINS. 



TAPE $14.95 



DISK $19.95 



LOST SHIP 

DISCOVER THE SECRET OF THE FLOATING PIRATE 
VESSEL IN THE MYSTERIOUS DEVIL'S TRIANGLE. 



TAPE $14.95 



DISK $19.95 



DEATH DREADNAUGHT 

CAN YOU ESCAPE THE CREATURE'S DEADLY 
PURSUIT AND MAKE IT TO THE SHUTTLE ALIVE? 
RATED R DUE TO VIOLENT DESCRIPTIONS. 



TAPE $14.95 



DISK $19.95 



DRAGONQUEST 

RESCUE THE PRINCESS BEFORE SUNDOWN FROM 
SMAEGOR THE TERRIBLE. MACHINE CODE, KEY- 
BOARD MACRO. 



TAPE $15.95 



DISK $21.95 



THUNDER ROAD 

HILARIOUS TAKEOFF ON THE "DUKES OF HAZARD" 
CAN YOU GET YOUR MOONSHINE TO KNAWBONE 
BEFORE SHERIFF BUBBA SHUTS YOU DOWN? 



TAPE $14.95 



DISK $19.95 



DEADLY DUNGEON 

DISCOVER THE SECRET OF THE DEADLY DUNGEON 
AND EMERGE VICTORIOUS AND WEALTHY. 



TAPE $14.95 



DISK $19.95 



* * • NEW RELEASE * • * 
TEMPLE OF THE SUN 

EXPLORE AN ANCIENT AZTEC TEMPLE SEARCHING 
FOR THE SHAMAN'S SECRET. 



TAPE $14.95 



DISK $19.95 



COMPUTER MAIL ORDER IS HERE! ! ! 



Programmer's Guild 

P O Bex 66 • Pele'bo'ouqh NH 034S8 • 603-924-606S Voice • 603-924 7920 Data 



■ See List ol Advertisers on page 322 
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TUTORIAL 



A place for everything. 



All About Sorts— Part I 



Len Gorney 

Box 91 R.D. 5 

Clarks Summit, PA 18411 

Sorting is the process by which items are 
arranged into some kind of order 
depending upon a particular characteristic. 
The white pages of a telephone book, for ex- 
ample, are ordered alphabetically accord- 
ing to a person's last name; mailing labels 
are sorted according to their respective Zip 
Codes; student standings are arranged by 
grade point averages. In fact, most every- 
thing is sorted or arranged into some order. 
My primary focus will be on some of the 
more commonplace and useful sorting 
techniques. The techniques I will examine 
fall into the general class of "internal" sort- 
ing routines, since the items to be sorted 
must reside in the main storage of the com- 
puter. External sorts are another subject, 
not covered here. 

Choosing the Sort 

The sorting process follows a fundamen- 
tal sequence: Look at an item's key; deter- 
mine the position of the item in a sorted list; 
and move the item to its proper position. A 
particular sorting method is chosen by a 
number of conditions involving time and 
space. Time is that limiting factor which 
tells us the speed of the sorting process. 
Space refers to the amount of memory re- 
quired by the procedure. 

The number and initial distribution of the 
items to be sorted is our first concern. The 
number of comparisons and exchanges 
made during the execution of the sort also 
bear on the choice. To determine the best 
sorting method we must consider the fol- 
lowing: 

• Number of items to be sorted. 

• Initial distribution of the items. 

• Storage requirements of the method. 

• Number of comparisons. 

• Number of exchanges. 

• Total time spent in execution. 

We will sort items which consist of a 
single "key" element by which the item is 
sorted (a single integer value). The set of 
items to be sorted is placed into an array (A) 
by simply reading integer values into the lo- 
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cations dimensioned for this array. 

The main program common to all sorting 
techniques sets up the list of items to be 
sorted, calls the sorting subroutine and out- 
puts the list of items after they have as- 
sumed their sorted order. The following 
variables and their descriptions will gener- 
ally hold true for all the programmed rou- 
tines. 



Variable Name 


Description 


A 


Array thai holds the items to be 




sorted. 


C 


Number of comparisons. 


E 


Number of exchanges. 


J. K. L 


General pointers into the array A. 


N 


Number of items to be sorted. 


P 


Number of passes through the 




list. 


T 


Temporary location holding a par 




ticular item. 





Program Listing 1 


11001 


DIM A(10), S(10) 


1010 


N •= 10 


1020 


FOR X - 1 TO 4 


1030 


CLS: 




PRINT-ORIGINAL ITEMS 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRINT A(K) ;: 




S(K) = -999 


1060 


NEXT K 


107 


GOSUB 1170 


1080 


C = 0: 




E = 0: 




GOSUB 1180 


1090 


CLS: 




PRINT-SORTED ITEMS "; 


1100 


FOR K - 1 TO N 


1110 


PRINT S(K) ; 


1120 


NEXT K 


1130 


PRINT: 




PRINT-COMPARISONS =" ;C; "EXCHANGES =";E: 




GOSUB 1170 


1140 


NEXT X 


1150 


END 


1160 


DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T « 1 TO 1000: 




NEXT T: 




RETURN 


1180 


■ 




LINEAR SELECTION 


1190 


FOR P = 1 TO N 


1200 


J ■ 


1210 


J = J + 1 


1220 


■ 




CHECK FOR DUMMY VALUE OR END OF LIST 


1230 


IF A(J) = -999 THEN IF J = N THEN 1370 




ELSE 1210 


1240 


' 




PUT ASSUMED SMALLEST ITEM POINTED TO BY A(J) INTO 




TEMPORARY STORAGE (T) . K POINTS TO WHERE THIS ASSUMED 




SMALLEST ITEM RESIDES. 


1250 


T = A(J): 




K = J 


1260 


• 




SEARCH FOR A SMALLER ITEM THAN THE ONE AT A(J). 


1270 


FOR L = 1 TO N 


1280 


• 




SKIP DUMMY ITEM. 


1290 


IF A(L) = -999 THEN 1340 


1300 


■ 




COMPARE A VALID ITEM AGAINST ASSUMED SMALLEST ITEM. 


1310 


C = C + 1: 




Program continues 



Linear Selection 

Linear Selection treats the list of items to 
be sorted as a single succession of ele- 
ments. A comparison is made by selecting 
the first item and then advancing from one 



PASS § 1 ORIGINAL 


SORTED 


8 





-999 


-999 


9 


-999 


h 


-999 


3 


-999 


5 


-999 


7 


-999 


2 


=999 


6 


-999 


1 


-999 


PASS # 2 ORIGINAL 


SORTED 


8 





-999 


1 


9 


-999 


h 


-999 


3 


-999 


5 


-999 


7 


-999 


2 


-999 


6 


-999 


-999 


-999 



PASS H 10 ORIGINAL 


SORTED 


-999 





-999 


1 


-999 


2 


-999 


3 


-999 


h 


-999 


5 


-999 


6 


-999 


7 


-999 


8 


-999 


9 


SORTED ITEMS 1 2 


3 h 5 6 7 8 9 


COMPARISONS - 5S EXCHANGES - 10 


Fig. 1 




See List of Advertisers on page 322 



Program Listing 1 continued 






IF T <= A(L) THEN 1340 




1320 


NEW ASSUMED SMALLEST ITEM IS AT A(L) . 




1330 


T = A(L): 
K = L 




1340 


NEXT L 




1350 


■ 






DUMMY OUT A(K) AND PUT SMALLEST ITEM IN OUTPUT LIST 


(S). 


1360 


A(K) - -999: 

S(P) ■ T: 
E = E + 1 




1370 


TAKE SNAPSHOTS. 




1380 


CLS: 

PRINT'PASS l";P, "ORIGINAL SORTED" 




1390 


FOR KK = 1 TO N 




1400 


PRINT, A(KK), S(KK) 




1410 


NEXT KK 




1420 


GOSUB 117 




1430 


NEXT P 




1440 


RETURN 




1450 


END 





Word Processing? You need a 

SPELLING CHECKER 



This is an exawle of a text being checked by 
HEXSPELL.. The text scrolls up the screen as it is checked, When 
an error is detected, you have three choices. 

1) REPLACE the incorrect word. The replacement word 
is INSTANTLY RE-CHECKED for correctness, then inserted in the 
text, 

2) The word is correct, leave it as it is. 

3) Leave the word as it is, AND tell HEXSPELL to 
LEARN this word for future reference, with just one keystroke. 

Your docunent is ready to print as soon as HEXSPELL 
is finished. The word in error e.g. * 



WORD IN ERROR: nisstake 

CONTINUATION : is shown in context, including continuation 

press: R) REPLACE WORD S) leave as is d learn word 



HexspeLL 

sr\ta*Y 

zaps those snaeky typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete new language. 
Programs, wordlist & manual S69US. Manual only $12. ii $U — ^j^ 

Requires 48K TRS-80 Mod I with 2 Drive & TRSDOS. L~7 ', ... .1 ^^W> 

Tested against Scripsit & Electric Pencil, should work with most word processors. 

TRS-80, Scripsit are trademarks ol Tandy Corp. 

Electric Pencil is a trademark ot Michael Shrayer Software 



A^HeXAGON 

VSYSTeMS 



PO. Box 397, Station A ^125 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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position in the list to subsequent positions. 

Linear selection assumes the first item in 
the list to be the smallest. This is then com- 
pared with the second through the Nth 
items until a smaller item is found or the 
end of the list is reached. 

If a smaller item is found, the remaining 
list is compared to it. If not, then the first 
item is placed in the first position of the out- 
put (sorted) list. The position it occupied in 
the original list is converted to a dummy 
value. 

For our purposes, the dummy value will 
be equal to - 999. This dummy is necessary 
to avoid comparing the original value during 
subsequent passes of the sorting process. 

The sorting procedure continues, choos- 
ing the next available item in the list as the 
next smallest item, and scanning the rest of 
the list (skipping the dummy items) until the 
next smallest is found. This item is placed 
in the output list and its position is filled 
with the dummy value. 

Fig. 1 is an example of linear selection 
sorting. Program Listing 1 is the pro- 
grammed routine that produces Fig. 1. 

ORIGINAL ITEMS 8 9 li ? ? 7 2 6 1 

PASS # 1 ITEMS 089h357?61 

PASS # ? ITEMS 01 9 h 3 5 7 ? 6 8 

PASS # 3 ITEMS 01 ? h 3 57968 

PASS r h ITEMS 01 2 3 h 5 7 9 6 9 

PASS ,i $ ITEMS 01 ?3h57960 

PASS ,r 6 ITEMS 1 ?3L 57968 

P/-3S it 7 ITEMS 01 ? 3 156978 

PASS # 8 ITEMS 01 L' 3 li 5 6 7 9 8 

P/SS r 9 ITEMS 01 ? 3 h 5 6 7 8 9 

SORTiL ITEMS 1 ? 3 L 5 6 7 8 9 

COMPARISONS * 15 EXCHANGES ■ 7 

Fig. 2 

ORIGINAL ITEMS 809^357261 

PASS § 2 ITEMS 8 

PASS # 3 ITEMS 8 9 

PASS ff h ITEMS li 8 9 

PASS ;,' $ ITEMS 3 L 8 9 

PASS # 6 ITEMS 3 li 5 8 9 

PASS H 7 ITS-IS 3 L 5 7 8 9 

PASS # 8 ITEMS 023U5789 

PASS ff 9 ITEMS 023L56789 

PASS # 10 ITEMS 01 23L56789 

SORTED ITEMS 01 23L56789 

COMPARISONS = 26 EXCHANGES = 28 

Fig. 3 
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The number of comparisons made during 
any linear selection sort is equal to N 2 : It 
does not matter if the items are already 
sorted in random order, or in reverse order. 
Since each item on the original list is 
transferred to an output list, the number of 
exchanges is equal to N. Extra storage re- 
quirements for the linear selection sort will 
also be equal to N; that is, the size of the 
original list must be duplicated for the out- 
put list. 

Linear Selection with Exchange 

Linear selection with exchange differs 
from the previous technique in that the final 
sorted items reside in the original list rather 
than in a separate output list. This saves a 
substantial amount of memory, namely, N 
locations that were required for the sepa- 
rate output. The linear selection with ex- 
change sort is known as an in-place sorting 
process because the items are sorted in the 
original list. 

The search for the smallest item in the 
list is the same as described above. At the 
end of each pass, however, the item, held in 
temporary storage (T), exchanges place 
with the first item in the original list. Subse- 
quent passes begin with the next position, 
then the third, etc., since all previous posi- 
tions contain previously sorted items. Fig. 2 
represents the relevant locations given by 
the program in Program Listing 2. 

The number of comparisons, regardless 
of distribution, is equal to N 2 /2. The number 
of exchanges is equal to the number of 
passes throught the list, or N. There is no 
extra storage required. This alone makes 
the linear selection with exchange sort a 
particularly useful process. Also, the num- 
ber of comparisons is halved, which in- 
creases its speed. One minor disadvantage 



of this sort is that the coding is a bit more 
complex. 

Linear Insertion 

An insertion sort orders items as they are 
selected. In other words, an insertion sort is 
quite similar to a manual sort: an item is se- 
lected and inserted into its proper position 
relative to those items already sorted. This 
position may be anywhere in the list of 
sorted items. 

Linear insertion is quite useful when an 
already sorted list of items must be up- 
dated. For example, if a sorted mailing label 
list already exists and a new label arrives, 
this new label must be inserted into its 
proper position. When the new label's posi- 
tion is determined, a place is made for it by 
simply bumping forward the previously 
sorted items whose keys are greater than 
the new label's key. 

Linear insertion operates in the following 
manner: The first item of the list is assumed 
to be the smallest and is placed at the be- 
ginning of the output list. The second item 
is then compared with the single item 
already in the sorted list. If the second item 
is smaller than the first, an exchange is 
made between the two. Otherwise, the sec- 
ond item is simply transferred to the second 
position of the output list. Subsequent 
items are inserted into their proper posi- 
tions in the sorted list. When an item must 
be placed between two already sorted 
items, items that are larger than this new 
item are bumped forward on the list by one 
location. Program Listing 3 is the routine 
that outputs samples given in Fig. 3. 

The efficiency of this sort may be in- 
creased by sorting items in-place; that is, 
the original list becomes the sorted list 
after the routine runs to completion. Pro- 





Program Listing 2 


1000 


DIM A(10) 


1010 


N • 10 


1020 


FOR X = 1 TO 4 


1030 


CLS: 




PRINT"ORIGINAL ITEMS "; 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRINT A(K) ; 


1060 


NEXT K 


1070 


GOSUB 1170 


1080 


C = 0: 




E - 0: 




GOSUB 1180 


1090 


PRINT: 




PRINT-SORTED ITEMS 


1100 


FOR K = 1 TO N 


1110 


PRINT A(K) ; 


1120 


NEXT K 


1130 


PRINT: 




PRINT-COMPARISONS =" ;C; "EXCHANGES =";E: 




GOSUB 1170 


1140 


NEXT X 


1150 


END 


1160 


DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T = 1 TO 1000: 




NEXT T: 




RETURN 


1180 


• 




LINEAR SELECTION WITH EXCHANGE 


1190 


FOR P = 1 TO N-l 


1200 


• 




PUT ASSUMED SMALLEST ITEM POINTED TO BY A(P) INTO 




TEMPORARY STORAGE (T) . WHEN K = 0, ASSUMED SMALLEST 




Program continues 



Program continued 








ITEM IN A(P) 


IS, IN FACT, THE SMALLEST ITEM. 


1210 


T ■ A(P) : 
K = 




1220 








SEARCH FOR A 


SMALLER ITEM THAN THE ONE AT A(P). 


1230 


FOR L ■ P+l TO 


N 


1240 


C - C + 1: 






IF T >= A(L) 


THEN T = A(L) : 
K = L 


1250 


NEXT L 




1260 


■ 






SMALLEST ITEM 


IS AT A(K) IF K NOT EQUAL TO ZERO, ELSE 




SMALLEST ITEM 


IS AT A(P) . 


1270 


IF K X THEN 


T = A(P) : 
A(P) = A(K) : 
A(K) = T: 
E = E + 1 


1280 


■ 






TAKE SNAPSSHOTS. 


1290 


PRINT: 






PRINT "PASS 1 


";P;"ITEMS "; 


1300 


FOR KK = 1 TO N 


1310 


PRINT A(KK) ; 


1320 


NEXT KK: 
GOSUB 1170 




1330 


NEXT P 




1340 


RETURN 




1350 


END 





1000 


DIM A(10), S(10) 


1010 


N • 10 


1020 


FOR X ■ 1 TO 4 


1030 


CLS: 




PRINT-ORIGINAL ITEMS "; 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRINT A(K) ;: 




S(K) = -999 


1060 


NEXT K 


1070 


GOSUB 1170 


1080 


C = 0: 




E - 01 




GOSUB 1180 


1090 


PRINT: 




PRINT'SORTED ITEMS " ; 


1100 


FOR K = 1 TO N 


1110 


PRINT S(K) ; 


1120 


NEXT K 


1130 


PRINT: 




PRINT-COMPARISONS =" ;C; "EXCHANGES =";E: 




GOSUB 117 


1140 


NEXT X 


1150 


END 


1160 


DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T = 1 TO 1000: 




NEXT T: 




RETURN 


1180 


• 




LINEAR INSERTION 


1190 


• 




INSERT FIRST ITEM INTO SORTED LIST. 




INITIALIZE END OF SORTED LIST POINTER (SP) . 


1200 


S(l) = A(l): 




SP = 2 


1210 


FOR P = 2 TO N 


1220 


J = 1 


1230 


• 




FIND NEXT ITEM'S PROPER POSITION IN SORTED LIST. 


1240 


C = C + 1: 




IF A(P) < S(J) THEN 1270 


1250 


J = J + 1: 




IF J X SP THEN 1240 




ELSE S(SP) = A(P) : 




E = E + 1: 




GOTO 1310 


1260 


• 




BUMP UP ITEMS TO MAKE ROOM FOR INSERTION OF NEW ITEM. 


1270 


FOR K = SP TO J+l STEP -1 


1280 


S(K) = S(K-l) : 




E = E + 1 


1290 


NEXT K 


1300 


S(K) = A(P) 


1310 


SP = SP + 1 


1320 


' 




TAKE SNAPSHOTS. 


1330 


PRINT: 




PRINT-PASS l";P;"ITEMS "; 


1340 


FOR KK = 1 TO SP-1 


1350 


PRINT S{KK) ; 


1360 


NEXT KK: 




GOSUB 1170 


1370 


NEXT P 


1380 


RETURN 


1390 


END 




Program Listing 3 



X .«_. . - X 




CURVPLOT Rapidly plots nearly? 
any uur defined function (even y 
discontinuous function!). g 
CURVFIT Detereines coeff ic- ? 
ients for all polynomial! up tog 
14th degree through large I of 5 
data point!. 2 

POLYSOLV Solve! any polynomial § 
of any degree for all roots, 2 
including real and imaginary. § 

ANY OF THE ABOVE PR08RAN8 ON: 8 
Cass 16K LVII $13.95/2 for 21.93 § 
Foreated disk 32/48K .... $14.95 ? 

$»»>» BONUS PACKAGE «««<$ f 
for disk user!. Above threes 
prograi! provide a poiterful tool § 
for data analysis or instruction 2 
formatted disk $29.00 § 




►-See List of Advertisers on page 322 
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^ ATTENTION INVESTORS! 

' 509 COMMODITY AND STOCK 

MARKET ANALYSIS 

SOFTWARE 
THE ANALYST II 

Calculates Wilder Indicators for DM I. RSI. 
Paraooiic/Time Price Systems Eiimmates 
tedious calculations 

THE DRIVER A Suoero Commodity 
and Stock Market Analysis Program 
AdaptaDie to Most Trading Systems Has 
Simulator and Optimization Mode 

FOR MOD I, II, AND III 
y' User oriented iusi oad orogram ana go 
v x Market tested 

1/ use commercial aata dies or make your own 
</ Graonic caoaomties 
•/ Printer ootions 

v' Gear 3na comoiete Jocumentat-on 
v Monitor numerous marKetS >n iuSt minutes oer 3ay 
JVRUE FOR FREE CATALOG 

MANAGEMENT SERVICES 

DEPT 80 

2901 CLENDENEN LANE PHONE 

LONGVIEW TX 75601 (214)757-4558 



TRS-80* COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 

(Quantity Discounts Available) 

Eigen 

Systems P. O. Box 10234 

Austin, Texas 78766 
(512) 837-4665 

— Assembly Language Rom Cartridges 
—Custom Programming Services 
TRS*-80 is a trademark of Tandy Corp. 






m& 



You've Written 
a Fantastic Game? 
Then We'd Like to Publish It! 
We're looking for hot GAME pro- 
grams: 

ARCADE (HI-SPEED GRAPHICS) 
ADVENTURE FORMAT 
FANTASY WARGAMING 
BOARD GAMES 
LOGIC & PUZZLE GAMES 

There's Gold in them there 
Games! Write for our free 
Programmer's Kit today. 

INSTANT SOFTWARE, INC. "2 

Submissions Dept. 

Peterborough, NH 03458 



gram Listing 4 shows the code for this re- 
vised routine. Fig. 4 is the sample output 
from the linear insertion with exchange 
sorting method. 

Bubble Sort 

The bubble sort can be compared to the 
activity that takes place within a glass of 
carbonated beverage; the lighter (smaller) 
bubbles (items) tend to rise to the top (be- 
ginning) of the glass (list), while the heavier 
(larger) bubbles (items) tend to remain at the 
bottom (end) of the glass (list). 

The bubble sort selects an item and ex- 
changes it with larger items on its way up 
the list. When it meets a smaller item, it 
stops "bubbling"; that is, the searching pro- 
cess for a new smaller item begins again 



ORIGINAL ITEMS 8091357261 

PASS ii 1 ITEMS 809h3?726l 

PASS & 2 ITEMS 089U357261 

PASS .? 3 ITEMS 0891357261 

PASS ■;' h ITEMS 01^89357261 

PASS if 5 ITEMS 03 I 8957261 

PASS if 6 ITEMS 031*5897261 

PASS ,' 7 ITEMS 0315789261 

PASS ,-; 8 ITEMS 023 li 578961 

PASS ,v 9 ITEMS 0231567891 

PASS J' 10 ITEMS 01 23U56789 

SORTED ITEMS 01 23U56789 

COMPARISONS = 36 EXCHANGES = 27 

Fig. 4 



with a different item. Another item is se- 
lected and the bubbling continues until all 
the items have bubbled to their proper posi- 
tions in the list. 

The bubble sort uses a flag (the variable 
F$) which allows the number of passes 
through the list to be variable rather than 
fixed. When the value of the flag is true 
(F$ = T) after a completed pass, this signals 
the computer that no exchanges were made 
during this pass; therefore, the items are in 
sorted order. 

When the variable F$ is false, an ex- 
change has been made and a subsequent 
pass is necessary. 

The sample in Fig. 5 is taken from Program 
Listing 5. It should be readily apparent that 
the smaller items bubble up the list. Follow 
a particular item as it travels from its origi- 
nal position to its final postion in the sorted 
list. 

Under average, that is, random condi- 

0RIGINAL ITEMS 8091357261 

PASS 1 ITEMS 081 9 U 3 5 7 2 6 

PASS # 2 ITEMS 01 8 2 9 l 3 5 7 6 

PASS # 3 ITEMS 01 28391)567 

PASS # It ITEMS 01 2381i9567 

PASS # 5 ITEMS 01 2 3li 85 96 7 

PASS # 6 ITEMS 01 23h58697 

PASS # 7 ITEMS 01 23^56879 

PASS # 8 ITEMS 01 23^56789 

SORTED ITEMS 01 2 3 li ? 6 7 8 9 

COMPARISONS - U5 EXCHANGES = 27 

Fig. 5 



Program Listing 4 



1000 


DIM A(10) 








1010 


N = 10 








1020 


FOR X = 1 TO 4 








1030 


CLS: 










PRINT"ORIGINAL ITEMS 


" ! 




1040 


FOR K = 1 TO N 








1050 


READ A(K) : 
PRINT A(K) ; 








1060 


NEXT K 








1070 


GOSUB 1170 








1060 


C = 0: 
E = 0: 
GOSUB 1180 








1090 


PRINT: 










PRINT-SORTED ITEMS 


" ; 




1100 


FOR K = 1 TO N 








1110 


PRINT A(K) ; 








1120 


NEXT K 








1130 


PRINT: 










PRINT-COMPARISONS 


= ";C 


"EXCHANGES =" 


R 




GOSUB 117 








1140 


NEXT X 








1150 


END 








1160 


DATA 0, 1, 2, 3, 4, 


5, 6 


7, 8, 9: 






DATA 9, 8, 7, 6, 5, 


4, 3 


2, 1, 0: 






DATA 8 , , 9 , 4 , 3 , 


5, 7 


2, 6, 1: 






DATA -7, 3, -9, -7, 


0, 6 


6, 4, 5, -1 




1170 


FOR T = 1 TO 1000: 

NEXT T: 

RETURN 








1180 


' 










LINEAR INSERTION 


WITH 


EXCHANGE. 




1190 


FOR P m 1 TO N 








1200 


' 
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Program continued 






TEMPORATY STORAGE (T) HOLDS ITEM TO INSERT. 


1210 


T = A(P) 


1220 


' 




FIND POSITION WHERE THIS ITEM ISS TO BE INSERTED. 


1230 


FOR K ■ P-l TO 1 STEP -1 


1240 


C = C + 1 


1250 


IF T >= A(K) THEN A(K+1) = T: 




GOTO 1290 




ELSE A(K+1) = A(K) : 




E = E + 1 


1260 


NEXT K 


1270 


1 




ITEM IN TEMPORARY STORAGE IS THE SMALLEST ITEM IN LIST. 


1280 


All) = T 


1290 


■ 




TAKE SNAPSHOTS. 


1300 


PRINT: 




PRINT'PASS l";P; "ITEMS 


1310 


FOR KK = 1 TO N 


1320 


PRINT A(KK) ; 


1330 


NEXT KK: 




GOSUB 117 


1340 


NEXT P 


1350 


RETURN 


1360 


END 



1000 


DIM A(10) 


1010 


N ■ 10 


1020 


FOR X = 1 TO 4 


1030 


CLS: 




PRINT-ORIGINAL ITEMS 


1040 


FOR K = 1 TO N 


1050 


READ A(K) : 




PRINT A(K) ; 


1060 


NEXT K 


1070 


GOSUB 1170 


108 


C = 0: 




E = 0: 




GOSUB 1180 


1090 


PRINT: 




PRINT-SORTED ITEMS "; 


1100 


FOR K = 1 TO N 


1110 


PRINT A(K) ; 


1120 


NEXT K 


1130 


PRINT: 




PRINT-COMPARISONS =" ;C; "EXCHANGES =";E: 




GOSUB 117 


1140 


NEXT X 


1150 


END 


1160 


DATA 0, 1, 2, 3, 4, 5, 6, 7, 8, 9: 




DATA 9, 8, 7, 6, 5, 4, 3, 2, 1, 0: 




DATA 8, 0, 9, 4, 3, 5, 7, 2, 6, 1: 




DATA -7, 3, -9, -7, 0, 6, 6, 4, 5, -1 


1170 


FOR T = 1 TO 1060: 




NEXT T: 




RETURN 


1180 


• 




SHELLSORT. 


1190 


. 




DISTANCE PARAMETER (D) DETERMINATION. 


1200 


D = INT ( N / 2 ) : 




PP = 


1210 


FOR P = 1 TO N-D 


1220 


1 




COMPARE THE J(TH) ITEM AGAINST THE ITEM D DISTANCE AWAY. 


1230 


J ■ P: 




EE = 


1240 


C = C + 1: 




IF A(J) <= A(J+D) THEN 1290 


1250 


' 




EXCHANGE ITEMS. 


1260 


T = A(J): 




A(J) = A(J+D) : 




A(J+D) = T: 




J = J - D: 




E ■ E + 1: 




u 


1270 


■ 




LOOP BACK TTO COOPARE AS LONG AS POINTER J IS VALID. 


128 


IF J > THEN 1240 


1290 


• 




TAKE SNAPSHOTS. 


1300 


PP = PP + 1: 




PRINT: 




PRINT'PASS »";PP; "ITEMS "; 


1310 


FOR KK ■ 1 TO N 


1320 


PRINT A(KK) ; 


1330 


NEXT KK 


1340 


GOSUB 117 


1350 


NEXT P 


1360 


D = INT ( D / 2 ) : 




IF EE - THEN 1380 


1370 


IF D > THEN 1210 


1380 


RETURN 


1390 


END 




Program Listing 5 



tions of distribution, there will be N 2 /4 com- 
parisons and exchanges during the course 
of a bubble sort. A worst case condition 
(reverse initial order) will require N 2 /2 com- 
parisons and exchanges. The minimum 
number of exchanges for the best case 
(items already sorted) will be zero, while the 
minimum number of comparisons will be 
equal to N-1. 

Though the bubble sort represents a sub- 
stantial increase in sorting efficiency of 
those methods examined so far, the bubble 
sort is not the ultimate sorting technique. 
The methods that we have examined repre- 
sent some of the most easily coded sort 
routines available. However, efficiency will 
increase and coding will become more in- 
volved as we venture further into more 
sophisticated sorting techniques.B 

Next month: Shell sort, quick sort, vector 
sort, and merge sort routines. 
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LNW80 COMPUTERS □ 

• 446 • 

100% TRS-8CT mod 1 or 3 d 

COMPATIBLES + HI-RES BW • 
AND COLOR GRAPHICS! D 



IN STOCK NOW!! call for 

SPECIAL DISCOUNT PRICE ! 



» 



K Electronics *** 

180 W00DR0W WILSON DR. 
LOS ANGELES, CA 



(213) 851-0626 

(714) 973-1939 

ORDER LINE OPEN 24 HRS 

INFO m-f 6-9pm 9-9 S&S 
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<\\&^^ If You ' ve Written 

(^H» S-mie-oftheArt Software - 

We 'd Like to Publish It! 

We're looking for SYSTEM software: 
DISK OPERATING SYSTEMS 
MONITORS 

PROGRAMMER AIDS/UTILITIES 
LANGUAGES 
DATA BASE SYSTEMS 
Then, sit back and collect your 
royalty checks. Write for our free 
Programmer's Kit today! 

INSTANT SOFTWARE, INC. ' 2 

Submissions Dept. 

Peterborough, NH 03458 
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LOAD80 
Armed and Ready 



This month begins a column 
devoted to our exciting 
LOAD80 project. LOAD80, de- 
signed to save you time and ef- 
fort by eliminating the need to 
type in the long programs fea- 
tured in the magazine, has been 
enthusiastically received. This 
column will bring you news 
about LOAD80. We hope to pro- 



vide you with an index to the pro- 
grams which will appear on 
each month's tape. Also, there 
will be readers' comments, tape 
loading hints, suggestions and 
other valuable information 
about LOAD80. 

LOAD80 tapes are recorded at 
a cassette baud rate of 500. 
Many of our readers who own 



Pgm# 


Filename 


Page# 


Comments 


1 


FRKNSTN 


92 


None 


2 


TANK 


104 


None 


3 


SPCEMP 


106 


None 


4 


STRGURD 


116 


None 


5 


RACE 


122 


None 


6 


EPEXCR 


126 


None 


7 


EPSLCT 


126 


None 


8 


LASTTEST 


136 


None 


9 


MORSE 


150 


None 


10 


MESSAGE 


150 


None 


11 


DATGEN/SRC 


168 


Needs EDTASM 


12 


VIDSPC 


180 


None 


13 


RELSHP 


192 


None 


14 


VCESYN 


208 


None 


15 


SRTSOFSR 


214 


None 


16 


DISAS 


240 


None 


17 


PHODEX 


248 


None 


18 


SPRUSR/SRC 


256 


Needs EDTASM 


19 


DIRPROG 


270 


None 


20 


STRTRK 


86 


None 


21 


CMDFIL 


278 


None 



Model Ills have asked if there 
will be a 1500 baud version of 
LOAD80. At this time, there are 
no plans to offer this tape at the 
high baud rate. Mod. Ill owners 
should select the 'L' cassette 
baud rate before trying to load 
LOAD80. (No, we are not plan- 
ning to offer a disk or a stringy 
floppy version either, sorry.) 

The tape duplication of the 
LOAD80 cassettes is handled by 
Instant Software, with expert 
technicians working long hours 
to produce quality tapes. There 
always seem to be a few worms 
in every apple crate, however, 
and you may receive a LOAD80 
tape that won't load. Here's 
what you should do: 

1. Pull the Earplug out of your 
cassette recorder and listen 
to the tape signal. If it wavers, 
or isn't there at all, you've got 
a bad tape. 

2. If the signal sounds a little 
muted, not sharp and clear, 
you may need to have your 
tape recorder heads aligned. 



3. If the tape is bad, return it 
for replacement to: 

LOAD80 

Attn: Laurie Eaton 
80 Pine Street 
Peterborough, NH 03458 
(603) 924-6532 

Due to the overwhelming re- 
sponse to our LOAD80 offering, 
delivery of the tapes does not 
begin until the middle of the 
month in which the magazine 
appears. So look for your August 
LOAD80 tape after the 15th of 
the month. Our Circulation 
Department is putting together 
a subscription plan for LOAD80. 
Look for details this fall in 80 
Microcomputing. 

Sorry; the two source code 
listings of Gil Spencer's pro- 
gram in our July issue are not 
available to LOAD80 subscrib- 
ers. 

If you have any thoughts 
about LOAD80 you'd like to 
share, send them to this column 
at the above address. ■ 




If you'd like lo know NOW. belore the big game 
With PROCAP ana your TRS-BOV you can use statistics and 
probability theory to predict the results of this week's big 
games And more. PROCAP 

• Gives offensive and defensive ratings for every 
National Football League team 

• Predicts range of results and probable score for 
each game 

• Allows computer matchup of any two teams 
{Great for playoffs 1 ) 

• Gives "up-to-the-minute" standings, statistics, 
and ratings for each NFL Division 

PROCAP is easy to use and comes with extensive documen 

Ouk or cassette version is only $49 95 

To order, call our toll tree number NOW Money back 
guarantee, so you can't lose 

Dial (800) 543-3000. operator 400 

In Ohio, dial (»O0) 582-1364 operator 400 
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Dynamic Report Generator 



No Programming Required 



• Maintain different data files, each with its own set 
of internal logical relationships. 

• Permits user to define customized report formats 
and column headings. 

• Specify arithmetic relationships between columns. 

• Automatic sorting and file compression. 

• Keyed index for rapid retrieval of data. 

• Redefine index by exchanging it with other report 
columns. 

• Flexible add, delete, and list modes. 

• Edit mode allows headings and arithmetic relation- 
ships to be altered without re-entering data. 

• List mode allows for selected ranges and optional 
sub-totals. 

FOR USE ON 48K-TRS-80 MOD 1, 
1 DISK AND PRINTER. 

PRICE: $14.95 INCLUDES DISK, 

44 PAGE BOOKLET, SHIPPING AND HANDLING. 



DYNAMIC 

58-04 208th Street, 




^242 

SOFTWARE 



aystde, NewVork ii(f>4 



Portions copyrighted by Microsoft, 1980 
TRS-80 is a registered trademark of Tandy Corp. 



^ i^r^ I f You ' ve Written 

a Useful Program- 
We'd Like to Publish It! 

We want programs for 
INDUSTRIAL applications: 

JOB COST ESTIMATES 
INDUSTRIAL (PROCESS) CONTROL 
JOB TRACKING 
MACHINE SCHEDULING 

Get published and earn royalties! 
Write for our free Programmer's 
Kit today. 

INSTANT SOFTWARE, INC. 

Submissions Dept. 

Peterborough, NH 03458 
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• INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING-BK1219— by Michael 
P. Zabinski. Written by an experienced educator, this is 
the book tor those beginners who want to learn about 
computers without having to become an expert. It has 
practical programs, usetul line-byline comments, ex- 
cellent flowcharts accompanied by line numbers and 
over 200 exercises which help the reader assess prog- 
ress, reinforce comprehension, and provide valuable 
practical experience. $10.95." 

• 50 BASIC EXERCISES— BK1192— by J. P. Lamoitier 
This book is structured around the idea that the best 
way to learn a language is through actual practice It 
contains 50 completely explained exercises: state- 
ment and analysis of the problem, flowcharts, pro- 
grams and actual runs Program subiects include 
mathematics, business, games, and operations re- 
search, and are presented in varying levels of diffi- 
culty This format enables anyone to learn BASIC rap- 
idly, checking their progress at each step $12.95" 

• THE BASIC HANDBOOK — BK1 174 — by David Lien 
This book is unique It is a virtual ENCYCLOPEDIA of 
BASIC While not favonna one computer over another, 
it explains over 250 BASIC words, how to use them and 
alternate strategies If a computer does not possess 
the capabilities of a needed or specified word, there 
are often ways to accomplish the same function by us- 
ing another word or combination of words That's 
where the HANDBOOK comes in It helps you get the 
most from you' computer, be it a "bottom-ofthe-line" 
micro or an oversized monster $14 95 ' 

• LEARNING LEVEL II-BK1 175-by David Lien Writ- 
ten e c -Dec ...iy for the TRS-80. this book concentrates 
on Level II BASIC, exploring every important BASIC 
language capability Updates are included for those 
who have studied the Level I User's Manual Sections 
include how to use the Editor, dual cassette opera- 
tion, printers and peripheral devices, and the conver- 
sion of Level I proqrams to Level II $15.95." 

• BASIC BASIC (2ND EDITION)- BKl026-by James 
S Coan This is a textbook which incorporates the 
learning of computer programming using the BASIC 
language with the teaching of mathematics Over 100 
sample programs illustrate the techniques of the BA 
SIC language and every section is followed by practi- 
cal problems. This second edition covers character 
string handling and the use of data files $10.50 ' 

• ADVANCED BASIC — BK1000— Applications, includ- 
ing strings and files, coordinate geometry, area, se- 
quences and series, simulation, graphing and games 
$10 75" 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition)- BKl073-by Donald 
Spencer, provides the serious student of BASIC pro- 
gramming with interesting problems and solutions. No 
knowledge of math above algebra required. Includes a 
number of game programs, as well as programs for 
financial interest, conversions and numeric manipula- 
tions. $6 95 " 



• PASCAL— BK1 188— by Paul M. Chirlian. Professor 
Chirlian's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work- 
ing from a terminal as well as batch operation and 
debugging. Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for the 
convenience of the experienced programmer. Well in- 
dexed. $12.95" 

• INTRODUCTION TO PASCAL-BK1189-by Rodnay 
Zaks. A step-by-step introduction for anyone wanting 
to learn the language quickly and completely. Each 
concept is explained simply and in a logical order. All 
features of the language are presented in a clear, easy- 
to-understand format with exercises to test the reader 
at the end of each chapter. It describes both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect for small computers. No computer or program- 
ming experience is necessary. $14.95." 

• PROGRAMMING IN PASCAL— BK1 140— by Peter 
Grogono. The computer programming language 
PASCAL was the first language to embody in a coher- 
ent way the concepts of structured programming, 
which has been defined by Edsger Dijkstra and C.A.R. 
Hoare. As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Niklaus Wirth in Zurich; it is derived from the language 
ALGOL 60 but is more powerful and easier to use. 
PASCAL is now widely accepted as a useful language 
that can be efficiently implemented, and as an ex- 
cellent teaching tool. It does not assume knowledge of 
any other programming language; it is therefore suit- 
able for an introductory course. $12.95." 

—GAMES— 



• PAYROLL WITH COST ACCOUNTING-IN BASIC- 

BK1001 — by L. Poole & M. Borchers, includes program 
listings with remarks, descriptions, discussions of the 
principle behind each program, file layouts, and a com- 
plete user's manual with step-by-step instructions, 
flowcharts, and simple reports and CRT displays. Pay- 
roll and cost accounting features include separate 
payrolls for up to 10 companies, time-tested interac- 
tive data entry, easy correction of data entry errors, job 
costing (labor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W-2 and 941 (in CBASIC). $20.00." 

• SOME COMMON BASIC PROGRAMS-BK1053- 

pubhshed by Adam Osborne & Associates, Inc. Perfect 
for non-technical computerists requiring ready-to-use 
programs. Business programs, plus miscellaneous 
programs. Invaluable for the user who is not an ex- 
perienced programmer. All will operate in the stand- 
alone mode. $14.99 paperback. 

• PIMS: PERSONAL INFORMATION MANAGEMENT 

SYSTEM — BK1009— Learn how to unleash the power 
of a personal computer for your own benefit in this 
ready-to-use data-base management program. 
$11.95." 

-MOMEYMAKING— 
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• 40 COMPUTER GAMES- BK7381 — Forty games in all 
in nine different categories. Games for large and small 
systems, and even a section on calculator games. Many 
versions of BASIC used and a wide variety of systems 
represented. A must for the serious computer games- 
man. $7.95" 

• BASIC COMPUTER GAMES— BK1074— Okay, so 
once you get your computer and are running in BASIC, 
then what? Then you need some programs in BASIC, 
that's what. This book has 101 games tor you from very 
simple to real buggers. You get the games, a descrip- 
tion of the games, the listing to put in your computer 
and a sample run to show you how they work. Fun. Any 
one game will be worth more than the price of the book 
for the fun you and your family will have with it. $7.50." 

• MORE BASIC COMPUTER GAMES— BK1182 — 
edited by David H. Ahl. More fun in BASIC! 84 new 
games from the people who brought you BASIC Com- 
puter Games. Includes such favoritesas Minotaur(bat- 
tle the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample run. $7.50." 

• WHAT TO DO AFTER YOU HIT RETURN-BK1071 — 
PCC's first book of computer games. . .48 different 
computer games you can play in BASIC. . programs, 
descriptions, many illustrations. Lunar Landing, Ham- 
murabi, King, Civel 2, Qubic 5, Taxman, Star Trek, 
Crash, Market, etc. $10.95." 








• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003— In 10 information-packed chapters, Jerry 
Felsen describes more than 30 computer-related, 
money-making, high profit, low capital investment op- 
portunities. $15.00." 

• HOW TO SELL ANYTHING TO ANYBODY-BK7306- 

According to The Guinness Book ol World Records, the 
author, Joe Girard, is "the world's greatest salesman." 
This book reveals how he made a fortune— and how you 
can, too. $2.25." 

•THE INCREDIBLE SECRET MONEY MACHINE- 
BK1178— by Don Lancaster. A different kind of "cook- 
book" from Don Lancaster. Want to slash taxes? Get 
free vacations? Win at investments? Make money from 
something that you like to do? You'll find this book 
essential to give you the key insider details of what Is 
really involved in starting up your own money machine. 
$5.95." 
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• TRS-80 ASSEMBLY LANGUAGE-BK1217-by 
Hubert S. Howe, Jr. This book incorporates into a 
single volume all the pertinent facts and information 
you need to know to program and enjoy the TRS-80 
eluded are clear presentations of all introductory con- 
cepts, completely tested practical programs and sub- 
routines, details of ROM and RAM and disk operating 
systems, plus comprehensive tables, charts and ap- 
pendices. Suitable for the first time user or more ex- 
perienced users. $9.95." 

• INSIDE LEVEL II- BK1 183— For machine language 
programmers' This is a comprehensive reference 
guide to the Level II ROMs, allowing easy utilization of 
the sophisticated routines they contain It concisely 
explains set-ups. calling sequences, variable passage 
and I/O routines Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com 
piler Special consideration is given to disk systems 
$15 95 * 

• PROGRAMMING THE Z-80-BK1 122-by Rodnay 
Zaks Here is assembly language programming 'or the 
Z-80 presented as a progressive, step-by step course 
This book is both an educational text and a self 
contained reference book, useful to both the beginning 
and the experienced programmer who wish to learn 
about the Z-80 Exercises to test the reader are includ- 
ed. $14 95 • 

• Z-80 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK<045 — by Nat Wadsworth Scelbi's newest 
cookbook 1 This book contains a complete description 
of the powerful Z-80 instruction set and a wiae variety 
of programming information Use the author s ingre- 
dients including routines, subroutines and short pro- 
grams choose a time tested recipe and start cooking 1 
$16 99 • 

• Z 80 ASSEMBLY LANGUAGE PROGRAMMING- 

BK1 177 — by Lance A Leventhal This book thoroughly 
covers the Z-80 instruction set, abounding in simple 
programming examples which illustrate software de 
velopment concepts and actual assembly language 
usage Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure $16.99." 

• VOL. I COMPONENT TESTERS-LB7359- how 
to Duiid transistor testers (8). diode testers (3), IC test- 
ers (3). voltmeters and VTVMs |9|. ohmmeters 18 differ 
ent kinds), inductance (3). capacity (9). Q measure- 
ment, crystal checking (6). temperature (2), aural 
meters for the blind (3) and all sorts of miscellaneous 
data on meters . using them, making them more ve' 
satiie. making standards invaluable book $4 95 ' 

• VOL. II AUDIO FREQUENCY TESTERS- LB7360- 
. jam packed with all kinds of audio frequency test 
equipment If you're into SSB. RTTY. SSTV. etc.. this 
book is a must for you . a good book 'or hi-fi addicts 
and experimenters, too 1 $495." 

• VOL. Ill RADIO FREQUENCY TESTERS -LB7361- 

Radio frequency waves, the common denominator of 
Amateur Radio. Such items as SWR. antenna im- 
pedance, line impedance, rf output and field strength; 
detailed instructions on testing these items includes 
sections on signal generators, crystal calibrators, grid 
dip oscillators, noise generators, dummy loads and 
much more. $4.95.* 

• VOL. IV IC TEST EQUIPMENT-LB7362-Become a 
troubleshooting wizard! In this fourth volume of the 73 
TEST EQUIPMENT LIBRARY are 42 home construction 
projects for building test equipment to work with your 
ham station and in servicing digital equipment. Plus a 
cumulative index for all four volumes for the 73 TEST 
EQUIPMENT LIBRARY $4.95 .* 



• MICROCOMPUTING CODING SHEETS Microcomputing's dozen or so program- 
mers wouldn't try to work without these handy scratch pads, which help prevent the 

ittle errors that can cost hours and hours of programming time. Available for pro- 
gramming is Assembly/Machine Language (PD1001), which has columns for ad- 
dress, instruction (3 bytes), source code (label, op code, operand) and comments: 
and for BASIC (PD1002) which is 72 columns wide. 50 sheets to a pad. $2.39." 



PROGRAMMING 



The Microprocessor Software Engineering Series by John Zarrella provides common 
sense descriptions of advanced computer system topics for engineers, program- 
mers and development managers. Each volume is a self-contained review of a soft- 
ware engineering topic, explaining fundamental concepts in easy-tounderstand 
language and describing sophisticated software tools and techniques. Detailed 
glossary of technical jargon is included in each volume. This series will help you find 
the solutions to your software problems. 

• OPERATING SYSTEMS: CONCEPTS AND PRINCI 
PLES- BK1 193 — Presents an overview of the basic op- 
erating system types, their components and capabil 
Hies $7 95 * 

• WORD PROCESSING AND TEXT EDITING- BK1 194 
-Provides a lirm basis for understanding word pro 

cessing terminology and for comparing systems 

$7 95 * 

• SYSTEM ARCHITECTURE-BK1195 -Present, a 
detailed overview of advanced computer system 
oesign including object architecture and capability 
based addressing $9 95* 
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THE APPLE II USER'S GUIDE-BK1220-by Lon 
Poole, Martin McNiff, and Steven Cook This guide is 
the key to unlocking the full power of your Apple II or 
Apple II Plus. Topics include: "Applesoft and integer 
BASIC Programming "- especially how to make the 
best use of Apple's sound, color and graphics capabili- 
ties. "Machine Level Programming," "Hardware 
Features" — which covers the disk drive and printer. 
and Advanced Programming" — describing high 
resolution graphics techniques and other advanced 
applications. Well organized and easy to use $15 00 ' 

• PROGRAMMING THE 6502 (Third Edition)— BK1005 
— Rodnay Zaks has designed a self-contained text to 
learn programming, using the 6502. It can be used by a 
person who has never programmed before, and should 
be of value to anyone using the 6502 The many exer- 
cises will allow you to test yourself and practice the 
concepts presented $12 95" 

• 6502 APPLICATIONS BOOK — BK 1006— Rodnay Zaks 
presents practical-application techniques for the 6502 
microprocessor, assuming an elementary knowledge of 
microprocessor programming You will build and design 
your own domestic-use systems and peripherals. Self- 
test exercises included. $12.95 * 

• 6502 ASSEMBLY LANGUAGE PROGRAMMING- 

BK1176— by Lance A. Leventhal This book provides 
comprehensive coverage of the 6502 microprocessor 
assembly language. Leventhal covers over 80 program 
ming examples from simple memory load loops to 
complete design protects. Features include 6502 as- 
sembler conventions, input/output devices and inter- 
facing methods, and programming the 6502 interrupt 
system $16.99 * 

• 6502 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK1055— by Robert Findley This book intro- 
duces the BASIC language programmer into the realm 
of machine-language programming. The description of 
the 6502 structure and instruction set, various 
routines, subroutines and programs are the ingredi- 
ents in this cookbook "Recipes" are included to help 
you put together exactly the programs to suit your 
taste $1295.* 
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• 6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING-BK1215-by Andrew C Staugaard. 
Jr. Getting involved with Tandy's new Color Computer - ' 
If so, this new book from the Blacksburg Group will 
allow you to exploit the awesome power of the 
machine's 6809 microprocessor Detailed information 
on processor architecture, addressing modes, register 
operation, data movement, arithmetic logic opera- 
tions, I/O and interfacing is provided, as well as a 
review section at the end of each chapter Four appen- 
dices are included covering the 6809 instruction set. 
specification sheets of the 6809 family of processors, 
other 6800 series equipment and the 6809/6821 
Peripheral Interface Adapter This book is a must for 
the serious Color Computer owner $13.95.' 

• 68000 MICROPROCESSOR HANDBOOK -BK1216 

— by Gerry Kane. Whether you're currently using the 
68000. planning to use it, or simply curious about one 
ol the newest and most powerful microprocessors, 
this handbook has all the answers A clear presenta- 
tion of signal conversions liming diagram conven- 
tions, functional logic, three different instruction set 
tables, exception processing, and family support 
devices provides more information about the 68000 
than the manufacturer's data sheets A stand alone 
reference book which can also be used as a supple- 
ment to An Introduction to Microcomputers Vol 2— 
Some Real Microprocessors $6 99 .* 

• 8080A/8085 ASSEMBLY LANGUAGE PROGRAM- 
MING— by Lance Leventhal- BK1004 — Assembly lan- 
guage programming for the S080A/8085 is explained 
with a description of the functions of assemblers and 
assembly instructions, and a discussion of basic soft- 
ware development concepts Many fully debugged, 
practical programs are included as is a special section 
on structured programming $15.99 " 

• 8080 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK -BK1 102— If you have been spending too much 
time developing simple routines for your 8080, try this 
new book by Scelbi Computing and Robert Findley. De- 
scribes sorting, searching, and many other routines for 
the 8080 user. $12.95." 
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• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition to your 
computing library This two-part text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft- 
ware aspects of microcomputing. Well-known authors 
and well-structured text helps the reader get involved. 
$10.95" 

• SOME OF THE BEST FROM KILOBAUD MICROCOM- 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ- 
ed is material on the TRS-80 and PET systems, CP/M, the 
8080/8085/Z-80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large lormat, 200 plus page edition 
$1095." 



YOUR FIRST COMPUTER — BK1191 — by Rodnay 
Zaks. Whether you are using a computer, thinking 
about using one or considering purchasing one, this 
book is indispensable. It explains what a computer 
system is, what it can do, how it works and how to 
select various components and peripheral units. It is 
written in everyday language and contains invaluable 
information for the novice and the experienced pro- 
grammer. (The first edition of this book was published 
under the title "An Introduction to Personal and 
Business Computing") $7.95" 

• MICROPROCESSOR INTERFACING TECHNIQUES 

— BK1037— by Austin Lesea & Rodnay Zaks— will 
teach you how to interconnect a complete system and 
interface it to all the usual peripherals. It covers hard- 
ware and software skills and techniques, including the 
use and design of model buses such as the IEEE 488 or 
S-100. $15.95." 




• HOBBY COMPUTERS ARE HEREI-BK7322-K you 
want to come up to speed on how computers work, 
hardware and software. . .this is an excellent book. It 
starts with fundamentals and explains the circuits, and 
the basics of programming, along with a couple of TVT 
construction projects, ASCII-Baudot, etc. This book has 
the highest recommendations as a teaching aid. $4.95.* 

• THE NEW HOBBY COMPUTERS— BK7340-This 

book takes it from where "HOBBY COMPUTERS ARE 
HERE!" leaves off, with chapters on Large Scale Integra- 
tion, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O for a computer, com- 
puter arithmetic, checking memory boards... and 
much, much more! Don't miss this tremendous value! 
Only $4.95.' 

• AN INTRODUCTION TO MICROCOMPUTERS, VOL. 

— BK1 130— The Beginner's Book— Written for readers 
who know nothing about computers— for those who 
have an interest in how to use computers — and for 
everyone else who must live with computers and 
should know a little about them. The first in a series of 
4 volumes, this book will explain how computers work 
and what they can do. Computers have become an in- 
tegral part of life and society. During any given day you 
are affected by computers, so start learning more 
about them with Volume 0. $7.95." 

• VOL. l-BK1030-2nd Edition completely revised. 

Dedicated to the basic concepts of microcomputers 
and hardware theory. The purpose of Volume- 1 is to 
give you a thorough understanding of what microcom- 
puters are. From basic concepts (which are covered in 
detail). Volume I builds the necessary components of a 
microcomputer system. This book highlights the dif- 
ference between minicomputers and microcomputers 
$12.99." 

• VOL. II — BK1040 (with binder)— Contains descrip- 
tions of individual microprocessors and support 
devices used only with the parent microprocessor 
Volume II describes all available chips. $31.99" 

• VOL. Ill — BK1 133 (with binder)— Contains descrip- 
tions of all support devices that can be used with any 
microprocessor. $21.99* 



• TRS-80 DISK AND OTHER MYSTERIES-BK1 181- 

by Harvard C. Pennington This is the definitive work 
on the TRS-80 disk system It is full of detailed "How 
to" information with examples, samples and in-depth 
explanations suitable for beginners and professionals 
alike. The recovery of one lost file is worth the price 
alone. $22.50." 

• MICROSOFT BASIC DECODED AND OTHER 

MYSTERIES— BK1186-by James Farvour. From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES'. Contains more than 6500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them. Flowcharts for all major routines give the reader 
a real insight into how the interpreter works. $29.50. 
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• THE CUSTOM TRS-80 AND OTHER MYSTERIES— 

BK1218— by Dennis Kitsz. More than 300 pages of 
TRS-80 customizing information. With this book you'll 
be able to explore your computer like never before. 
Want to turn an 8 track into a mass storage unit? In- 
dividual reverse characters? Replace the BASIC 
ROMs? Make Music? High speed, reverse video, Level I 
and Level II? Fix it if it breaks down? All this and much, 
much more. Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how! This is the definitive guide to customizing your 
80! $29.95." 

• BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— BK1221— by Lewis Rosenfelder. You don't 
have to learn assembly language to make your pro- 
grams run fast. With the dozens of programming tricks 
and techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls. $22.50." 
Available end of August. 

• THE CP/M HANDBOOK (with MP/M)— BK1187-by 
Rodnay Zaks. A complete guide and reference hand- 
book for CP/M — the industry standard in operating 
systems. Step-by-step instruction for everything from 
turning on the system and inserting the diskette to cor- 
rect user discipline and remedial action for problem 
situations. This also includes a complete discussion 
of all versions of CP/M up to and including 2.2, MP/M 
andCDOS. $14.95". 

• INTRODUCTION TO TRS-80 GRAPHICS-BK1 180- 

by Don Inman. Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities? This well- 
structured book (suitable for classroom use) is ideal 
for those who want to use all the graphics capabilities 
built into the TRS-80. A tutorial method is used with 
many demonstrations. It is based on the Level I, but all 
material is suitable for Level II use. $8.95." 




• TOOLS & TECHNIQUES FOR ELECTRONICS- 

BK7348— by A. A. Wicks-is an easy-to-understand book 
written for the beginning kit builder as well as the ex- 
perienced hobbyist. It has numerous pictures and 
descriptions of the safe and correct ways to use basic 
and specialized tools for electronic projects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops. $4.95." 

• HOW TO BUILD A MICROCOMPUTER-AND REALLY 
UNDERSTAND IT— BK7325— by Sam Creason The elec 
tronics hobbyist who wants to build his own microcom- 
puter system now has a practical "How-To" guidebook. 
This book is a combination technical manual and pro- 
gramming guide that takes the hobbyist step-by-step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer 
systems. $9.95." 
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Still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III) 

MPI Disk Drives 

Model B/51 250K, 1 Side, 40 Tracks $321 .00 

B/52 500K, 2 Sides, 40 Tracks per side $439.00 

B/91 500K, 1 side, 80 Tracks $439.00 

B/92 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

10 Day Money Back Guarantee 

90 Days Parts and Labor Warranty .e*d s nDg , 

Here's just a few of the 
features of MPI Disk Drives 



Other Money Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-80 



2 Drive Cable 

4 Drive Cable 


$29.00 
$39.00 


Diskettes 




Verbatim 10fo 


r $31.00 


Syncom 10 fo 


r $35.00 


Plastic File Box. . . . 


$3.95 


Operating Systems 




TRSDOS2.3 

40 Track Patch .... 
NEWDOS + 


$14.95 
$9.95 

$99.00 


Newdos80 


$139.00 


TRSDOS Manual. . 


$5.95 


Super Utility 


$49.00 


Make 80 


$14.00 



16K Model III . . 


S899.00 


48K Model III 

w/2 Disks $1900.00 
Expansion Interface 

OK $274.00 

Printers 


Centronics 737-1 
IDS 460 


$815.00 
$1219.00 


Epson MX80. . . 
Okidata M80. . 


$55000 
$499.00 


Microline82 $650.00 

Microline83 $950.00 
Okidata prices include tractors 
NEC Spinwriter 5530 
(freight collect). $2579.00 
16K Memory Kits 


Prime NEC 200ns dynamic 
RAM. Comes with complete 
instructions $39.00 


MPI Service 

Manual 

MP! Engineering 

Manual 


$3.00 
$30.00 



40/80 Tracks 
5 ms track-to-track 
Auto-eject 
Hi-Temp stability 



Speed constant <1 V 2 % 
Single/double density 
Optical sensors— no switches 
102K per disk 



ADDS MORE POWER TO YOUR SYSTEM 

Save time . . . Order by phone 

Orders only: 1-800-621-3229 

Information: 312-987-1024 

Tech. assistance: 312-987-1032 



a 



p 



MIDWEST 

COMPUTER 

PERIPHERALS* 



1467 S. MICHIGAN 
CHICAGO, ILLINOIS 60605 



TRS 80 TANDY CORP 



FREE! UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Description 


$ each 


Total 


















































6% ILTax 
(Minimum order $50.00) TOTAL 







D Check enclosed 
Bill my D Visa D Am Ex 
□ Master Charge 
Acct No 



Name 

Address . 
City 



Exp.. 



State. 



Zip. 



Nol Responsible lot Typographical ErrofS Prices Subiecl to Change w o nolii 




TRS-80 Memory 
Add-On Kits 

Everything you need to up- 
grade your TRS-80. LOOK! We 
have Radio Shack up-grade but- 
tons. Specify 16, 32, or 48K but- 
ton with order. 

Cat No. 3133 Mod. Ill or Color Computer 
Cat No. 1 156B TRS-80 Exp. Interface 
Cat No. 1 1 56 TRS-80 keyboard 



$36.00 



Datasoft 

S*E«C.St 

S.E.C.S. is a screen edit control system 
for your TRS-80 color computer. It adds 
enchanced capabilities to your BASIC 
programming efforts. S.E.C.S. has a full 
screen editor, cursor control, auto repeat, 
insert, delete, relocate and more. Try a 
little S.E.C.S. today! 
Cat No. 3037 Color Computer, cass. $29.95 

Datasoft 

Football Classics 



The close football game that pits "real" pro 
players against each other. Using statistical 
models, you choose the teams and the players 
from past and present football greats. 

Cat No. 2922 TRS-80 modi. L2. 16K,cass. S 19.95 

Cat No. 2923 TRS-80 mod I. L2. 48K. disk S24.95 



Programmers Guild 
Dual Adventure 

Double your adventuring fun with "Spider Mountain" and "Lost 
Dutchman's Gold". 

Cat No. 2778 TRS-80 mod I, L2, 16K, cass. $24.95 

Spectral Assoc. 

Three favorites for your TRS-80 color computer. Written in 
machine language. Get all three! 

Cat No. 3157 Invaders, cass. S 2 1.95 

Cat No. 3158 Meteoroids. cass. $21.95 
Cat No. 3 159 Space War, cass. $21.95 

How To Order 

Order by phone or by mail. Pay by check. M/C, Visa or C.O.D. (COD 
SI. 40 addl.) Offer good in USA only. Expires Sept. 1, 1981. 

Tell us you saw our ad in 80 Micro and we pay UPS ground 
shipping and handling. (USA only). 




ELECTRONICS 



19511 Business Ctr. Dr., Dept. V8, Northridge, CA 91324 
(Outside Calif.) (800)423-5378 (In Calif.) (213)886-9200 

Write or phone for your FREE copy of the HW Electronics catalogue. 



Why use their flexible discs: 

Ampex, Athana, BASF, Caelus, Control Data, Dysan, 

IBM, Inmac, K-Line, Maxell, Nashua, Scotch, 

Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.99 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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Memorex Flexible Discs.. .The Ultimate in Memory Excellence 



Quality 

Memorex means quality products that you can depend on. 
Quality control at Memorex means starting with the best 
materials available. Continual surveillance throughout the 
entire manufacturing process. The benefit of Memorex's years 
of experience in magnetic media production, resulting, for 
instance, in proprietary coating formulations. The most sophis- 
ticated testing procedures you'll find anywhere in the business. 

100 Percent Error Free 

Each and every Memorex Flexible Disc is certified to be 100 
percent error free. Each track of each flexible disc is tested, 
individually, to Memorex's stringent standards of excellence. 
They test signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error. They are 
torque-tested, and competitively tested on drives available 
from almost every major drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you, our customer, of a quality product designed for 
increased data reliability and consistent top performance. 

Customer-Oriented Packaging 

Memorex's commitment to excellence does not stop with a 
quality product. They are proud of their flexible discs and they 
package them with pride. Both their packaging and their 
labeling have been designed with your ease of identification 
and use in mind. The desk-top box containing ten discs is 
convenient for filing and storage. Both box labels and jacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multi-language care 
and handling instructions and color-coded removable labels 
are included. A write-protect feature is available to provide 
data security. 

Full One Year Warranty — Your Assurance of Quality 

Memorex Flexible Discs will be replaced free of charge by 
Memorex if they are found to be defective in materials or 
workmanship within one year of the date of purchase. Other 
than replacement, Memorex will not be responsible for any 
damages or losses (including consequential damages) caused 
by the use of Memorex Flexible Discs. 



Quantity Discounts Available 

Memorex Flexible Discs are packed 10 discs to a carton and 
10 cartons to a case. Please order only in increments of 100 
units for quantity 100 pricing. We are also willing to accom- 
modate your smaller orders. Quantities less than 1 00 units are 
available in increments of 10 units at a 10% surcharge. 
Quantity discounts are also available. Order 500 or more 
discs at the same time and deduct 1%; 1,000 or more saves 
you 2%; 2,000 or more saves you 3%; 5,000 or more saves you 
5%; 1 0,000 or more saves you 7%; 2 5,000 or more saves you 
8%; 50,000 or more saves you 9% and 1 00,000 or more discs 
earns you a 1 0% discount off our super low quantity 1 00 price. 
Almost all Memorex Flexible Discs are immediately available 
from CE. Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it. If you need 
further assistance to find the flexible disc that's right for you, 
call the Memorex compatibility hotline. Dial 800-538-8080 
and ask for the flexible disc hotline extension 0997. In California 
dial 800-672-3525 extension 0997. 

Buy with Confidence 

To get the fastest delivery from CE of your Memorex Flexible Discs, 
send or phone your order directly to our Computer Products 
Division. Be sure to calculate your price using the CE prices in this 
ad. Michigan residents please add 4% sales tax. Written purchase 
orders are accepted from approved government agencies and 
most well rated firms at a 1 0% surcharge for net 1 billing. All sales 
are subject to availability. All sales are final. Prices, terms and 
specifications are subiect to change without notice. Out of stock 
items will be placed on backorder automatically unless CE is 
instructed differently. International orders are invited with a S20 00 
surcharge for special handling in addition to shipping charges. All 
shipments are FOB Ann Arbor, Michigan. No COD'S please. Non- 
certified and foreign checks require bank clearance. 

Mail orders to: Communications Electronics, Box 1002. Ann 
Arbor. Michigan 48 106 U.S.A. Add $8.00 percase or partial-case ol 
100 8-inch discs or S6.00 per case of 100 5'/4-inch mini-discs for 
U.P.S. ground shipping and handling in the continental U.S A. If you 
have a Master Charge or Visa card, you may call anytime and place 
a credit card order. Order toll-free in the United States. Call 
anytime 800-52 1 -441 4. If you are outside the U.S. or in Michigan, 
dial 313-994-4444. Dealer inquiries Invited. All order lines at 
Communications Electronics are staffed 24 hours. 
Copyright '1981 Communications Electronics" 



- — _ mum 



VISA 



Order Toil-Free! 
(800)521-4414 




For Data Reliability — Memorex Flexible Discs 



a 



COMMUNICATIONS 
ELECTRONICS™ **» 



Computer Products Division 

854 Phoenix D Box 1 002 D Ann Arbor, Michigan 48 1 06 U.S.A. 

Call TOLL-FREE (800) 521-4414 or outside U.S.A. (313) 994-4444 
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COMPUTERS 

ffcana I data 

systems 

List 

$2895 

OUR PRICE 

$2295 




SUPERBRAIN 

Bv INTERTEC 



MB 




w/64KDbl Density, List $3495 $2595 
w/64K Quad Density, List $3995 $2995 

CROMEMCO 

SYSTEM THREE 




NORTH STAR 

HORIZON TWO 



Horizon 2 32DD 



■if*.' 



$3095 $2289 



C.ill lor latest NorthSiar ,ind 
Ininmx ■ !••'» Puce* 



TERMINALS 

TeleVideo 




Televideo912C $679 

920C $799 

950 $999 

S0R0C 




Soroc 120 I «,! $995 



$689 

10.135 $719 



140 



$994 



ZENITH 



Z19 




$719 



INTERTUBE 




Intertube III List $89b 



$729 



PRINTERS 

CENTRONICS 




739-1, List $995 $769 

704-9 RS232 $1495 

704-11 Parallel $1569 

TI810 

Tl 810, Lis! $1895 $1489 

DISK SYSTEMS 
MORROW 




Thinker Tovs Discus 2D $939 

Dual Discus 2D $1559 

D-, us2 - 2. List $1549 $1259 

M26 Hard Disk, LiSI $4995 $3949 



COMPUTERS 
WHOLESALE 

22 P0 - Box 144 Camillus, NY 13031 { 

(315)412-2582 

Most items in stock lor immediate delivery Factory sealed cartons 
■■'full factory warranty NYS residents add apo'op'iate sales ta> 
Prices do not include shipping VISA and Mastet Charge add }'•> 
COD orders require ?5% deposit Prices subiect to change without 
notice 

y^2A 



►'See List ol Advertisers on page 322 
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'This advertiser prefers to be contacted directly. 



READER SERVICE 

This card valid until October 31, 1 98 1 



Please help us to bring you a 
better magazine — by answering 
these questions. 



I. What Is your age? 

: A under 18 
; B 18-22 

□ C. 23-40 
[) D. 41-60 
U E. over 60 

II. What Is your occupation? 

i Professional 
U 2. Engineer 

3 Data processing 
I i 4 Business 
I i 5. Education 
LJ 6. Technician 

7 Studenl 
: 8. Other 

III. What are your primary applica- 
tions of your TRS-80 (check only 
two)? 

A Business 
U'B. Games 

□ C. Home 

□ D. Education 
D E. Scientific 

F Control 
I G Music 

IV. Your TRS-80. is it a 

D 1. Level I 
2 Level II 
. 3. Model II 
[ ) 4 Don! own one yel 



V. What peripherals do you have 
(check all that apply)? 

A Expansion interface 
B Disk 
. C. Printer 

VI. How much have you spent on 
hardware? 

i less than $500 
D 2 $500-1.000 
! . 3. $1,000-2.000 
; 4. $2,000-4.000 

5 $4,000-6.000 
: : 6. more lhan $6,000 

VII. How much have you spent on 
software? 

A less than $100 
. 1 B. $100 250 

C $250-500 

D $500- 1.000 
: E more lhan $1,000 

VIII. What is your level of educa- 
tion? 

1 Postgraduate 

2 College 

' 3 High school 

IX. How many people read your 
copy of 80 Microcomputing? 

A 1 
B 2 

: : c. 3 

D 4 or more 

X. If you are not a subscriber 
please circle number 500. 
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Reader Service: To receive more information from any of the advertisers in this issue of 80 Microcomputing, 
circle the number on the postage-paid Reader Service Card that corresponds with the Reader Service 
number on the ad in which you are interested. You will find numbers, preceded by a • . near the logo of each 
advertiser Complete the entire card, drop inlo a mailbox and In 4-6 weeks you will hear from the advertiser 



directly 
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Address 



80 Microcomputing • August 1981 city 



State. 



Zip. 



BOOKS 



80 Microcomputing 
Peterborough NH 03458 



Please send me the following 80 
Microcomputing products: 



Ctty. 


Catalog * 


Title 


(Jnil Price 


Total 









































































Enclosed S 

Bill: AE 



MC 



Add SI 

shipping/handling 



Check 
VISA 



M.O. 



Card# 



Exp date. 



Interbank U 



Signature 
Name 



Address 
City 



State 



Zip 



Please allow 4-6 weeks for delivery 



No C.O.D. orders accepted. 



SUBSCRIPTION 



80 Microcomputing POB 98 1 
Farmingdalc NY I 1737 




^k^S^ 



SU^ S 




New Subscription 
1 year— S 18 

Enclosed S 

Bill: MC VISA 

Card » 



Renewal 



Check 
AE 



M.O. 
Me 



Signature 
Name 



Exp. date 



Interbank # 



Address 
City 



State 



Zip 



Canada: S20 1 year only, CJS funds 

Other foreign: S28 one year only. US funds 



318B9 



A» nrevious subscriDoon offers are void on October I. 1981 



NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



BUSINESS REPLY CARD 

FIRST CLASS PERMIT NO. 217 CLINTON IA 52735 



POSTAGE WILL BE PAID BY ADDRESSEE 




microcomputing 



POB 2743 
Clinton IA 52735 



UJ >. LU 

O oc Q £ 

< < UJ Ul ? 

O uj c _ Q 

Q. o _ W 

Q UJ U. t 

Z 2 Z 

3 




Q 




CC 


t 


< 


> 


O 


LU 

-1 






> 


C3 


_l 




o. 


CC 

< 


LU 


s 


CC 




o 


CO 


z 


0) 


2 


LU 


LU 
Q- 


z 


CO 




< 


CO 


o 


Z) 


to 


CO 


LL 



'CD 
C 

D 
Q. 

E 

O 

o 
o 

c_ 

o 



Q. 
CD 

Q 



CO 



CD 



.2 To 



$ 



■D 
O) 

c 



Q.T- 

Z CO 
O CD 

D O CO 
CO CL LL 



Q 


8 


CC 


S 


< 


i 


o 


i 


>■ 


O 


-J 


O 


Q. 


CC 
UJ 


LU 


LU 


CC 


s 


CO 


o 

z 


CO 


£ 


LU 


CC 


z 


a 

CO 




to 


CO 




3 




CD 


LL 



t 5 



'CD 

"C 
■j-j 
D 
CI 

E 

O 
U 
O 

c_ 

.y 
E 



$ 



CO 

CO 

o 



a) 

=j 
o 

o 

-Q 

k_ 

CD 

■v^ 

CD 
CL 



"O 



CD 
5 



your TRS-80* 




*«• 




With The LOBO LX-80 Expansion Interface 



Now you can realize all the power and 
potential of your TRS-80*, Model 1. If it's 
add-on memory you need, your LX-80 can 
accommodate up to four 5 1 /4-inch, single- 
or double-density 35, 40 or 80 track mini- 
floppies, four 8-inch floppies (single or 
double sided), and up to eight Winchester 
fixed disk-drives (61A". 8", 14"). 

LOBO's powerful new LDOS™ operating 
system, provided with your LX-80, allows 
for the use of any eight drives, in any 
combination, single or double density. 

And there's more ... lots more. There are 
two parallel ports (standard), two serial 



ports (optional), a keyboard ROM override 
switch, and a 32K memory expansion 
(optional). Send for a free LX-80/TRS-80 
cost performance comparison chart. 

For the full story on how the LX-80 can 
expand your TRS-80, see your nearest 
LOBO dealer, or write or call: 

'TRS-80 is a registered trademark of Radio Shack, a Tandy Company. 



LOBO DRIVES INT'L 

354 South Fairview Ave. 
Goleta, CA 93117 
(805)683-1576 *\* 




INTERNATIONAL 



See us at the N.C.C., booth #421 1 



■ 



• 



I 




I 



i 



T 




Frustrating isn't it' No matter how 
much you speed up your program 
N Will seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80, Apple, 
PET, OSI and an RS 232 unit. 
Even the slowest of the units is 1 5 
times faster than a cassette, and all 
are as reliable as disk drives - in 
fact a lot of users say they are more 
reliable! 




excellence in electronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 
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TRS-80. Apple and PET hit trademarks of Tandy. Apple and Commodore resp 



